POWER PLUS PATCH
Date of Correction:9/16/02Module:AP
Markid:P6.15Program Nbr:001
Description:
If the last invoice on a page of AI21 inquiry is open and the first
invoice for the next page is paid, you get an invalid index.
Solution:
LIB/AI21PD
870500
870600 IF 0-INDEX-77 = ZERO
870700 OR 0-INDEX-77 > 8
870800 MOVE 0-ONE-77 TO 0-INDEX-77.
Date of Correction:9/16/02Module:AP
Markid:P6.14Program Nbr:001
Description:
On checks written to one-time vendors, the AI31 inquiry shows "vendor not on file" instead of name of special vendor.
Solution:
LIB/AI31PD
786510 IF OC-SPECIAL-CODE = 0-TRUE-77
786520 FIND VS-DATA VIA VS-SET
786530 AT VS-SPECIAL-NBR = OC-VENDOR-NBR
786540 ON EXCEPTION
786550 MOVE "VENDOR NOT ON FILE" TO VS-NAME.
786560 IF OC-SPECIAL-CODE NOT = 0-TRUE-77
786600 FIND VM-DATA VIA VM-SET
793320 IF OC-SPECIAL-CODE = 0-TRUE-77
793360 MOVE VS-NAME TO AI32-VENDOR-NAME-O
793380 ELSE
793400 MOVE OC-VENDOR-NBR TO AI32-VENDOR-NBR-O
793500 MOVE VM-NAME TO AI32-VENDOR-NAME-O.
Date of Correction:8/25/02Module:AP
Markid:P6.11Program Nbr:170
Description:
Check print program does not handle Canadian zip codes properly.
Solution:
287600 05 613-NON-US-ZIP.
288500 10 613-ZIP PIC X(10).
510100
510200 MOVE VM-ZIP TO 0-ZIP-CODE-IN.
510300 IF 0-ZIP-1-5-I NOT NUMERIC
510400 MOVE VM-ZIP TO 613-NON-US-ZIP.
521600
521700 MOVE VS-ZIP TO 0-ZIP-CODE-IN.
521800 IF 0-ZIP-1-5-I NOT NUMERIC
521900 MOVE VS-ZIP TO 613-NON-US-ZIP.
Date of Correction:7/3/02Module:AR
Markid:P6.11Program Nbr:079
Description:
Add option to run statements for a range of customers.
Solution:
SRC1/AR/079
125100 05 FILLER PIC X.
125200 05 PARAM-CREDIT-BAL-OPTION PIC XX.
125300 05 PARAM-START-KEY-NAME PIC X(10).
125400 05 FILLER PIC X.
125500 05 PARAM-END-KEY-NAME PIC X(10).
126000 05 FILLER PIC X(50).
438100 IF PARAM-START-KEY-NAME NOT = SPACES
438200 DISPLAY "RUNNING FOR CUST RANGE "
438300 PARAM-START-KEY-NAME " THRU "
438400 PARAM-END-KEY-NAME.
438500
471100 IF PARAM-START-KEY-NAME NOT = SPACES
471200 IF CM-KEY-NAME-1 < PARAM-START-KEY-NAME
471300 OR CM-KEY-NAME-1 > PARAM-END-KEY-NAME
471400 GO TO 1-BUILD-WORK-FILE-EXIT.
471500
WFL/AR/STATEMENTS
00204200 % 10-19 OPTIONAL STARTING CUST KEY NAME
00204300 % 21-30 OPTIONAL ENDING CUST KEY NAME
Date of Correction:9/17/02Module:EC
Markid:P6.11Program Nbr:010
Description:
Not handling special cost columns correctly.
Solution:
608300 IF CO-SPCL-COST-MULT > ZERO
608350 MOVE RI-UNIT-STD-COST TO 709-STD-COST
608400 PERFORM 7098-DETERMINE-COST
608450 THRU 7098-DETERMINE-COST-EXIT
608500 MOVE 709-SPC-COST TO RI-UNIT-STD-COST
Date of Correction:7/23/02Module:FM
Markid:P6.12Program Nbr:001
Description:
Patch P6.ORD was incomplete.
Solution:
LIB/TCLRES
697305 X5, "Beginning Nbr",A1,US,A7,RS,
697310 " Ending Nbr",A1,US,A7,RS,
697400 " Last Nbr ",A1,US,A7,RSCR,LF,
698100 IRS01A (A4,X1,I2,A1,3I7,A780,A5).
Date of Correction:8/13/02Module:FM
Markid:P6.19Program Nbr:004
Description:
Percentage of change this year vs. last year on the SI85 inquiry is calculated backwards.
Solution:
LIB/SI85PD
693700 ( 11S-YTD-SALES - 11S-PTD-SALES )
Date of Correction:7/17/02Module:FM
Markid:P6.18Program Nbr:004
Description:
II85 inquiry should not include suggested po's which have not yet been
released.
Solution:
LIB/II85PD
611500
611600 IF PO-HOLD-CODE > ZERO
611700 GO TO 11CM-GET-NEXT-PO.
Date of Correction:9/16/02Module:FM
Markid:P6.15Program Nbr:008
Description:
If only 2 lines left on OI12 screen, you don't see the GM percentage.
Solution:
534925 IF 11C-LINE-ITEM-NBR > 13
Date of Correction:7/25/02Module:FM
Markid:P6.13Program Nbr:013
Description:
Add a default lead time for special order items to the vendor master.
Note: Requires Reorg of VM-DATA.
Solution:
SRC/SYS/PLUSDB
347560 VM-LEAD-TIME NUMBER (3); %PSI0702
347580 VM-EXTRA-FLAG NUMBER (1); %PSI0702
LIBPS/TCLMM
482527 "Duns Number",X4,A1,UL,US,A13,RS,CR,
482528 " Default Lead Time ",A1,UL,US,A3,RS,CRLF,
482570 @1,BR,2(A38),CR,
482620 2I2,2(T(YDNIN,A3,1)),I3,I13,I3,3I6,A1,A60,A30,A5).
482937 "Duns Number",X4,A1,UL,US,A13,RS,CR,
482939 " Default Lead Time ",A1,UL,US,A3,RS,CRLF,
482980 " E-mail",A1,UL,US,A30,RSCR,
483060 2(T(YDNIN,A3,1)),I3,I13,I3,3I6,A1,A60,A30,2(A1),A5).
LIBPS/SCREENS13
459600 10 MM41-LEAD-TIME-DELIM-O PIC X.
459700 10 MM41-LEAD-TIME-ERROR-O.
459800 15 MM41-LEAD-TIME-O PIC ZZ9.
475000 10 FILLER PIC X(1492).
528600 10 MM43-LEAD-TIME-DELIM-O PIC X.
528700 10 MM43-LEAD-TIME-ERROR-O.
528800 15 MM43-LEAD-TIME-O PIC ZZ9.
544000 10 FILLER PIC X(1492).
SRC/FM/013
120113 10 MM41-LEAD-TIME-ERROR-I.
120114 15 MM41-LEAD-TIME-I PIC 999.
120200 10 FILLER PIC X(1331).
121513 10 MM43-LEAD-TIME-ERROR-I.
121514 15 MM43-LEAD-TIME-I PIC 999.
121515 10 MM43-MIN-WEIGHT-ERROR-I.
121650 10 FILLER PIC X(1329).
FM/013 P6.13 CONTINUED (page 2 of 2)
499460 IF MM41-LEAD-TIME-ERROR-I NOT NUMERIC
499470 MOVE 0-TRUE-77 TO 703-ERR-MSG-83-NBR-IN-RQRD
499480 1-ERROR-IN-SCREEN-FLAG
499490 MOVE 0-ERR-HILITE-CHAR TO MM41-LEAD-TIME-DELIM-O.
503940 MOVE MM41-LEAD-TIME-I TO VM-LEAD-TIME.
506770 MOVE MM41-LEAD-TIME-ERROR-I
506772 TO MM41-LEAD-TIME-ERROR-O.
510435 MOVE VM-LEAD-TIME TO MM43-LEAD-TIME-O
517000 IF MM43-LEAD-TIME-ERROR-I NOT NUMERIC
517010 MOVE 0-TRUE-77 TO 703-ERR-MSG-83-NBR-IN-RQRD
517020 1-ERROR-IN-SCREEN-FLAG
517030 MOVE 0-ERR-HILITE-CHAR TO MM43-LEAD-TIME-DELIM-O.
517040
520285 IF MM43-LEAD-TIME-I NOT = VM-LEAD-TIME
520290 MOVE MM43-LEAD-TIME-I TO VM-LEAD-TIME
520295 MOVE 0-TRUE-77 TO 12F2-VM-DATA-CHANGE-FLAG.
524770 MOVE MM43-LEAD-TIME-ERROR-I
524775 TO MM43-LEAD-TIME-ERROR-O.
Date of Correction:9/24/02Module:FM
Markid:P6.16Program Nbr:016
Description:
FM07 not updating vendor quote if set to calculate off of column-3.
Solution:
LIB/FM07PD
903160 IF TO-QUOTE-FLAG = 3
903170 AND TO-QUOTE-MULT < 0-ONE-77
903180 COMPUTE IW-VENDOR-QUOTE ROUNDED =
903190 TS-COL-3-PRICE * TO-QUOTE-MULT
903200 MOVE 20091231 TO IW-EFF-DT-QUOTE.
903210 IF TO-QUOTE-FLAG = 3
903220 AND TO-QUOTE-MULT < 0-ONE-77
903230 AND TS-LIST-PRICE = ZERO
903240 COMPUTE IW-VENDOR-QUOTE ROUNDED =
903250 TS-COL-3-PRICE * TO-QUOTE-MULT
903260 MOVE 20091231 TO IW-EFF-DT-QUOTE.
903270
Date of Correction:9/16/02Module:FM
Markid:P6.15Program Nbr:016
Description:
Option to base cost off of column-3 price times a multiplier is not noted on the FM91/93 screens.
Solution:
LIBPS/TCLFM
502300 " Update Repl Cost from Cost, List or Col-3 ",
502600 " Update Vend Quote from Cost. List or Col-3",
507400 " Update Repl Cost from Cost, List or Col-3 ",
507700 " Update Vend Quote from Cost. List or Col-3",
Date of Correction:7/30/02Module:FM
Markid:P6.14Program Nbr:016
Description:
Allow for ability to define unique terms codes for job/ship-to's.
Solution:
SRC/SYS/PLUSDB
310870 ST-TERMS-CODE NUMBER (2); %PSI0702
LIBPS/SCREENS16
710000 10 FM31-TERMS-CODE-DELIM-O PIC X.
710500 10 FM31-TERMS-CODE-ERROR-O.
711000 15 FM31-TERMS-CODE-O PIC ZZ.
751000 10 FM33-TERMS-CODE-DELIM-O PIC X.
751500 10 FM33-TERMS-CODE-ERROR-O.
752000 15 FM33-TERMS-CODE-O PIC ZZ.
LIBPS/TCLFM
472500 " Terms Code ",A1,UL,US,A2,RSCR,
473510 A15,A2,I2,3I4,I1,A25,I7,A4,A30,A5).
475760 " Terms Code ",A1,UL,US,A2,RSCR,
477710 A15,A2,I2,I4,I4,I4,I1,I7,A25,A4,A1,A16,A30,A5).
SRC/FM/016
140450 10 FM31-TERMS-CODE-ERROR-I.
140470 15 FM31-TERMS-CODE-I PIC 99.
142600 10 FM33-TERMS-CODE-ERROR-I.
142620 15 FM33-TERMS-CODE-I PIC 99.
596500 IF FM31-TERMS-CODE-ERROR-I NOT NUMERIC
596510 MOVE 0-TRUE-77 TO 703-ERR-MSG-83-NBR-IN-RQRD
596520 1-ERROR-IN-SCREEN-FLAG
596530 MOVE 0-ERR-HILITE-CHAR TO FM31-TERMS-CODE-DELIM-O
596540 ELSE
596550 IF FM31-TERMS-CODE-I > ZERO
596600 MOVE FM31-TERMS-CODE-I TO 990-TERMS-NBR-KEY-77
596620 MOVE 990-ACCESS-RANDOM-VA-77 TO 990-ACCESS-METHOD-77
596640 MOVE 990-COMPARE-EQUAL-VA-77 TO 990-KEY-COMPARISON-77
596650 PERFORM 997-TM-SET-FIND THRU 997-TM-SET-FIND-EXIT
596700 IF 990-DMERROR-88
596850 MOVE 0-ERR-HILITE-CHAR TO FM31-TERMS-CODE-DELIM-O.
596900
603950 MOVE FM31-TERMS-CODE-I TO ST-TERMS-CODE.
608150 MOVE FM31-TERMS-CODE-ERROR-I TO FM31-TERMS-CODE-ERROR-O.
FM/016 P6.14 CONTINUED (page 2 of 2)
614350 MOVE ST-TERMS-CODE TO FM33-TERMS-CODE-O.
621050 IF FM33-TERMS-CODE-ERROR-I NOT NUMERIC
621100 MOVE 0-TRUE-77 TO 703-ERR-MSG-83-NBR-IN-RQRD
621110 1-ERROR-IN-SCREEN-FLAG
621120 MOVE 0-ERR-HILITE-CHAR TO FM33-TERMS-CODE-DELIM-O
621130 ELSE
621140 IF FM33-TERMS-CODE-I > ZERO
621150 MOVE FM33-TERMS-CODE-I TO 990-TERMS-NBR-KEY-77
621200 MOVE 990-ACCESS-RANDOM-VA-77 TO 990-ACCESS-METHOD-77
621220 MOVE 990-COMPARE-EQUAL-VA-77 TO 990-KEY-COMPARISON-77
621250 PERFORM 997-TM-SET-FIND THRU 997-TM-SET-FIND-EXIT
621300 IF 990-DMERROR-88
621350 MOVE 0-TRUE-77 TO 703-ERR-MSG-93-INVALID-INPUT
621400 1-ERROR-IN-SCREEN-FLAG
621450 MOVE 0-ERR-HILITE-CHAR TO FM33-TERMS-CODE-DELIM-O.
621500
627650 IF FM33-TERMS-CODE-I NOT = ST-TERMS-CODE
627700 MOVE FM33-TERMS-CODE-I TO ST-TERMS-CODE
632300 MOVE FM31-TERMS-CODE-ERROR-I TO FM31-TERMS-CODE-ERROR-O.
Date of Correction:7/25/02Module:FM
Markid:P6.13Program Nbr:016
Description:
Allow for default lead time for special order items by vendor. Also, validate vendor abbrev on FM07 screen.
Note: Requires patch P6.13 for FM/013.
Solution:
SRC1/FM/016
657672 MOVE FM10-ITEM-NUMBER-I TO 990-VENDOR-ABBR-KEY-77
657673 FIND VM-DATA VIA VM-SET2
657674 AT VM-COMPANY-ID = "01"
657675 AND VM-VENDOR-ABBR = 990-VENDOR-ABBR-KEY-77
657676 ON EXCEPTION
657677 MOVE 0-TRUE-77 TO 1-ERROR-IN-SCREEN-FLAG
657678 703-ERR-MSG-154-VENDOR
657679 MOVE 0-ERR-HILITE-CHAR TO
657680 FM10-ITEM-NUMBER-DELIM-SO-O.
657950 MOVE VM-LEAD-TIME TO IW-LEAD-TIME.
LIBPS/FM07PD
858310 FIND VM-DATA VIA VM-SET2
858320 AT VM-COMPANY-ID = "01"
858330 AND VM-VENDOR-ABBR = FM07-VENDOR-ABBR-I
858340 ON EXCEPTION
858350 MOVE 0-TRUE-77 TO 1-ERROR-IN-SCREEN-FLAG
858360 703-ERR-MSG-154-VENDOR
858370 MOVE 0-ERR-HILITE-CHAR TO FM07-VENDOR-ABBR-DELIM-O.
858380
898120 IF IW-LEAD-TIME = ZERO
898140 MOVE VM-LEAD-TIME TO IW-LEAD-TIME.
Date of Correction:9/27/02Module:IN
Markid:P6.13Program Nbr:002
Description:
New fields, such as PS-TYPE, are not picked up when a kit or assembly is cloned. Also, it should use the current date as the date of file maintenance rather than cloning this field.
Solution:
LIBPS/PS22PD
710200 RECREATE PS-DATA.
711120 MOVE TODAYS-DATE TO 730-INPUT-DATE-USER
711140 PERFORM 730-CONVERT-DATE-TO-YMD
711160 THRU 730-CONVERT-DATE-TO-YMD-EXIT
711200 MOVE 730-OUTPUT-DATE-YMD TO PS-DATE-LAST-FM.
Date of Correction:8/30/02Module:IN
Markid:P6.12Program Nbr:002
Description:
Date of last file maintenance not being updated on the product structure records.
Solution:
452520 MOVE TODAYS-DATE TO 730-INPUT-DATE-USER
452540 PERFORM 730-CONVERT-DATE-TO-YMD
452560 THRU 730-CONVERT-DATE-TO-YMD-EXIT
452580 MOVE 730-OUTPUT-DATE-YMD TO PS-DATE-LAST-FM.
497120 MOVE TODAYS-DATE TO 730-INPUT-DATE-USER
497140 PERFORM 730-CONVERT-DATE-TO-YMD
497160 THRU 730-CONVERT-DATE-TO-YMD-EXIT
497180 MOVE 730-OUTPUT-DATE-YMD TO PS-DATE-LAST-FM.
Date of Correction:7/25/02Module:IN
Markid:P6.15Program Nbr:012
Description:
The over/under shipment flag on purchase history records should get
re-updated if you change the qty received via IA82.
Solution:
LIB/IA82PD
872631 IF PH-QTY-RCVD > PH-QTY-ORDERED
872632 MOVE 1 TO PH-OVERSHIP-FLAG
872633 ELSE
872634 IF PH-QTY-RCVD < PH-QTY-ORDERED
872635 MOVE 2 TO PH-OVERSHIP-FLAG
872636 ELSE
872637 MOVE 0 TO PH-OVERSHIP-FLAG.
872638 IF PH-OVERSHIP-FLAG > ZERO
872639 AND PH-PRINT-FLAG = ZERO
872640 MOVE 2 TO PH-PRINT-FLAG.
872645 MOVE PH-QTY-RCVD TO PH-QTY-ACCEPTED.
Date of Correction:7/10/02Module:IN
Markid:P6.14Program Nbr:012
Description:
(1) Do not allow user to change PO header status to CAN on a partially
received po. Use COM instead.
(2) Do not allow a po receipt date to be back dated more than 45 days.
Solution:
117160 05 32C-FUTURE-LIMIT PIC 9(8) COMP.
117170 05 32C-PAST-LIMIT PIC 9(8) COMP.
233260 MOVE "PARTIALLY RCVD: USE COM INSTEAD OF CAN"
233270 TO 703-ERROR-MSG-TABLE-LIT (31).
399343
399344 IF IA22-STATUS-I = 32-STATUS-CANCLD-VA
399345 AND PO-DT-LAST-RCVD > ZERO
399346 MOVE 0-ERR-HILITE-CHAR TO IA22-STATUS-DELIM-O
399347 MOVE 0-TRUE-77 TO 3-EDIT-ERROR-FLAG
399348 703-ERR-MSG-31-PYMT-INV-NBR.
399349
594910
594920 MOVE TODAYS-DATE TO 730-INPUT-DATE-USER
594930 PERFORM 730-CONVERT-DATE-TO-YMD
594940 THRU 730-CONVERT-DATE-TO-YMD-EXIT
594950 MOVE 730-OUTPUT-DATE-YMD TO 734-CUR-DATE-YMD.
594960 MOVE 10 TO 734-NUMBER-OF-DAYS.
594970 MOVE 734-FUTURE-DATE TO 734-PAST-FUTURE-INDICATOR.
594980 PERFORM 734-CAL-NEW-DATE THRU 734-CAL-NEW-DATE-EXIT.
594990 MOVE 734-NEW-DATE-YMD TO 32C-FUTURE-LIMIT.
595000
595010 MOVE 730-OUTPUT-DATE-YMD TO 734-CUR-DATE-YMD.
595020 MOVE 45 TO 734-NUMBER-OF-DAYS.
595030 MOVE 734-PAST-DATE TO 734-PAST-FUTURE-INDICATOR.
595040 PERFORM 734-CAL-NEW-DATE THRU 734-CAL-NEW-DATE-EXIT.
595050 MOVE 734-NEW-DATE-YMD TO 32C-PAST-LIMIT.
595070
595405 ELSE
595410 IF 730-OUTPUT-DATE-YMD > 32C-FUTURE-LIMIT
595415 OR 730-OUTPUT-DATE-YMD < 32C-PAST-LIMIT
595420 MOVE 0-TRUE-77 TO 3-EDIT-ERROR-FLAG
595425 703-ERR-MSG-117-INVLD-DATE
595430 MOVE 0-ERR-HILITE-CHAR TO IA31-DATE-RCVD-DELIM-O
Date of Correction:9/17/02Module:IN
Markid:P6.15Program Nbr:019
Description:
If you transfer an item instead of buying it, the info for the next item to buy (qty avbl, ROP, etc) comes from the wrong warehouse (the one you transferred from instead of the one you're buying for).
Solution:
LIB/PO55PD
627345 MOVE PO55-WAREHOUSE-I TO 990-WAREHOUSE-KEY-77
Date of Correction:8/13/02Module:IN
Markid:P6.14Program Nbr:019
Description:
Transfers created via po collapsing should have an order taker nbr equal to the buyer code on the collapsed po.
Solution:
LIB/PO21PD
552700 MOVE PO-BUYER-CODE TO RM-SALES-TAKE-NBR.
Date of Correction:7/22/02Module:IN
Markid:P6.13Program Nbr:019
Description:
Should still be able to inquire into expedite info after the po has been completed.
Solution:
LIB/EXPPD
682900 MOVE 0-ERR-HILITE-CHAR TO PO85-PO-NBR-DELIM-O.
683000*
683100*
683200*
683300*
683400*
Date of Correction:7/17/02Module:IN
Markid:P6.12Program Nbr:019
Description:
PO82 error screen puts part of po nbr in Next Format box.
Solution:
SRC/SYS/TCL/COMS
102596 NFMTB = "NEXT FORMAT ",4"1F",X5,4"1E401F401E"#,
LIB/TCLEXP
416900 X57,NFMTB,FORMS).
421100 X57,NFMTB,FORMS).
Date of Correction:8/8/02Module:IN
Markid:P6.11Program Nbr:421
Description:
If your Trade Service vendor options are set to block both price and cost updates, the report makes it appear as if these fields are being updated even though they are really not.
Solution:
336805*** ERROR 6 INDICATES ALL UPDATES BLOCK DUE TO VENDOR OPTIONS
336810 IF ERROR-INDEX = 6
336815 FIND IW-DATA VIA FIRST IW-SET
336820 AT IW-ITEM-NUMBER = IM-ITEM-NUMBER
336825 ON EXCEPTION
336830 MOVE 1 TO ERROR-INDEX.
336835 IF ERROR-INDEX = 6
336840 COMPUTE TRD-LIST-PRT ROUNDED = IW-BASE-SELL-PRCE * 1
336845 COMPUTE TRD-COL-1-PRT ROUNDED = IW-BASE-SELL-PRCE
336850 * IW-PRICE-COL-2
336855 COMPUTE TRD-COL-2-PRT ROUNDED = IW-BASE-SELL-PRCE
336860 * IW-PRICE-COL-3
336865 COMPUTE TRD-COL-3-PRT ROUNDED = IW-BASE-SELL-PRCE
336870 * IW-PRICE-COL-4
336875 COMPUTE TRD-COST-PRT ROUNDED = IW-STANDARD-COST * 1.
336880
Date of Correction:8/9/02Module:IN
Markid:P6.11Program Nbr:604
Description:
When an IMCOMBINE has to create a new warehouse record (because the good item does not exist for a branch that has an old item record), it should set the label flag, so that a new item label is printed for that
branch.
Solution:
275300 MOVE 1 TO IW-LABEL-FLAG.
Date of Correction:8/24/02Module:OC
Markid:P6.12Program Nbr:003
Description:
Faxed acknowledgements not handling non-taxable miscellaneous line items properly.
Solution:
128145 05 TAXBL-EXTENSION PIC S9(7)V99 COMP VALUE 0.
202365 MOVE ZERO TO TAXBL-EXTENSION.
203250 TAXBL-EXTENSION * 0-TOTAL-TAX-RATE.
204110 IF RI-TAX-FLAG = 1
204112 OR ( RM-TAX-EXCL-FLAG = ZERO AND RI-TAX-FLAG = ZERO )
204114 ADD LI-EXTENSION TO TAXBL-EXTENSION.
204116
205322 IF RM-TAX-EXCL-FLAG = ZERO
205324 AND RC-TAX-FLAG = 0-TRUE-77
205326 ADD RC-EXTENSION TO TAXBL-EXTENSION.
205330
Date of Correction:7/5/02Module:OC
Markid:P6.11Program Nbr:003
Description:
Show vendor name on faxed expedites.
Solution:
127200 10 FILLER PIC X(11) VALUE " Vendor:".
127210 10 RF04E-VENDOR-NAME PIC X(23)B.
127220
127510 10 FILLER PIC X(33) VALUE
127525 10 FILLER PIC X(6) VALUE "Type: ".
127530 10 RF04E-ORDER-TYPE PIC X(5).
127535
217335 MOVE WS-VEND-LINE-1 TO RF04E-VENDOR-NAME.
Date of Correction:9/12/02Module:OE
Markid:P6.19Program Nbr:009
Description:
Add spot to enter buyer nbr on OP81 transfer release screen.
Solution:
LIB/TCLOP
612405 US,A1,RS," Buyer Nbr",A1,US,A4,RSCR,
612460 IOP81A (A4,X1,A2,A2,8(I3,I6,A4,A8),A1,I4,A4,I7,A1,I3,A5).
LIB/SCREENS09
282295 10 OP81-BUYER-DELIM-O PIC X.
282300 10 OP81-BUYER-ERROR-O.
282305 15 OP81-BUYER-NBR-O PIC ZZZ9.
282310 10 OP81-NEXT-VENDOR-DELIM-O PIC X.
282460 10 FILLER PIC X(1177).
SRC/OE/009
135135 10 OP81-BUYER-ERROR-I.
135140 15 OP81-BUYER-NBR-I PIC 9(4).
135145 10 OP81-NEXT-VENDOR-ABBR-I PIC X(4).
135190 10 FILLER PIC X(399).
LIB/OP80PD
582345 MOVE 0-TRUE-77 TO 703-ERR-MSG-95-NO-DATA-XIST.
582350
582355 IF OP81-BUYER-ERROR-I NOT NUMERIC
582360 MOVE 0-TRUE-77 TO 1-EDIT-ERROR-FLAG
582365 703-ERR-MSG-83-NBR-IN-RQRD
582370 MOVE 0-ERR-HILITE-CHAR TO OP81-BUYER-DELIM-O
582375 ELSE
582380 IF OP81-BUYER-NBR-I = ZERO
582385 AND OP81-CREATE-FLAG-I = "Y"
582390 MOVE 0-TRUE-77 TO 1-EDIT-ERROR-FLAG
582395 703-ERR-MSG-58-INPUT-RQRD
582400 MOVE 0-ERR-HILITE-CHAR TO OP81-BUYER-DELIM-O
582405 ELSE
582410 IF OP81-CREATE-FLAG-I = "Y"
582415 MOVE OP81-BUYER-NBR-I TO 990-SALES-REP-NBR-KEY-77
582420 MOVE 990-ACCESS-RANDOM-VA-77 TO 990-ACCESS-METHOD-77
582425 MOVE 990-COMPARE-EQUAL-VA-77 TO 990-KEY-COMPARISON-77
582430 PERFORM 997-SR-SET-FIND THRU 997-SR-SET-FIND-EXIT
582435 IF 990-DMERROR-88
582440 MOVE 0-TRUE-77 TO 1-EDIT-ERROR-FLAG
582445 703-ERR-MSG-93-INVALID-INPUT
582450 MOVE 0-ERR-HILITE-CHAR TO OP81-BUYER-DELIM-O.
582455
OE/009 P6.19 CONTINUED (page 2 of 2)
582460 IF 1-EDIT-ERROR-FLAG = 0-TRUE-77
582465 PERFORM 11J3-BUILD-ERROR-SCREEN
582470 THRU 11J3-BUILD-ERROR-SCREEN-EXIT
582475 GO TO 11J-PROCESS-OP81-EXIT.
582480
585130 MOVE OP81-BUYER-ERROR-I TO OP81-BUYER-ERROR-O.
591365 IF OP81-BUYER-NBR-I > ZERO
591370 MOVE OP81-BUYER-NBR-I TO RM-SALES-REP-NBR
591375 RM-SALES-TAKE-NBR
591380 ELSE
591390 MOVE POT-MAINT-ID TO RM-SALES-TAKE-NBR
Date of Correction:9/5/02Module:OE
Markid:P6.18Program Nbr:009
Description:
Bottom of OP81 screen is messed up when continuing to second page.
Solution:
LIBTCLOP
612410 "Continue with ",A1,US,A4,RS,X1,A1,US,A8,RS,X1,
612420 A1,US,A3,RS,X15,NFMT,FORMS).
LIB/OP80PD
585240 MOVE 900 TO MCS-MSG-SIZE-77.
586440 MOVE 900 TO MCS-MSG-SIZE-77.
Date of Correction:8/1/02Module:OE
Markid:P6.17Program Nbr:009
Description:
OP07 screen changed to be used for recording shipping info (time and date shipped, truck route nbr, picker and packer nbrs.)
Solution:
SRC/SYS/PLUSDB
266280 RM-SHIP-TIME NUMBER (6); %PSI0702
LIB/OP13PD
508751 MOVE ZEROES TO RM-SHIP-TIME.
LIB/TCLOP
525000 FS,"OP07 ",RS,X16,BRNV,"UPDATE PICKI",
525100 "NG / SHIPPING DATA",SVRS,X16,FS,"FOP07",RS,
525200 UL,BR,CR,LF,@84,
525220 X5,"Ship Date & Time",A1,US,A6,RS,X1,
525240 A1,US,A2,RS,":",US,A2,RS,A1,US,A2,RS,
525260 " (AM or PM)",CR,
525265 UL,X14,"Driver",A1,US,A4,RS,
525270 UL," Picker",A1,US,A4,RS,
525275 UL," Packer",A1,US,A4,RSCR,
525280 X20,"(If data below left blank, defaults to above)",CR,
525300 " Order Number Picker Packer",
525350 " Rel to Inv Ship Date Time",CR,
525400 15(X3,A1,UL,US,A8,RS,X4,A1,UL,US,A4,RS,
525410 X3,A1,UL,US,A4,RS,X4,A1,UL,US,A1,RS,
525420 X7,A1,UL,US,A6,RS,X1,A1,UL,US,A4,RS,
525440 A1,UL,US,A2,RSCR),
525800 IOP07A (A4,X1,A5,I6,2I2,A2,3I4,15(A8,2I4,A1,I6,2I2,A2),A5).
LIB/SCREENS09
271410 10 OP07-SHIP-DATE-DELIM-O PIC X.
271420 10 OP07-SHIP-DATE-ERROR-O.
271430 15 OP07-SHIP-DATE-O PIC 9(6).
271440 10 OP07-SHIP-TIME-DELIM-O PIC X.
271450 10 OP07-SHIP-TIME-ERROR-O.
271460 15 OP07-SHIP-TIME-O PIC 9(4).
271470 10 OP07-SHIP-AM-PM-DELIM-O PIC X.
271480 10 OP07-SHIP-AM-PM-O PIC XX.
271481 10 OP07-ROUTE-CODE-DELIM-O PIC X.
271482 10 OP07-ROUTE-CODE-ERROR-O.
271483 15 OP07-ROUTE-CODE-O PIC 9(4).
271485 10 OP07-PICK-NBR-DELIM-O PIC X.
271490 10 OP07-PICK-NBR-ERROR-O.
271495 15 OP07-PICK-NBR-O PIC 9(4).
271496 10 OP07-PACK-NBR-DELIM-O PIC X.
OE/009 P6.17 CONTINUED (page 2 of 8)
271497 10 OP07-PACK-NBR-ERROR-O.
271498 15 OP07-PACK-NBR-O PIC 9(4).
271500 10 OP07-ORDER-NBRS-O OCCURS 15 TIMES.
271720 15 OP07-PICKER-DELIM-O PIC X.
271740 15 OP07-PICKER-NBR-ERROR-O.
271745 20 OP07-PICKER-NBR-O PIC Z(4).
271750 15 OP07-PACKER-DELIM-O PIC X.
271755 15 OP07-PACKER-NBR-ERROR-O.
271760 20 OP07-PACKER-NBR-O PIC Z(4).
271762 15 OP07-INVOICE-FLAG-DELIM-O PIC X.
271763 15 OP07-INVOICE-FLAG-O PIC X.
271765 15 OP07-SHIP-DAT-DELIM-O PIC X.
271770 15 OP07-SHIP-DAT-ERROR-O.
271775 20 OP07-SHIP-DAT-O PIC 9(6).
271780 15 OP07-SHIP-TIM-DELIM-O PIC X.
271785 15 OP07-SHIP-TIM-ERROR-O.
271787 20 OP07-SHIP-TIM-O PIC 9(4).
271789 15 OP07-SHIP-AM-P-DELIM-O PIC X.
271791 15 OP07-SHIP-AM-P-O PIC XX.
271800 10 FILLER PIC X(1347).
SRC1/OE/009
111960 05 11B-SHIP-DATE PIC 9(8).
112010 05 11B-SHIP-TIME PIC 9(6).
135270 10 FILLER PIC X(4).
135280 10 OP07-DEFAULT-NEXT-FORMAT-I PIC X(5).
135282 10 OP07-SHIP-DATE-ERROR-I.
135284 15 OP07-SHIP-DATE-I PIC 9(6).
135286 10 OP07-SHIP-TIME-ERROR-I.
135288 15 OP07-SHIP-TIME-I PIC 9(4).
135290 10 OP07-SHIP-AM-PM-I PIC XX.
135292 10 OP07-ROUTE-CODE-ERROR-I.
135294 15 OP07-ROUTE-CODE-I PIC 9(4).
135296 10 OP07-PICK-NBR-ERROR-I.
135298 15 OP07-PICK-NBR-I PIC 9(4).
135300 10 OP07-PACK-NBR-ERROR-I.
135302 15 OP07-PACK-NBR-I PIC 9(4).
135320 10 OP07-ORDER-NBR-I OCCURS 15 TIMES.
135342 15 OP07-PICKER-NBR-ERROR-I.
135344 20 OP07-PICKER-NBR-I PIC 9(4).
135345 15 OP07-PACKER-NBR-ERROR-I.
135346 20 OP07-PACKER-NBR-I PIC 9(4).
135350 15 OP07-INVOICE-FLAG-I PIC X.
135351 15 OP07-SHIP-DAT-ERROR-I.
135352 20 OP07-SHIP-DAT-I PIC 9(6).
135353 15 OP07-SHIP-TIM-ERROR-I.
135354 20 OP07-SHIP-TIM-I PIC 9(4).
135355 15 OP07-SHIP-AM-P-I PIC XX.
135360*
135370 10 OP07-NEXT-FORMAT-I PIC X(5).
135380 10 FILLER PIC X(127).
OE/009 P6.17 CONTINUED (page 3 of 8)
142080 VALUE 15.
142120 VALUE 45.
142140 05 OP07-STATIC-DATA-SIZE-A PIC 999 COMP
142160 VALUE 150.
484750 MOVE ZEROES TO 11B-SHIP-DATE,
484755 11B-SHIP-TIME.
484760 IF OP07-SHIP-DATE-ERROR-I NOT NUMERIC
484765 MOVE 0-TRUE-77 TO 1-EDIT-ERROR-FLAG
484770 703-ERR-MSG-83-NBR-IN-RQRD
484775 MOVE 0-ERR-HILITE-CHAR TO OP07-SHIP-DATE-DELIM-O
484780 ELSE
484785 IF OP07-SHIP-DATE-I NOT = ZEROES
484790 MOVE OP07-SHIP-DATE-I TO 730-INPUT-DATE-USER