Power Plus Patch
POWER PLUS PATCH
Date of Correction:3/29/01Module:AP
Markid:P5.23Program Nbr: 001
Description:
AI01 inquiry enhanced to show some purchasing vendor info if you inquire by remit-to vendor and vice versa (show remit-to vendor info if you inquire by purchasing vendor).
Solution:
LIB/TCLAP
00407900 A18,X2,A2,X2,A9,X2,A30," Rate: ",A2,".",A2,"%",CRLF,
LIB/APSSCR001
409350 10 AI12-PURCH-VENDOR-MSG-O PIC X(30).
412000 10 FILLER PIC X(1463).
SRC/AP/001
141001 01 630-VENDOR-MSG.
141002 05 630-VEND-LIT PIC X(11).
141003 05 630-VEND-NBR PIC Z(6)9B.
141004 05 630-VEND-NAME PIC X(11).
141005
141010 01 630-WORKING-STORAGE.
141011 05 630-REMIT-VENDOR PIC 9(7) COMP.
141012 05 630-VENDOR-NBR PIC 9(7) COMP.
863850 IF 630-AP-DATA-FOUND-FLAG = 0-TRUE-77
863900 MOVE AP-REMIT-VENDOR TO 630-REMIT-VENDOR
863950 MOVE AP-VENDOR-NBR TO 630-VENDOR-NBR
864000 ELSE
864050 MOVE AH-REMIT-VENDOR TO 630-REMIT-VENDOR
864100 MOVE AH-VENDOR-NBR TO 630-VENDOR-NBR.
864150
885320 IF 630-AP-DATA-FOUND-FLAG = 0-TRUE-77
885340 MOVE AP-REMIT-VENDOR TO 630-REMIT-VENDOR
885360 MOVE AP-VENDOR-NBR TO 630-VENDOR-NBR
885380 ELSE
885400 MOVE AH-REMIT-VENDOR TO 630-REMIT-VENDOR
885420 MOVE AH-VENDOR-NBR TO 630-VENDOR-NBR.
885440
888475 IF 630-AP-DATA-FOUND-FLAG = 0-TRUE-77
888476 MOVE AP-REMIT-VENDOR TO 630-REMIT-VENDOR
888477 MOVE AP-VENDOR-NBR TO 630-VENDOR-NBR
888478 ELSE
888479 MOVE AH-REMIT-VENDOR TO 630-REMIT-VENDOR
888480 MOVE AH-VENDOR-NBR TO 630-VENDOR-NBR.
888481 PERFORM 630-BUILD-AI12-HEADER THRU
888482 630-BUILD-AI12-HEADER-EXIT.
888483 IF 630-AP-DATA-FOUND-FLAG = 0-TRUE-77
956100 IF 630-REMIT-VENDOR = 630-VENDOR-NBR
956110 GO TO 630-BUILD-AI12-HEADER-EXIT.
AP/001 P5.23 continued (page 2 of 2)
956120 IF 630-REMIT-VENDOR = VM-NUMBER
956130 MOVE 630-VENDOR-NBR TO 990-NUMBER-KEY-77
956140 MOVE "Purch Vndr" TO 630-VEND-LIT
956150 ELSE
956160 MOVE 630-REMIT-VENDOR TO 990-NUMBER-KEY-77
956170 MOVE "Remit Vndr" TO 630-VEND-LIT.
956180 FIND VM-DATA VIA VM-SET
956190 AT VM-COMPANY-ID = 990-COMPANY-ID-KEY-77
956200 AND VM-NUMBER = 990-NUMBER-KEY-77
956210 ON EXCEPTION
956220 MOVE "NOT ON FILE" TO VM-NAME-PO.
956230 MOVE VM-NAME-PO TO 630-VEND-NAME.
956240 MOVE 990-NUMBER-KEY-77 TO 630-VEND-NBR.
956250 MOVE 630-VENDOR-MSG TO AI12-PURCH-VENDOR-MSG-O.
956270 630-BUILD-AI12-HEADER-EXIT.
Date of Correction:2/23/01Module:AP
Markid:P5.22Program Nbr: 001
Description:
AI21 continuation screen sometimes aborts with invalid index.
Solution:
LIB/AI21PD
873670
873675 ADD 0-ONE-77 TO 0-INDEX-77.
873680 IF 0-INDEX-77 GREATER THAN 0-EIGHT-77
873685 MOVE 0-TRUE-77 TO 0-END-OF-DATA-FLAG-77.
Date of Correction:2/21/01Module:AP
Markid:P5.21Program Nbr: 001
Description:
The reverse date option and purchasing vendor options on the AI01 inquiry do not always carry over correctly onto the continuation screens.
Solution:
803980 MOVE AI01-PURCH-FLAG-I TO 0-NEXT-KEY-PURCH-FLAG-WS.
931100*
931200 MOVE 0-NEXT-KEY-WS TO AI02-NEXT-KEY-O.
933300*
933400 MOVE 0-NEXT-KEY-WS TO AI02-NEXT-KEY-O.
Date of Correction:3/14/01Module:AP
Markid:P5.21Program Nbr: 005
Description:
In multi-company environment, A/P-PO interface sometimes allows you to enter invoices for a different company into your batch.
Solution:
109930 01 BR-DATA.
523375
523380 FIND BR-DATA VIA BR-SET
523390 AT BR-MKTG-UNIT-NBR = PH-WAREHOUSE
523400 ON EXCEPTION
523410 CREATE BR-DATA.
523420 IF BR-COMPANY-ID NOT = BB-COMPANY-ID
523430 MOVE 0-TRUE-77 TO 1-ERROR-IN-SCREEN-FLAG
523440 703-ERR-MSG-21-INVALID-CO
523450 MOVE 0-ERR-HILITE-CHAR TO PI11-NEXT-PO-NBR-DELIM-O
523460 PI11-PO-NBR-DELIM-O.
523490 1521-EDIT-PO-NBR-EXIT.
Date of Correction:3/21/01Module:AR
Markid:P5.21Program Nbr: 073
Description:
Branch total A/R balance is wrong if any CM-AR-BALANCE's are incorrect.
Solution:
426110 COMPUTE WS-AR-BALANCE = WS-FUTURE + WS-CURRENT
426120 + WS-31-60 + WS-61-90 + WS-91-120
426130 + WS-OVER-120 - WS-UNAPP-CASH.
Date of Correction:2/13/01Module:FM
Markid:P5.21Program Nbr: 004
Description:
Add option to OI75 inquiry to view open returns.
Solution:
LIBPS/OI75PD
593510 IF OI75-ALL-OPTION-I = "R"
593520 AND ( RM-ORDER-TYPE NOT = 6 )
593530 PERFORM 11CP-GET-NEXT-ORD THRU 11CP-GET-NEXT-ORD-EXIT
593540 GO TO 11CP-LOAD-OI76-LINES-EXIT.
593550
594000 IF RM-ORDER-TYPE = 4 OR 5
594310 IF RM-ORDER-TYPE = 6
594320 IF OI75-ALL-OPTION-I NOT = "R"
594330 PERFORM 11CP-GET-NEXT-ORD THRU 11CP-GET-NEXT-ORD-EXIT
594340 GO TO 11CP-LOAD-OI76-LINES-EXIT.
594350
602520
602540 IF RM-ORDER-TYPE = 6
602560 MOVE RI-CREDIT-QTY TO RI-QTY-ORDERED.
602580
LIBPS/TCLOI
00153960 X22,"R = Return Lines",CR,
Date of Correction:3/13/01Module:FM
Markid:P5.23Program Nbr: 008
Description:
"O" option in inventory inquiries changed to only show open customer orders.
Solution:
736510 MOVE "O" TO OI30-STATUS-I
Date of Correction:3/9/01Module:FM
Markid:P5.22Program Nbr: 008
Description:
Description lines don't evenly line up on II10 inquiry.
Solution:
LIB/TCLII
00674350 @1,"Item Number ",NV,UL,A24,X1,SV,RS,X9,A30,
00674355 X50,A30,
00674362 " Category/Class",NV,A4,DL,X2,A30,
00674368 X1,A30,A38,X12,A30,
Date of Correction:2/13/01Module:FM
Markid:P5.21Program Nbr: 008
Description:
After applying patch P5.1H, the "C" (for category class) option on the SI10 inquiry no longer works.
Solution:
LIBPS/INQ08PD
584034 ELSE
584036 NEXT SENTENCE
584038 ELSE
Date of Correction:1/26/01Module:FM
Markid:P5.21Program Nbr: 016
Description:
If you change the replacement cost on an item that has never been received in before, the average cost should get set to the replacement.
Solution:
470597 MOVE 0-TRUE-77 TO 128-IW-CHANGE-FLG
470598 IF IW-DT-LAST-RCVD = ZERO
470599 MOVE IW-STANDARD-COST TO IW-AVERAGE-COST.
470600 1282-CHECK-FOR-COST-CHG-EXIT.
Date of Correction:3/14/01Module:GL
Markid:P5.21Program Nbr: 001
Description:
If you do not transmit all the way through a GI21 continuation screen, the next GI21 inquiry does not work properly.
Solution:
LIB/GI21PD
100500 MOVE 0-FALSE-77 TO 161-CONT-FLG.
Date of Correction:3/6/01Module:GL
Markid:P5.21Program Nbr: 124
Description:
Program not reporting beginning balances correctly.
Solution:
399200 IF WS-FROM-PERIOD NOT = 1
399300 ADD GL-PREV-PERIOD (WS-PER-SUB) TO 0-BEGINNING-BALANCE
399350 MOVE GL-PREV-PERIOD (WS-PER-SUB) TO 610-BEGINNING-BALANCE
399400 ELSE
399500 MOVE ZERO TO 610-BEGINNING-BALANCE.
399600 IF WS-BEGIN-PERIOD = 1
399700 IF GL-ACCT-NBR LESS THAN 0-GP-1ST-REV-ACCT-NBR
399800 MOVE GL-PREV-PERIOD (1) TO 610-BEGINNING-BALANCE
399900 ELSE
400000 MOVE ZERO TO 610-BEGINNING-BALANCE.
Date of Correction:3/6/01Module:GL
Markid:P5.21Program Nbr: 125
Description:
Report showing erroneous beginning balance.
Solution:
428380 COMPUTE WS-PER-SUB = WS-BEGIN-PERIOD.
Date of Correction:3/23/01Module:IN
Markid:P5.22Program Nbr: 012
Description:
Slashes not showing in dates on the IA92 PO header screen.
Solution:
LIB/SCREENS12
155300 10 IA92-ORDER-DATE-O PIC Z9/99/99.
155320 10 IA92-DUE-DATE-O PIC Z9/99/99.
155330 10 IA92-DT-LAST-RCVD-O PIC Z9/99/99.
155340 10 IA92-CLOSED-DATE-O PIC Z9/99/99.
Date of Correction:1/17/01Module:IN
Markid:P5.21Program Nbr: 012
Description:
If you use IA23 to change the suspense flag to Yes on a vendor return, the II90 audit trail doesn't look quite right.
Solution:
493910**
493915**
493917**
493925**
Date of Correction:1/19/01Module:IN
Markid:P5.21Program Nbr: 041
Description:
Improve efficiency of runtime by doing one transaction per IM instead of one per IW.
Solution:
174810
174900 PERFORM 999-BT-BEGIN-TRANSACTION
174910 THRU 999-BT-BEGIN-TRANSACTION-EXIT.
174920 IF 990-ABORT-88
174930 PERFORM 601-RECOVER THRU 601-RECOVER-EXIT
174940 GO TO 5-CYCLE-THRU-IM-EXIT.
174950
174960 MOVE 990-ACCESS-FIRST-VA-77 TO 990-ACCESS-METHOD-77.
175200 PERFORM 999-BT-END-TRANSACTION
175300 THRU 999-BT-END-TRANSACTION-EXIT.
180500*
180600*
180700*
180800*
180900*
182200*
182300*
182310*
182315*
182320*
182325*
182330*
Date of Correction:1/2/01Module:IN
Markid:P5.21Program Nbr: 044
Description:
Sometimes shows wrong stock location value in headings.
Solution:
393150 MOVE TE-STOCK-LOCATION TO SAVE-STOCK-LOC.
Date of Correction:2/22/01Module:IN
Markid:P5.21Program Nbr: 348
Description:
PO Summary should not include on-hold PO's in the PTD or last month totals.
Solution:
329650 IF WF-DIS348-HOLD-CODE = ZERO
Date of Correction:1/15/01Module:IN
Markid:P5.21Program Nbr: 604
Description:
Program is not combining the monthly orders buckets.
Solution:
110195 05 IW-PERIOD-ORDERS-FS OCCURS 13 TIMES PIC 9(3) COMP.
260410 MOVE IW-PERIOD-ORDERS (DEMAND-INDEX) TO
260411 IW-PERIOD-ORDERS-FS (DEMAND-INDEX).
266650 ADD IW-PERIOD-ORDERS-FS (DEMAND-INDEX) TO
266660 IW-PERIOD-ORDERS (DEMAND-INDEX).
Date of Correction:2/2/01Module:OC
Markid:P5.21Program Nbr: 003
Description:
Faxed PO's not printing vendor quote number.
Solution:
126310 10 RF04-VEND-QUOTE-LIT PIC X(8).
126315 10 RF04-VEND-QUOTE-NBR PIC X(21).
210062 IF IW-VEND-QUOTE-NBR NOT = SPACES
210064 MOVE " QUOTE#" TO RF04-VEND-QUOTE-LIT
210066 MOVE IW-VEND-QUOTE-NBR TO RF04-VEND-QUOTE-NBR.
Date of Correction:1/3/01Module:OC
Markid:P5.17Program Nbr: 003
Description:
Notify sender on status line (25th line) if an e-mail they send does not go through.
Note:Requires new library, FAXERRPD.
Solution:
116621
116622 01 900-FAX-ERR-MSG.
116623 05 FILLER PIC X(24) VALUE
116624 " FAX DID NOT GO THRU TO ".
116625 05 900-FAXEE-COMPANY PIC X(30).
187342 IF F00-STATUS > 3
187344 PERFORM 900-SEND-ERR-STATUS
187346 THRU 900-SEND-ERR-STATUS-EXIT.
187792 IF F00-STATUS > 3
187794 PERFORM 900-SEND-ERR-STATUS
187796 THRU 900-SEND-ERR-STATUS-EXIT.
188602 IF F00-STATUS > 3
188604 PERFORM 900-SEND-ERR-STATUS
188606 THRU 900-SEND-ERR-STATUS-EXIT.
226300 COPY "LIBPS/FAXERRPD".
226310
Date of Correction:3/6/01Module:OE
Markid:P5.22Program Nbr: 007
Description:
When you automatically print an acknowledgement of a return, the system will now send back a blank OE01 on OP20 screen instead of another PK11 screen.
Note: Requires simultaneous installation of patches P5.26 for OE/010 and P5.22 for OE/018.
Solution:
140450 10 FILLER PIC X(3) VALUE @1E401F@.
140460 10 FILLER PIC X VALUE "A".
140470 10 FILLER PIC X VALUE @1E@.
Date of Correction:2/23/01Module:OE
Markid:P5.21Program Nbr: 007
Description:
OP20 now will disallow returns if the return control code is set to N.
Solution:
301890 MOVE "ITEM IS NON-RETURNABLE"
301895 TO 703-ERROR-MSG-TABLE-LIT (16).
405702 IF IM-RETURN-CONTROL = "N"
405704 MOVE 0-TRUE-77 TO 1-LI-EDIT-ERROR-FLAG
405705 703-ERR-MSG-16-WHSE-REC-XIST
405706 MOVE 0-ERR-HILITE-CHAR TO OP23-FUNCTION-DELIM-O
405707 (OP23-ERROR-REPEAT-INDEX-O)
405708 GO TO 1153-EDIT-EACH-ITEM-EXIT.
405709
Date of Correction:3/23/01Module:OE
Markid:P5.22Program Nbr: 009
Description:
RM-ORDER-COST should be reduced when you cancel a line item in shipping feedback. Also, branch and sales rep statistics are being increased instead of decreased when such cancellations are done.
Solution:
111743 05 1172-LI-EXT-COST PIC S9(7)V99 COMP VA 0.
449320 MOVE RI-UNIT-MEAS TO 752-UNIT-MEAS.
449322 PERFORM 752-UM-CONVERSION.
449323 COMPUTE 1172-LI-EXT-COST ROUNDED = RI-UNIT-STD-COST *
449324 (RI-QTY-ORDERED / 752-EXTENSION-DIVISOR / RI-ORDER-CONV)
449334 SUBTRACT 1172-LI-EXTENSION FROM RM-ORDER-VALUE.
449335 SUBTRACT 1172-LI-EXT-COST FROM RM-ORDER-COST.
449336
449384 COMPUTE 719-ORDER-VALUE = 1172-LI-EXTENSION * -1.
Date of Correction:3/28/01Module:OE
Markid:P5.27Program Nbr: 010
Description:
EI50 stats should never include transfers.
Note: Also recompile programs OE/003, 007, 009, and 032.
Solution:
LIB/719PD
420060 IF RM-ORDER-TYPE = 7
420080 GO TO 719-UPDATE-OE-STATS-EXIT.
Date of Correction:3/6/01Module:OE
Markid:P5.26Program Nbr: 010
Description:
When you automatically print an acknowledgement of a return, the system will now send back a blank OE01 on OP20 screen instead of another PK11 screen.
Note: Requires simultaneous installation of patches P5.22 for OE/007 and P5.22 for OE/018.
Solution:
116543 10 FILLER PIC X(3) VALUE @1E401F@.
116544 10 FILLER PIC X VALUE "M".
116545 10 FILLER PIC X VALUE @1E@.
Date of Correction:2/23/01Module:OE
Markid:P5.25Program Nbr: 010
Description:
OE17 now will disallow returns if return control code is set to N.
Solution:
300620 MOVE "ITEM IS NON-RETURNABLE"
300630 TO 703-ERROR-MSG-TABLE-LIT (16).
336831 IF IM-RETURN-CONTROL = "N"
336832 MOVE 0-TRUE-77 TO 1-LI-EDIT-ERROR-FLAG
336833 703-ERR-MSG-16-WHSE-REC-XIST
336834 MOVE 0-ERR-HILITE-CHAR TO OE17-ITEM-NBR-DELIM-O
336835 (OE17-RET-STK-ERROR-INDEX).
Date of Correction:2/13/01Module:OE
Markid:P5.24Program Nbr: 010
Description:
Order header maintenance should not require order taker number on automatic transfers.
Solution:
360471 IF OM31-ORDER-TAKER-I = ZEROES
360472 AND ( RM-ORDER-TYPE NOT = 11-TRANSFER-VA )
360473 MOVE 0-ERR-HILITE-CHAR TO OM31-ORDER-TAKER-DELIM-O
360474 MOVE 0-TRUE-77 TO 1-EDIT-ERROR-FLAG
360475 703-ERR-MSG-58-INPUT-RQRD
360476 ELSE
360540 IF OM31-ORDER-TAKER-I NOT = ZEROES
Date of Correction:1/30/01Module:OE
Markid:P5.23Program Nbr: 010
Description:
Manual returns now sometimes can wind up with zero cost.
Solution:
339850 IF OE17-COST-ERROR-I (OE17-RET-STK-INDEX) NOT NUMERIC
339851 AND OE17-COST-ERROR-I (OE17-RET-STK-INDEX) NOT = SPACES
339852 MOVE OE17-COST-ERROR-I(OE17-RET-STK-INDEX)
339853 TO 780-INPUT-USER
339854 MOVE 4 TO 780-NBR-DECIMALS
339855 MOVE 0-FALSE-77 TO 780-SIGN-ALLOWED-FLAG
339856 PERFORM 780-CONVERT-TO-DECIMAL THRU
339857 780-CONVERT-TO-DECIMAL-EXIT
339858 IF 780-NON-USABLE-DATA-88
339859 OR 780-FIELD-IN-ERROR-88
339860 NEXT SENTENCE
339861 ELSE
339862 MOVE 780-RESULT-4 TO 1149-COST(OE17-RET-STK-INDEX).
Date of Correction:1/29/01Module:OE
Markid:P5.22Program Nbr: 010
Description:
If you have 3 or more contracts for the same customer/item combination, the pricing routine does not always read all of them to determine the applicable contract, depending on the dates the contracts were entered.
Solution:
LIB/709PD
130196*
130198*
130200*
Date of Correction:1/17/01Module:OE
Markid:P5.21Program Nbr: 010
Description:
If an item gets automatically "dup-ed" from another warehouse, give a message to this effect on order entry response screen.
Solution:
101270 77 0-DUP-FLAG PIC 9 COMP.
324091 MOVE 0-FALSE-77 TO 0-DUP-FLAG.
324093 MOVE 0-TRUE-77 TO 0-DUP-FLAG
325772 IF 0-DUP-FLAG = 0-TRUE-77
325774 MOVE 999-HILITE-VIDEO-VA-77 TO 609-WARNING-MSG-DELIM3
325776 MOVE "ITEM HAS BEEN DUP-ED" TO 609-WARNING-MSG-TEXT3.
325778
LIBPS/OE30PD
456882 MOVE 0-FALSE-77 TO 0-DUP-FLAG.
456887 MOVE 0-TRUE-77 TO 0-DUP-FLAG
461162 IF 0-DUP-FLAG = 0-TRUE-77
461164 MOVE "Item has been Dup-ed" TO OE30-SUB-ITEM-NBR-O
461166 MOVE SPACES TO OE30-SUBST-LIT-O
461168 MOVE 999-HILITE-VIDEO-VA-77 TO OE30-DUP-HILITE-O.
LIBPS/SCREENS10
250450 15 OE30-SUBST-LIT-O.
250452 20 FILLER PIC X(10).
250454 20 OE30-DUP-HILITE-O PIC X.
Date of Correction:3/6/01Module:OE
Markid:P5.22Program Nbr: 018
Description:
When you automatically print an acknowledgement of a return, the system will now send back a blank OE01 on OP20 screen instead of another PK11 screen.
Note: Requires simultaneous installation of patches P5.22 for OE/007 and P5.26 for OE/010.
Solution:
LIB/SCREENS18
106110 10 PK11-SOURCE-O PIC X.
106300 10 FILLER PIC X(1896).
LIB/TCLPK
00394140 US,T(YNOUT,A3,1),RS,X1,US,A1,US,A6,RS,
00394145 " NEXT FORMAT ",US,"FOE01",RS,
00394165 (A4,X1,A5,I6,A1,I4,T(DYNIN,A3,1),A1,I6,A5).
00394216 X15,"Print a Quote, RGA or ",CR,
00394217 X17,"Acknowledgement?",A1,UL,US,T(YNOUT,A3,1),RS,CR,LF,
00394218 X35,FS,A1,RS,CRLF,
00394221 4(LF),
00394222 @1,UL,BR,A38,X1,A38,CR,@101,
00394245 (A4,X1,A5,I6,A1,I4,T(YDNIN,A3,1),A1,I6,A5).
00394287 X17,"Acknowledgement?",A1,UL,FS,T(YNOUT,A3,1),RS,CRLF,
00394288 X35,FS,X1,RS,CRLF,
00394290 4(LF),
00394292 @1,UL,BR,A38,X1,A38,CR,@101,
00394320 (A4,X1,A5,I6,A1,I4,T(YDNIN,A3,1),A1,I6,A5).
SRC/OE/018
152410 10 PK11-SOURCE-I PIC X.
152510 10 FILLER PIC X(21).
181300
181400 01 1-ORDER-PRINTED-MSG.
181500 05 FILLER PIC X(20) VALUE
181600 "ORDER OR RETURN NBR ".
181700 05 1-ORDER-ROOT-PRTED PIC ZZ9(4).
181800 05 1-ORDER-SUFFIX-PRTED PIC X.
181900 05 FILLER PIC X(20) VALUE
182000 " HAS BEEN PRINTED".
318670 IF PK02-I-88
318680 AND PK00-NBR-ERR-MSGS-A = ZERO
318690 MOVE "FOE01" TO MCS-FORMAT-ID.
362770 MOVE PK11-SOURCE-I TO PK11-SOURCE-O.
OE/018 P5.22 continued (page 2 of 2)
362905 IF PK11-I-88
362910 AND ( PK11-SOURCE-I = "A" )
362915 MOVE SPACES TO PK00-SCREEN-FORMAT-O
362920 MOVE RM-ORDER-ROOT TO 1-ORDER-ROOT-PRTED
362925 MOVE RM-ORDER-SUFFIX TO 1-ORDER-SUFFIX-PRTED
362930 MOVE 1-ORDER-PRINTED-MSG TO PK00-SCREEN-FORMAT-O
362935 MOVE "FOP20" TO MCS-FORMAT-ID
362940 ELSE
362945 IF PK11-I-88
362950 AND ( PK11-SOURCE-I = "M" )
362955 MOVE SPACES TO PK00-SCREEN-FORMAT-O
362960 MOVE RM-ORDER-ROOT TO 1-ORDER-ROOT-PRTED
362965 MOVE RM-ORDER-SUFFIX TO 1-ORDER-SUFFIX-PRTED
362970 MOVE 1-ORDER-PRINTED-MSG TO PK00-SCREEN-FORMAT-O
362975 MOVE "FOE01" TO MCS-FORMAT-ID
362980 ELSE
Date of Correction:2/23/01Module:OE
Markid:P5.21Program Nbr: 018
Description:
Print return control message on pick tickets and invoices.
Solution:
104500 77 0-NONRETURNABLE-LIT PIC X(30) VALUE
104600 "ITEM IS NONRETURNABLE".
104700 77 0-RESTOCKING-LIT PIC X(30) VALUE
104750 "RESTOCKING CHARGE ON RETURNS".
104820 77 0-RETURN-MSG-PRINTED-FLAG PIC 9 VALUE 0.
427110
427115 MOVE 0-FALSE-77 TO 0-RETURN-MSG-PRINTED-FLAG.
427120 IF RI-CUST-PART-NBR = SPACES
427125 AND RM-ORDER-TYPE NOT = 1-RETURN-STOCK-VA
427130 IF IM-RETURN-CONTROL = "N" OR "P"
427135 MOVE 0-TRUE-77 TO 0-RETURN-MSG-PRINTED-FLAG
427140 MOVE 0-NONRETURNABLE-LIT TO RI-CUST-PART-NBR
427145 ELSE
427150 IF IM-RETURN-CONTROL = "R"
427155 MOVE 0-TRUE-77 TO 0-RETURN-MSG-PRINTED-FLAG
427160 MOVE 0-RESTOCKING-LIT TO RI-CUST-PART-NBR.
427210 IF (RI-CUST-PART-NBR NOT = SPACES)
427220**
427805 IF 0-RETURN-MSG-PRINTED-FLAG = 0-FALSE-77
427810 AND RM-ORDER-TYPE NOT = 1-RETURN-STOCK-VA
427815 IF IM-RETURN-CONTROL = "N" OR "P"
427820 MOVE SPACES TO 1-LINE-ITEM-REC-PCK
427825 MOVE 0-NONRETURNABLE-LIT TO 1-ITEM-DESCRIPTION-PCK
427830 MOVE 0-ONE-77 TO 680-LINES-TO-ADVANCE-77
427835 MOVE 1-LINE-ITEM-REC-PCK TO 0-DOCUMENT-LINE
427840 PERFORM 680-WRITE-DOCUMENT-LINE
427845 THRU 680-WRITE-DOCUMENT-LINE-EXIT
427850 ELSE
427855 IF IM-RETURN-CONTROL = "R"
427860 MOVE SPACES TO 1-LINE-ITEM-REC-PCK
427865 MOVE 0-RESTOCKING-LIT TO 1-ITEM-DESCRIPTION-PCK
427870 MOVE 0-ONE-77 TO 680-LINES-TO-ADVANCE-77
427875 MOVE 1-LINE-ITEM-REC-PCK TO 0-DOCUMENT-LINE
427880 PERFORM 680-WRITE-DOCUMENT-LINE
427885 THRU 680-WRITE-DOCUMENT-LINE-EXIT.
OE/018 P 5.21 continued (page 2 of 2)
434710
434715 MOVE 0-FALSE-77 TO 0-RETURN-MSG-PRINTED-FLAG.
434720 IF RI-CUST-PART-NBR = SPACES
434725 AND RM-ORDER-TYPE NOT = 1-RETURN-STOCK-VA
434730 IF IM-RETURN-CONTROL = "N" OR "P"
434735 MOVE 0-TRUE-77 TO 0-RETURN-MSG-PRINTED-FLAG
434740 MOVE 0-NONRETURNABLE-LIT TO RI-CUST-PART-NBR
434745 ELSE
434750 IF IM-RETURN-CONTROL = "R"
434755 MOVE 0-TRUE-77 TO 0-RETURN-MSG-PRINTED-FLAG
434760 MOVE 0-RESTOCKING-LIT TO RI-CUST-PART-NBR.
434810 IF (RI-CUST-PART-NBR NOT = SPACES)
434812
435305
435310 IF 0-RETURN-MSG-PRINTED-FLAG = 0-FALSE-77
435320 AND RM-ORDER-TYPE NOT = 1-RETURN-STOCK-VA
435330 IF IM-RETURN-CONTROL = "N" OR "P"
435340 MOVE SPACES TO 1-LINE-ITEM-REC-INV
435350 MOVE 0-NONRETURNABLE-LIT TO 1-ITEM-DESCRIPTION-INV
435360 MOVE 0-ONE-77 TO 680-LINES-TO-ADVANCE-77
435370 MOVE 1-LINE-ITEM-REC-INV TO 0-DOCUMENT-LINE
435380 PERFORM 680-WRITE-DOCUMENT-LINE
435390 THRU 680-WRITE-DOCUMENT-LINE-EXIT
435400 ELSE
435410 IF IM-RETURN-CONTROL = "R"
435420 MOVE SPACES TO 1-LINE-ITEM-REC-INV
435430 MOVE 0-RESTOCKING-LIT TO 1-ITEM-DESCRIPTION-INV
435440 MOVE 0-ONE-77 TO 680-LINES-TO-ADVANCE-77
435450 MOVE 1-LINE-ITEM-REC-INV TO 0-DOCUMENT-LINE
435460 PERFORM 680-WRITE-DOCUMENT-LINE
435470 THRU 680-WRITE-DOCUMENT-LINE-EXIT.
Date of Correction:2/23/01Module:OE
Markid:P5.21Program Nbr: 030
Description:
Print return control message on pick tickets.
Solution:
121510 77 0-NONRETURNABLE-LIT PIC X(30) VALUE
121515 "ITEM IS NONRETURNABLE".
121520 77 0-RESTOCKING-LIT PIC X(30) VALUE
121525 "RESTOCKING CHARGE ON RETURNS".
121530 77 0-RETURN-MSG-PRINTED-FLAG PIC 9 VALUE 0.
465440 MOVE 0-FALSE-77 TO 0-RETURN-MSG-PRINTED-FLAG.
465445 IF RI-CUST-PART-NBR = SPACES
465450 AND RM-ORDER-TYPE NOT = 6
465455 IF IM-RETURN-CONTROL = "N" OR "P"
465460 MOVE 0-TRUE-77 TO 0-RETURN-MSG-PRINTED-FLAG
465465 MOVE 0-NONRETURNABLE-LIT TO 7-CUST-PART-NBR
465470 ELSE
465475 IF IM-RETURN-CONTROL = "R"
465480 MOVE 0-TRUE-77 TO 0-RETURN-MSG-PRINTED-FLAG
465485 MOVE 0-RESTOCKING-LIT TO 7-CUST-PART-NBR.
465490
468280 724B-BUILD-RET-NARR-REC.
468285 MOVE RM-SHIP-LOC TO 7-WHSE-CODE.
468290 MOVE RM-ORDER-ROOT TO 7-ORDER-ROOT.
468295 MOVE RM-ORDER-SUFFIX TO 7-ORDER-SUFFIX.
468300 MOVE RI-LINE-NUMBER TO 7-LINE-NBR.
468305 MOVE 7-LINE-ITEM-RECORD-TYPE TO 7-RECORD-TYPE.
468310 MOVE 7-SUB-RECORD-NARR-TYPE TO 7-SUB-RECORD-TYPE.
468315 MOVE IW-BIN-LOCATION TO 7-BIN-LOCATION.
468320 MOVE ZEROES TO 7-BOM-CODE.
468325 MOVE 911 TO 7-NARRATIVE-LINE-NBR.
468330 IF RI-ASSEMBLY-CODE > ZERO
468335 MOVE 7-HOLD-BOM-NBR TO 7-BOM-NBR.
468340 IF IM-RETURN-CONTROL = "N" OR "P"
468345 MOVE 0-NONRETURNABLE-LIT TO 7-NARRATIVE
468350 ELSE
468355 IF IM-RETURN-CONTROL = "R"
468360 MOVE 0-RESTOCKING-LIT TO 7-NARRATIVE.
468365
468370 PERFORM 904-PICKFL-WRITE THRU 904-PICKFL-WRITE-EXIT.
468380 724B-BUILD-RET-NARR-REC-EXIT.
468385 EXIT.
468390 725-ADD-SUBS-REC-AND-LNK.
Date of Correction:3/23/01Module:OE
Markid:P5.22Program Nbr: 031
Description:
If you do an automatic return of a kit and its components, the cost gets doubled up.
Solution:
121500 77 0-PARENT-RETURNED-FLAG PIC 9 COMP.
437920 MOVE 0-FALSE-77 TO 0-PARENT-RETURNED-FLAG.
513400 IF RI-ASSEMBLY-CODE = 0-ONE-77
513410 MOVE 0-TRUE-77 TO 0-PARENT-RETURNED-FLAG.
513420 IF RI-ASSEMBLY-CODE = 0-TWO-77
513430 AND 0-PARENT-RETURNED-FLAG = 0-TRUE-77
513440 MOVE ZERO TO RI-UNIT-COST
513450 RI-UNIT-STD-COST.
Date of Correction:2/23/01Module:OE
Markid:P5.21Program Nbr: 031
Description:
Print return control message on invoices.
Solution:
119120 77 0-NONRETURNABLE-LIT PIC X(30)
119140 VALUE "ITEM IS NONRETURNABLE".
119160 77 0-RESTOCKING-LIT PIC X(30)
119180 VALUE "RESTOCKING CHARGE ON RETURNS".
660400
660410 IF RI-CUST-PART-NBR = SPACES
660420 AND RM-ORDER-TYPE NOT = 6
660430 IF IM-RETURN-CONTROL = "N" OR "P"
660440 MOVE 0-NONRETURNABLE-LIT TO INVCRL-CUST-PART-NBR
660450 ELSE
660460 IF IM-RETURN-CONTROL = "R"
660470 MOVE 0-RESTOCKING-LIT TO INVCRL-CUST-PART-NBR.
660480
660490 PERFORM 909-INVCRL-WRITE
660551
660552 IF INVCRL-CUST-PART-NBR = SPACES
660553 AND RM-ORDER-TYPE NOT = 6
660554 AND IM-RETURN-CONTROL = "N" OR "P" OR "R"
660555 PERFORM 601A-WRITE-RET-NARR
660556 THRU 601A-WRITE-RET-NARR-EXIT.
660557 MOVE 0-FALSE-77 TO 0-RL-DATA-EOF-FLAG-77.
660600 601-WRITE-LI-INVC-RELEASE-EXIT.
660610 EXIT.
660615
660620 601A-WRITE-RET-NARR.
660625 MOVE SPACES TO INVCRL-ITEM-NAR-REC
660630 MOVE 0-IR-LINE-ITEM-REC-TYPE-VA TO INVCRL-CARD-TYPE
660635 MOVE 0-IR-SUB-LINE-NARR-VA TO INVCRL-CARD-SUB-TYPE
660640 MOVE 911 TO INVCRL-ITEM-NARR-LINE
660645 MOVE 911 TO INVCRL-SUB-LINE-NBR
660650 MOVE RI-BIN-LOCATION TO INVCRL-BIN-LOCATION
660655 IF IM-RETURN-CONTROL = "N" OR "P"
660660 MOVE 0-NONRETURNABLE-LIT TO INVCRL-ITEM-NARRATIVE
660665 ELSE
660670 IF IM-RETURN-CONTROL = "R"
660675 MOVE 0-RESTOCKING-LIT TO INVCRL-ITEM-NARRATIVE.
660680 PERFORM 909-INVCRL-WRITE
660685 THRU 909-INVCRL-WRITE-EXIT.
660690 601A-WRITE-RET-NARR-EXIT.
660700 EXIT.
Date of Correction:2/15/01Module:SA
Markid:P5.21Program Nbr: 015
Description:
Improve run time efficiency.
Solution:
301400 AND RM-INVOICE-DATE = 0-HOLD-FROM-DATE-77
318300*
318400*
318420*
318440*
Patch1stqtr01.doc