Psi 1St Quarter 2000 - Product Status Bulletin
POWER PLUS PATCH
Date of Correction:4/27/00Module:AP
Markid:P5.11Program Nbr: 603
Description:
Add vendor abbreviation to report.
Solution:
208000 05 FILLER PIC X(30) VALUE
208100 "BUYER ABBR".
223100 05 FILLER PIC X(4) VALUE SPACES.
223200 05 611-VENDOR-ABBR PIC X(4).
500200 MOVE VM-VENDOR-ABBR TO 611-VENDOR-ABBR.
Date of Correction:6/21/00Module:FM
Markid:P5.12Program Nbr: 000
Description:
Add new IA41 and II95 screens to menus.
Solution:
LIBPS/TCLCH
00530800 X4,US,A1,RS,X2,"FIA41 Record Cut Pieces",CR,
00532600 "FII90 Inventory Audit Trail",CR,4(LF),UL,BR,CR,
00542410 X4,US,A1,RS,X2,"FII95 Show Cut Pieces",CR,
00542800 X4,US,A1,RS,X2,"SI Sales History",CR,UL,BR,
00542900 X55,"NEXT FORMAT",US,X5,RS,
SRC1/FM/000
117400 OCCURS 11 TIMES.
117500 10 FILLER PIC X(79).
120027 OCCURS 20 TIMES.
120029 10 FILLER PIC X(70).
122000 05 0-CHIA-MAX-ENTRIES PIC 99 COMP VA 11.
122382 05 0-CHII-MAX-ENTRIES PIC 99 COMP VA 20.
131031 05 FILLER PIC X(5) VALUE "FII90".
131032 05 FILLER PIC X(5) VALUE "FII95".
131042 05 0-CHII-FORMAT PIC X(5) OCCURS 20 TIMES.
146300 05 FILLER PIC X(5) VALUE "FIA41".
147400 05 0-CHIA-FORMAT PIC X(5) OCCURS 11 TIMES.
Date of Correction:4/24/00Module:FM
Markid:P5.11Program Nbr: 000
Description:
New screens SI70, FM81 / FM82 added to menus.
Solution:
120009 OCCURS 16 TIMES.
120011 10 FILLER PIC X(74).
120061 OCCURS 10 TIMES.
120071 10 FILLER PIC X(80).
122376 05 0-CHCM-MAX-ENTRIES PIC 99 COMP VA 16.
122386 05 0-CHSI-MAX-ENTRIES PIC 99 COMP VA 10.
140832 05 FILLER PIC X(5) VALUE "FFM81".
140833 05 FILLER PIC X(5) VALUE "FFM82".
140862 05 0-CHCM-FORMAT PIC X(5) OCCURS 16 TIMES.
147579 05 FILLER PIC X(5) VALUE "FSI70".
147580 05 FILLER PIC X(5) VALUE "TCHII".
147589 05 0-CHSI-FORMAT PIC X(5) OCCURS 10 TIMES.
LIB/TCLCH
00533700 "FFM22 Customer Master Record Change or Delete",CR,
00534100 "FFM28 Customer High Balance Maintenance", CR,UL,CR,
00534600 CR,
00535000 "FFM42 Change to Customer Notebook",CR,UL,CR,
00535900 "FMM52 Pricing Contract Record Change or Delete",CR,UL,CR,
00536310 X2,US,A1,RS,X2,
00536320 "FFM81 Add Customer Crib Items / Favorites ",
00536330 "/ Pricing Items",CR,
00536340 X2,US,A1,RS,X2,
00536350 "FFM82 Change Customer Crib Items / Favorites ",
00536360 "/ Pricing Items",CR,
00544140 X16, "Item or Category Class",CR,
00544160 X4,US,A1,RS,X2,"FSI70 Monthly History for a Branch & ",
00544180 "Category Class",CRLF,
Date of Correction:6/12/00Module:FM
Markid:P5.1AProgram Nbr: 004
Description:
When using the 'R' option on the AR93 screen, the next screen returns with data in the next format field.
The AR92 response screen did not show if a payment was voided.
The edit for reviewing voided payments was not working correctly.
Solution:
LIB/AR90PD
170400 IF PY-PAYMENT-VOIDED = 0-TRUE-77
170405 MOVE "PAYMENT VOIDED " TO AR92-CUST-NAME-O
170410 (11P-SCREEN-IX)
170500 ELSE
170505 MOVE PY-CUST-NAME TO AR92-CUST-NAME-O
170510 (11P-SCREEN-IX).
217404 MOVE AR92-PAYMENT-NBR-I (11P-SCREEN-IX)
217406 TO 990-PAYMENT-NBR-KEY-77
217441 CREATE PY-DATA.
217442
217443 IF AR92-VIEW-REQUEST-I (11P-SCREEN-IX) NOT = SPACE
217444 IF PY-CHECK-NBR NOT = 990-PAYMENT-NBR-KEY-77
217445 MOVE AR92-CUST-NBR-I(11P-SCREEN-IX)
217446 TO 990-CUST-NBR-KEY-77
217447 MOVE 0-FALSE-77 TO 11P-EOF-PY-DATA
217448 11P-PY-DATA-FOUND-FLAG
217449 PERFORM 11P9-FIND-NEXT-PY THRU
217450 11P9-FIND-NEXT-PY-EXIT
217451 UNTIL 0-TRUE-77 = 11P-EOF-PY-DATA
217452 OR 0-TRUE-77 = 11P-PY-DATA-FOUND-FLAG.
217454
252905 MOVE 1-FAR92-FORMAT-LIT TO MCS-FORMAT-ID
253000 PERFORM 11P75-NEXT-PAYMENT THRU
253100 11P75-NEXT-PAYMENT-EXIT
267600 MOVE AR93-DIRECTION-I TO 11P-DIRECTION.
267650*
268110 IF AR93-NEXT-RETURN-I NOT = SPACE
268112 GO TO 11P75-NEXT-PAYMENT-EXIT.
268120
Continued FM/004 P5.1A (page 2 of 2)
272602
272604 IF AR93-NEXT-RETURN-I NOT = SPACE
272610 MOVE 11P-DIRECTION TO AR92-DIRECTION-O
272612 MOVE AR93-BATCH-NBR-I TO AR92-BATCH-NBR-O
272614 MOVE 0-FALSE-77 TO 11P-EOF-PY-DATA
272626 PERFORM 11P9-AR92-DETAIL-LINES THRU
272628 11P9-AR92-DETAIL-LINES-EXIT
272630 VARYING 11P-SCREEN-IX FROM 0-ONE-77 BY 0-ONE-77
272632 UNTIL 11P-SCREEN-IX GREATER AR92-MAX-NBR-ITEMS-A
272634 OR 11P-EOF-PY-DATA = 0-TRUE-77
272638 IF 11P-EOF-PY-DATA NOT = 0-TRUE-77
272640 MOVE PY-CUST-NBR TO AR92-NEXT-CUST-NBR-O
272642 MOVE PY-CHECK-NBR TO AR92-NEXT-PAYMENT-O.
272644
272646 IF AR93-NEXT-RETURN-I NOT = SPACE
272648 GO TO 11P75A-BUILD-HEADER-INFO-EXIT.
Date of Correction:5/15/00Module:FM
Markid:P5.19Program Nbr: 004
Description:
Allow for option to see quotations on OI75 inquiry.
Solution:
LIB/TCLOI
00153950 X22,"Q = Quote Lines",CR,
LIB/OI75PD
594450 IF OI75-ALL-OPTION-I NOT = "Q"
594710 IF RM-HOLD-CODE NOT = 4
594720 IF OI75-ALL-OPTION-I = "Q"
594730 PERFORM 11CP-GET-NEXT-ORD THRU 11CP-GET-NEXT-ORD-EXIT
594740 GO TO 11CP-LOAD-OI76-LINES-EXIT.
594750
Date of Correction:4/26/00Module:FM
Markid:P5.18Program Nbr: 004
Description:
II90 not displaying customer name and number on voids and returns processed via batch O/E. Also, showing incorrect balance on voids.
Solution:
LIB/II90PD
596248 IF IA-TRANS-CODE = "OP24" OR "OP25"
596250 ADD IA-QTY-AVBL-CHG TO 11CL-RUNNING-BALANCE.
596670 IF IA-TRANS-CODE = "BILL" OR "PICK" OR "OE17" OR "OM61"
596672 OR "OM31" OR "OP22" OR "OP23" OR "OP24" OR "OP25"
596674 OR "LOST" OR "B/RET"
596676 MOVE 0-TRUE-77 TO IA-POSTED-FLAG
596678 ELSE
596680 MOVE 0-FALSE-77 TO IA-POSTED-FLAG.
596702 IF IA-POSTED-FLAG = 0-TRUE-77
596703
596711
596712 IF IA-POSTED-FLAG = 0-TRUE-77
Date of Correction:4/20/00Module:FM
Markid:P5.17Program Nbr: 004
Description:
New SI70 inquiry screen for seeing monthly sales by category class for a branch or entire company.
Note: Requires new SI70PD library.
Solution:
SRC/SYS/TCL
119102OI75,AR90,AR91,AR92,AR93,SI70.
231132OSI70A = FSI70.
231134OSI71A = FSI71.
264215ISI70A = SI70.
LIB/TCLSI
00918100
00918200 FORMAT
00918300 OSI70A (CH,
00918400 FS,"SI70 ",RS,X8,BRNV,
00918500 " REQUEST BRANCH MONTHLY SALES HISTORY ",SV,CR,
00918600 BR,UL,CR,2(LF),
00918700 X6, "Required Input:", CR,@82,
00918800 X13,"Branch or 'A' for All ",A1,US,A2,RS,CRLF,
00919300 X13,"Category Class ",A1,US,A4,RS,CR,7(LF),
00919400 @1,UL,BR,A38,X1,A38,
00919500 X57,NFMT,FORMS).
00919600 FORMAT
00919700 ISI70A (A4,X1,A2,A4,A5).
00919800 FORMAT
00919900 OSI71A (CH,
00920000 X11,BRNV,
00920100 " M O N T H L Y B R A N C H S A L E S S U M M A R Y",
00920200 DL,CR,BR,UL,CR,
00920300 " Branch: ",BR,A2,X11,A30,CR,
00920400 " Category/Class",BR,A4,X3,A36,CRLF,
00920600 NV,X14,"Period Quantity Sales Gross Profit",
00920700 " G.M.%",CR,
00920800 13(X10,A9,X1,A2,X3,A11,X1,A15,X1,A15,X1,A7,CR),LF,
00920900 X13,"Totals",X6,A11,X1,A15,X1,A15,X1,A7,CR,UL,CR,
00921000 FS,"SI70 ",RS," Next Branch ",US,A2,RS,
00921100 " Next Category/Class ",US,A4,RS,CR,
00921200 X57,NFMT,FORMS).
Continued FM/004 P5.17 (page 2 of 3)
SRC/FM/004
107050 01 BV-DATA INVOKE BV-DATA.
112900 77 11N-END-OF-BV-FLAG PIC 9.
113000 01 11N-BV-DATA.
113050 05 11N-BV-TABLE OCCURS 13 TIMES.
113100 10 11N-TOT-SALES PIC S9(9)V99 COMP.
113200 10 11N-TOT-PROFIT PIC S9(9)V99 COMP.
113300 10 11N-TOT-QTY PIC S9(7) COMP.
119814 88 SI70-I-88 VALUE "SI70".
120086 05 SI70-SCREEN-FORMAT-I REDEFINES OE00-SCREEN-FORMAT-I.
120088 10 FILLER PIC X(4).
120090 10 SI70-BRANCH-I PIC X(2).
120092 10 SI70-CATEGORY-CLASS-I PIC X(4).
120094 10 SI70-NEXT-FORMAT-I PIC X(5).
120096 10 FILLER PIC X(585).
120098
124116 05 SI70-SCREEN-SIZE-A PIC 999 COMP VA 115.
124118 05 SI71-SCREEN-SIZE-A PIC 999 COMP VA 940.
126921 05 1-FSI70-FORMAT-LIT PIC X(5) VALUE "FSI70".
126922 05 1-FSI71-FORMAT-LIT PIC X(5) VALUE "FSI71".
319908 ELSE
319910 IF SI70-I-88
319912 PERFORM 11N-PROCESS-SI70 THRU
319914 11N-PROCESS-SI70-EXIT
319916 GO TO 11-ROUTE-TRANSACTIONS-EXIT
357815 11N-SI70. COPY "LIBPS/SI70PD".
357820/
357825 11P-AR90. COPY "LIBPS/AR90PD".
910755 COPY "LIBPS/DMSBV".
LIB/SCREENS04
277200 05 SI70-SCREEN-FORMAT-O REDEFINES MCS-PROGRAM-DATA.
277300 10 FILLER PIC X(76).
277400 10 SI70-NEXT-FORMAT-O PIC X(5).
277500 10 SI70-BRANCH-DELIM-O PIC X.
277600 10 SI70-BRANCH-O PIC X(2).
277700* 10 SI70-TYPE-DELIM-O PIC X.
277800* 10 SI70-TYPE-O PIC X.
277900 10 SI70-CATEGORY-CLASS-DELIM-O PIC X.
278000 10 SI70-CATEGORY-CLASS-O PIC X(4).
278100 10 FILLER PIC X(1911).
Continued FM/004 P5.17 (page 3 of 3)
278200 05 SI71-SCREEN-FORMAT-O REDEFINES MCS-PROGRAM-DATA.
278300 10 SI71-BRANCH-O PIC X(2).
278400 10 SI71-BRANCH-NAME-O PIC X(30).
278500 10 SI71-CATEGORY-CLASS-O PIC X(4).
278600 10 SI71-DESCRIPTION-O PIC X(36).
278700 10 SI71-ENTRIES PIC X(767).
278800 10 SI71-LINE-ENTRY REDEFINES SI71-ENTRIES
278900 OCCURS 13 TIMES.
279000 15 SI71-MONTH-O PIC X(9).
279100 15 SI71-YEAR-O PIC 99.
279200 15 SI71-QUANTITY-O PIC ZZ,ZZZ,ZZ9-.
279300 15 SI71-SALES-O PIC ZZZ,ZZZ,ZZZ.99-.
279400 15 SI71-PROFIT-O PIC ZZZ,ZZZ,ZZZ.99-.
279500 15 SI71-MARGIN-O PIC ZZ9.99-.
279600 10 SI71-TOT-QUANTITY-O PIC ZZ,ZZZ,ZZ9-.
279700 10 SI71-TOT-SALES-O PIC ZZZ,ZZZ,ZZZ.99-.
279800 10 SI71-TOT-PROFIT-O PIC ZZZ,ZZZ,ZZZ.99-.
279900 10 SI71-TOT-MARGIN-O PIC ZZ9.99-.
280000 10 SI71-NEXT-BRANCH-O PIC X(2).
280100** 10 SI71-NEXT-TYPE-O PIC X(1).
280200 10 SI71-NEXT-CATEGORY-O PIC X(4).
280300 10 FILLER PIC X(1107).
Date of Correction:4/14/00Module:FM
Markid:P5.16Program Nbr: 004
Description:
Show number of orders per month on the SI40 inquiry. Also, show ending A/R balance per month on SI20 inquiry.
Solution:
LIB/TCLSI
00905000 "GM%",X7,"Ending A/R",CR,
00905100 13(A9,X1,A2,X3,A10,X7,A12,X5,A7,X3,A12,CR),
00907700 X7,"Period",X6,"Stk Demand",X6,"Sales",X5,
00907800 "Gross Profit",X5,"G.M.%",X4,"Stk Ords",CR,
00907900 13(X2,A9,X1,A2,X7,A7,X4,A10,X4,A10,X5,A7,X7,A3,CR),LF,
00908000 X9,"Totals",X5,A8,X4,A10,X4,A10,X5,A7,X6,A4,CR,
LIB/SCREENS04
267905 15 SI21-AR-BALANCE-O PIC ZZ,ZZZ,ZZ9CR.
268200 10 FILLER PIC X(1206).
270610 15 SI41-ORDERS-O PIC ZZZ.
270690 10 SI41-TOT-ORDERS-O PIC ZZZ9.
270900 10 FILLER PIC X(1193).
SRC/FM/004
112250 77 11-TOT-ORDERS PIC S9(4) COMP.
116667 10 11E8-PERIOD-ORDERS PIC 9(3) COMP.
124104 05 SI21-SCREEN-SIZE-A PIC 999 COMP VA 800.
124108 05 SI41-SCREEN-SIZE-A PIC 999 COMP VA 820.
338320 MOVE CS-AR-BALANCE (0-MONTH-INDEX)
338340 TO SI21-AR-BALANCE-O (0-MONTH-INDEX).
351015 11-TOT-ORDERS
351425 MOVE 11-TOT-ORDERS TO SI41-TOT-ORDERS-O.
352620 MOVE IW-PERIOD-ORDERS (0-MONTH-INDEX)
352640 TO SI41-ORDERS-O (0-MONTH-INDEX).
353890 ADD IW-PERIOD-ORDERS (0-MONTH-INDEX) TO 11-TOT-ORDERS.
356887 11-TOT-ORDERS
356927 MOVE 11-TOT-ORDERS TO SI41-TOT-ORDERS-O.
357007 11E8-PERIOD-ORDERS (0-MONTH-INDEX)
357147 ADD IW-PERIOD-ORDERS (0-MONTH-INDEX) TO
357148 11E8-PERIOD-ORDERS (0-MONTH-INDEX).
357178 TO SI41-SALES-O (0-MONTH-INDEX).
357181 TO SI41-GROSS-PROFIT-O (0-MONTH-INDEX).
357182 MOVE 11E8-PERIOD-ORDERS (0-MONTH-INDEX)
357183 TO SI41-ORDERS-O (0-MONTH-INDEX).
357201 ADD 11E8-PERIOD-ORDERS (0-MONTH-INDEX) TO 11-TOT-ORDERS.
Date of Correction:6/9/00Module:FM
Markid:P5.CWProgram Nbr: 008
Description:
New cut wire enhancement: New II95 inquiry into cut wire file. Also, messages on II10 & II20 screens and branching to II95 inquiry.
Note:Requires patch P5.CW to IN/012
Requires new II95PD library
Solution:
SRC/SYS/TCL/COMS
00122700 IV41, SI10, SI11, SI30, SI31, II95.
00126300 IA21, IA22, IA23, IA25, IA31, IA32, IA33, IA41,
00193450 OIA41A = FIA41.
00200710 OII95A = FII95.
00200720 OII96A = FII96.
00234650 IIA41A = IA41.
00239950 III95A = II95.
SRC/FM/008
101860 01 CW-DATA INVOKE CW-DATA.
103205 77 11CR-SCREEN-INDEX PIC 99 COMP.
103210 77 11CR-END-OF-SCREEN-FLAG PIC 9 COMP.
119690 88 II95-I-88 VALUE "II95".
132072
132074 05 II95-SCREEN-FORMAT REDEFINES OE00-SCREEN-FORMAT-I.
132076 10 FILLER PIC X(4).
132078 10 II95-ITEM-NUMBER-I PIC X(24).
132080 10 II95-WAREHOUSE-I PIC X(2).
132082 10 II95-START-INPUT-I.
132084 15 II95-SIZE-I PIC 9(6).
132086 15 II95-REEL-NBR-I PIC 9(5).
132088 15 II95-DATE-I PIC 9(6).
132090 10 II95-NEXT-FORMAT-I.
132092 15 FILLER PIC XX.
132094 15 II95-NEXT-FORMAT-3-5-I PIC X(3).
132100 10 FILLER PIC X(548).
141740 05 II95-SCREEN-SIZE-A PIC 999 COMP VA 130.
141745 05 II96-SCREEN-SIZE-A PIC 999 COMP VA 750.
CONTINUED FM/008 P5.CW (page 2 of 4)
142250
142260 01 II11-CUT-PIECE-MSG.
142270 05 FILLER PIC 99 COMP VALUE @18@.
142280 05 FILLER PIC X(29) VALUE
142290 "Enter / in Next-F to see cuts".
142300 01 II21-CUT-PIECE-MSG.
142320 05 FILLER PIC 99 COMP VALUE @3F@.
142340 05 FILLER PIC X(21) VALUE
142360 "/ in N-F to view cuts".
142380 05 FILLER PIC 99 COMP VALUE @1E@.
147397 05 1-FII81-FORMAT-LIT PIC X(5) VALUE "FII81".
147398 05 1-FII95-FORMAT-LIT PIC X(5) VALUE "FII95".
147399 05 1-FII96-FORMAT-LIT PIC X(5) VALUE "FII96".
489522 ELSE
489524 IF II95-I-88
489526 PERFORM 11CR-PROCESS-II95 THRU 11CR-PROCESS-II95-EXIT
558630 11CC-BUILD-SCREEN-EXIT.
558632 EXIT.
558635 11CC-MOVE-LINE-DATA.
558640 IF II11-OTHR-DESCRIPTION-5-O NOT = SPACES
558641 MOVE 0-FALSE-77 TO IW-COMBINE-CODE.
558642 IF IW-COMBINE-CODE = 0-TRUE-77
558643 FIND KEY OF FIRST CW-SET1
558644 AT CW-ITEM-NUMBER = IW-ITEM-NUMBER
558645 AND CW-WAREHOUSE = IW-WAREHOUSE
558646 ON EXCEPTION
558647 MOVE 0-FALSE-77 TO IW-COMBINE-CODE.
558648 IF IW-COMBINE-CODE = 0-TRUE-77
558649 MOVE II11-CUT-PIECE-MSG TO
558650 II11-OTHR-DESCRIPTION-5-O.
558651
562591 IF IW-COMBINE-CODE = 0-TRUE-77
562592 FIND KEY OF FIRST CW-SET1
562593 AT CW-ITEM-NUMBER = IW-ITEM-NUMBER
562594 AND CW-WAREHOUSE = IW-WAREHOUSE
562595 ON EXCEPTION
562596 MOVE 0-FALSE-77 TO IW-COMBINE-CODE.
562597 IF IW-COMBINE-CODE = 0-TRUE-77
562598 MOVE II21-CUT-PIECE-MSG TO II21-QTY-DISPLAY-MSG-O.
562599
575850 II95-INQUIRY. COPY "LIBPS/II95PD".
736055 AND "/" AND "95"
737860 IF 658-NEXT-FUNCTION = "/" OR "95"
737870 MOVE "II95" TO OE00-TRANS-CODE-I
737880 MOVE 658-NEXT-ITEM-NUMBER TO II95-ITEM-NUMBER-I
CONTINUED FM/008 P5.CW (page 3 of 4)
737890 MOVE 658-NEXT-WAREHOUSE TO II95-WAREHOUSE-I
737900 MOVE SPACES TO II95-START-INPUT-I
737910 PERFORM 11CR-PROCESS-II95 THRU 11CR-PROCESS-II95-EXIT
737960 GO TO 658-NEXT-INQUIRY-EXIT.
LIB/SCREENS08
330000 05 II95-SCREEN-FORMAT-O REDEFINES MCS-PROGRAM-DATA.
330100 10 FILLER PIC X(76).
330200 10 II95-NEXT-FORMAT-O PIC X(5).
330300 10 II95-ITEM-NUMBER-DELIM-O PIC X.
330400 10 II95-ITEM-NUMBER-O PIC X(24).
330500 10 II95-WAREHOUSE-DELIM-O PIC X.
330600 10 II95-WAREHOUSE-O PIC X(2).
330800 10 II95-NEXT-SIZE-O PIC X(6).
330900 10 II95-NEXT-REEL-NBR-O PIC X(5).
331000 10 II95-NEXT-DATE-O PIC 9(6).
331700 10 FILLER PIC X(1874).
331800 05 II96-SCREEN-FORMAT-O REDEFINES MCS-PROGRAM-DATA.
331900 10 II96-ITEM-NUMBER-O PIC X(24).
332000 10 II96-ITEM-DESCRIPTION-O PIC X(30).
332100 10 II96-WAREHOUSE-O PIC X(2).
332400 10 II96-ON-HAND-O PIC Z(5)9-.
332500 10 II96-LINE-ENTRY OCCURS 16 TIMES.
332600 15 II96-SIZE-O PIC Z(5)9.
332700 15 II96-REEL-NBR-O PIC ZZZ99.
332800 15 II96-DATE-O PIC Z9/99/99.
332900 15 II96-COMMENT-O PIC X(20).
333600 10 II96-NEXT-ITEM-NUMBER-O PIC X(24).
333700 10 II96-NEXT-WAREHOUSE-O PIC X(2).
333800 10 II96-NEXT-SIZE-O PIC 9(6).
333900 10 II96-NEXT-REEL-NBR-O PIC 9(5).
334000 10 II96-NEXT-DATE-O PIC 9(6).
334100 10 II96-NEXT-FORMAT-O PIC X(5).
334200 10 FILLER PIC X(1265).
CONTINUED FM/008 P5.CW (page 4 of 4)
LIB/TCLII
00731020
00733000 FORMAT
00733050 OII95A (CH,
00733100 FS,"II95 ",RS,X11,BRNV,"REQUEST CUT PIECE INQUIRY",
00733150 DL,CR,UL,BR,CR,LF,
00733200 X10,"Required Input: ", CR,
00733250 X15,"Item Number ",@82,A1,UL,US,A24,RSCRLF,
00733300 X15,"Warehouse ",A1,UL,US,A2,RS,CR,LF,LF,
00733350 X37,FS,A17,RSCR,5(LF),
00733400 @1,UL,BR,A38,X1,A38,
00733450 X57,"NEXT FORMAT ",US,A5,RS,X1,PARK,FORMS).
00733500 FORMAT
00733550 III95A (A4,X1,A24,A2,I6,I5,I6,A5).
00733600 FORMAT
00733650 OII96A (CH,
00733700 X17,BRNV,"CUT PIECE DISPLAY ",DL,CR,UL,BR,CR,
00733750 "Item Number/Description: ",A24,X1,A30,
00733800 "Warehouse: ",A2,X12,"On Hand: ",A7,CR,LF,
00733850 UL," Size Reel# Cut Date Comment",CR,
00733900 15(X3,A6,X5,A5,X4,A8,X4,A20,CR),
00733920 UL,X2,A6,X5,A5,X4,A8,X4,A20,CR,
00733950 FS,"II95 ",RS," Next Item ",US,A24,RS," Whse ",
00734000 US,A2,RS,X1,US,A6,RS,X1,US,A5,RS,X1,US,A6,RS,
00734050 X52,NFMT,FORMS,4(TAB)).
Date of Correction:5/17/00Module:FM
Markid:P5.16Program Nbr: 008
Description:
If you have multiple open PO line items that have a sales order number specified on them, the OI10 inquiry does not always show a PO nbr for the unfilled sales order lines.
Solution:
LIB/773PD
810550OR (PI-RM-ORDER-ROOT = RM-ORDER-ROOT)
Date of Correction:4/21/00Module:FM
Markid:P5.12Program Nbr: 016
Description:
Track date of last price / cost change.
Solution:
470523 MOVE 1282-SAVE-COL-3-PRICE TO IW-PREV-PRICE-1
470524 MOVE 0-TODAYS-DATE-YMD TO IW-DT-LAST-CYCLE.
470525 IF 1282-NEW-STANDARD-COST NOT = 1282-SAVE-STANDARD-COST
470526 MOVE IW-PREV-COST-1 TO IW-PREV-COST-2
470527 MOVE 1282-SAVE-STANDARD-COST TO IW-PREV-COST-1
470528 MOVE 0-TODAYS-DATE-YMD TO IW-DT-LAST-CYCLE.
470529 1282-MOVE-CHANGES-EXIT.
470530 EXIT.
Date of Correction:4/21/00Module:FM
Markid:P5.12Program Nbr: 321
Description:
Track date of last price / cost change.
Solution:
119330 IW-DT-LAST-CYCLE
122430 IW-DT-LAST-CYCLE
Date of Correction:4/18/00Module:GL
Markid:P5.11Program Nbr: 126
Description:
Show ending balance on monthly sub-total line.
Solution:
272492 05 616-STOTAL-ENDING-BAL PIC Z(5),ZZZ,ZZZ.99- BLANK ZERO.
544260 MOVE 0-ACCOUNT-BALANCE TO 616-STOTAL-ENDING-BAL
544270
Date of Correction:5/18/00Module:IN
Markid:P5.11Program Nbr: 002
Description:
Add type code to product structure dataset and maintenance screen in order to distinguish between kits, assemblies and complementary items.
Solution:
109050 10 PS11-TYPE-I PIC X.
110700 10 FILLER PIC X(222).
450110 IF PS11-TYPE-I = "C"
450120 MOVE 0-THREE-77 TO IM-ASSEMBLY-FLAG
450130 ELSE
450140 IF PS11-TYPE-I = "A"
450150 MOVE 0-TWO-77 TO IM-ASSEMBLY-FLAG
450160 ELSE
450200 MOVE 0-ONE-77 TO IM-ASSEMBLY-FLAG.
450250 MOVE IM-ASSEMBLY-FLAG TO PS-TYPE.
LIBPS/SCREENS02
100320 10 PS11-TYPE-DELIM-O PIC X.
100340 10 PS11-TYPE-O PIC X.
102800 10 FILLER PIC X(1128).
LIBPS/TCLPS
00101400 "Parent Item Number ",A1,UL,US,A24,RS,
00101405 X4,"Type",A1,UL,US,A1,RS," (K, A or C)",CR,
00102700 IPS11A (A4,X1,A24,A1,8(A24,I4,A3,I6,I6),A5).
Date of Correction:6/20/00Module:IN
Markid:P5.13Program Nbr: 012
Description:
If you receive the remaining quantity on a PO line item into suspense, then the line item should be marked complete.
Solution:
648755 IF IA32-SUSPENSE-FLAG-I (32-LINE-INDEX) = "Y"
648760 COMPUTE 32-QTY-OPEN = PI-QTY-ORDERED -
648765 ( PI-QTY-RCVD + 32-QTY-RCVD )
648775 ELSE
648780 COMPUTE 32-QTY-OPEN = PI-QTY-ORDERED -
648785 ( PI-QTY-ACCEPTED + 32-QTY-ACCEPTED ).
Date of Correction:6/20/00Module:IN
Markid:P5.12Program Nbr: 012
Description:
If you do PO maintenance to cancel or complete the remaining line items on a purchase order, the system is not changing the status on the PO header to "complete".
Solution:
416000 IF PO-NBR-OPEN-ITEMS = ZERO
416050 MOVE 32-STATUS-COMPLETE-VA TO PO-STATUS-CODE
416100 MOVE 738-OUTPUT-DATE-YYMMDD TO PO-CLOSED-DATE.
492950 IF PO-NBR-OPEN-ITEMS = ZERO
492960 MOVE 32-STATUS-COMPLETE-VA TO PO-STATUS-CODE
492970 MOVE 738-OUTPUT-DATE-YYMMDD TO PO-CLOSED-DATE.
492990 32A1-CHNG-STATUS-EXIT.
Date of Correction:6/9/00Module:IN
Markid:P5.CWProgram Nbr: 012
Description:
Note: Requires new IA41PD library.
New cut wire enhancement: New IA41 screen for updating cut wire file.
Solution:
LIBPS/TCLIA
00653800 FORMAT
00653900 OIA41A (CH,FS,"IA41 ",RS,X10,BRNV," R E C O ",
00654000 "R D C U T P I E C E S",DL,CR,BR,UL,CR,
00654200 X28,"Warehouse ",@153,A1,UL,US,A2,RSCR,LF,
00654700 @1,BR,A38,X2,A38,CR,
00654800 BRNV," Item Number",X16,"Reel Nbr Size +/-",
00654900 X6,"Comment",CR,
00655100 @161,8(A1,UL,US,A24,RS,X1,
00655150 A1,UL,US,A5, RS,X2,
00655200 A1,UL,US,A6, RS,UL,A1,US,A1,RS,X1,
00655300 A1,UL,US,A20,RS,
00655600 BR,A38,X2,A38,CR),
00655700 X56,"NEXT FORMAT ",@182,US,A5,RS,X1,US,X1,RS,FORMS).
00655900 FORMAT
00656000 IIA41A (A4,X1,A2,8(A24,I5,I6,A1,A20),A5).
00656100
LIBPS/SCREENS12
137000 05 IA41-SCREEN-FORMAT-O REDEFINES MCS-PROGRAM-DATA.
137100 10 FILLER PIC X(152).
137200 10 IA41-WAREHOUSE-DELIM-O PIC X.
137300 10 IA41-WAREHOUSE-O PIC XX.
138400 10 IA41-NEXT-FORMAT-O PIC X(5).
138500 10 IA41-REPEAT-AREA-O PIC X(1096).
138600 10 IA41-LINE-ENTRY-O REDEFINES
138700 IA41-REPEAT-AREA-O OCCURS 8 TIMES.
138800 15 IA41-ITEM-NUMBER-DELIM-O PIC X.
138900 15 IA41-ITEM-NUMBER-O PIC X(24).
138950 15 IA41-REEL-NBR-DELIM-O PIC X.
139000 15 IA41-REEL-NBR-ERROR-O.
139050 20 IA41-REEL-NBR-O PIC Z(5).
139200 15 IA41-SIZE-DELIM-O PIC X.
139300 15 IA41-SIZE-ERROR-O.
139400 20 IA41-SIZE-O PIC Z(5)9.
139600 15 IA41-SIGN-DELIM-O PIC X.
139700 15 IA41-SIGN-O PIC X.
139800 15 IA41-COMMENT-DELIM-O PIC X.
139900 15 IA41-COMMENT-O PIC X(20).
Continued IN/012 P5.CW (page 2 of 3)
140000 15 IA41-ERROR-LINE-O PIC X(38)
140100 OCCURS 2 TIMES.
140200 10 FILLER PIC X(744).
SRC1/IN/012
104530 01 CW-DATA.
126680 05 32Y-CW-FOUND-FLAG PIC 9 COMP.
126690 05 32Y-QTY PIC S9(6) COMP.
126695 05 32Y-DELETE-FLAG PIC 9.
153000 05 IA41-SCREEN-FORMAT-I REDEFINES IA00-SCREEN-FORMAT-I.
153050 10 IA41-TRANS-CODE-I PIC X(4).
153100 10 IA41-WAREHOUSE-I PIC XX.
153200 10 IA41-REPEAT-AREA-I PIC X(448).
153300 10 IA41-LINE-ENTRY-I REDEFINES
153400 IA41-REPEAT-AREA-I OCCURS 8 TIMES.
153500 15 IA41-ITEM-NUMBER-I PIC X(24).
153600 15 IA41-REEL-NBR-ERROR-I.
153700 20 IA41-REEL-NBR-I PIC 9(5).
153800 15 IA41-SIZE-ERROR-I.
153900 20 IA41-SIZE-I PIC 9(6).
154000 15 IA41-SIGN-I PIC X.
154100 15 IA41-COMMENT-I PIC X(20).
154200 10 IA41-NEXT-FORMAT-I PIC X(5).
154300 10 FILLER PIC X(641).
166160 05 IA41-MAX-NBR-LINES-A PIC 9 COMP VALUE 8.
166165 05 IA41-MAX-NBR-DETAIL-ERRORS-A PIC 9 COMP VALUE 2.
166170 05 IA41-STATIC-DATA-SIZE-A PIC 999 COMP VALUE 160.
166175 05 IA41-VARIABLE-DATA-SIZE-A PIC 999 COMP VALUE 132.
166180 05 IA41-TOTAL-DATA-SIZE-A PIC 9(4) COMP VALUE 1220.
244804 IF IA41-TRANS-CODE-I-88
244806 PERFORM 32Y-PROCESS-IA41 THRU 32Y-PROCESS-IA41-EXIT
244810 ELSE
869930 COPY "LIBPS/IA41PD".
Continued IN/012 P5.CW (page 3 of 3)
SRC1/SYS/PLUSDB
00377500
00377600%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
00377700% CUT WIRE TRACKING
00377800%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
00377900 CW-DATA DATA SET ( %PREFIX = CW
00378000 CW-ITEM-NUMBER ALPHA (24);
00378100 CW-WAREHOUSE ALPHA (2);
00378200 CW-REEL-NBR NUMBER (5);
00378300 CW-QTY NUMBER (6);
00378400 CW-DATE-LAST-UPD NUMBER (8);
00378500 CW-NARRATIVE ALPHA (20););
00378600
00378700 CW-SET1 SET OF CW-DATA
00378800 KEY ( CW-ITEM-NUMBER,
00378900 CW-WAREHOUSE,
00379000 CW-QTY,
00379020 CW-REEL-NBR,
00379040 CW-DATE-LAST-UPD ) DUPLICATES LAST;
00379100
00379200 CW-SET2 SET OF CW-DATA
00379300 KEY ( CW-ITEM-NUMBER,
00379400 CW-WAREHOUSE,
00379500 CW-REEL-NBR,
00379550 CW-DATE-LAST-UPD ) DUPLICATES LAST;
00379600
Date of Correction:6/23/00Module:IN
Markid:P5.13Program Nbr: 019
Description:
When you specify a next PO number at the bottom of the PO86 expedite screen, the response screen sometimes shows an erroneous item number and description.
Solution:
LIBPS/EXPPD
694120 IF ( PO85-ITEM-1ST-CHAR = "A"
694125 AND PO85-ITEM-2-4 = SPACES )
694130 OR ( PO86-I-88
694135 AND PO86-LINE-NUMBER-I = ZERO )
Date of Correction:6/5/00Module:IN
Markid:P5.12Program Nbr: 019
Description:
Next format gets filled in with garbage on PO85 error screen.
Solution:
LIB/PCLEXP
00424750 X10,FS,X3,RS,
00424800 X42,US,X5,RS,X1,PARK,FORMS).
Date of Correction:5/19/00Module:IN
Markid:P5.11Program Nbr: 021
Description:
Add option to list out complementary items.
Solution:
101220* SW1 = 3 FOR COMPLEMENTARY
101240* ITEM LIST
113405
113410 01 1A-HEADING-2.
113415 05 FILLER PIC X(9) VALUE
113420 "PROG ID: ".
113425 05 FILLER PIC X(43) VALUE
113430 "IN/021".
113440 05 FILLER PIC X(31) VALUE
113445 "COMPLEMENTARY ITEM LIST".
113450
113455 01 1A-HEADING-3.
113460 05 FILLER PIC X(10) VALUE
113465 "RUN DATE: ".
113470 05 1A-RUN-DATE-PRT PIC 99/99/99.
113475 05 FILLER PIC X(99) VALUE SPACES.
113495 05 FILLER PIC X(6) VALUE
113500 "PAGE: ".
113505 05 1A-PAGE-NBR-PRT PIC ZZZ9 VALUE ZERO.
113515
113520 01 1A-HEADING-4.
113525 05 FILLER PIC X(30) VALUE
113530 "ITEM NBR / COMPLEMENTARY ITEM ".
113535 05 FILLER PIC X(30) VALUE
113540 " DESCRIPTION ".
113545 05 FILLER PIC X(30) VALUE
113550 " USAGE PRICE ".
113555 05 FILLER PIC X(30) VALUE
113560 " COST DATE IN ".
113565 05 FILLER PIC X(12) VALUE
113570 " DATE OUT ".
113590
123200 IF ATTRIBUTE TASKVALUE OF MYSELF < 1 OR > 3
123500 DISPLAY "2 FOR IMPLOSION (WHERE USED) REPORT OR"
123550 DISPLAY "3 FOR COMPLEMENTARY ITEM LIST"
Continued IN/021 P5.11 (page 2 of 2)
126100 IF ATTRIBUTE TASKVALUE OF MYSELF = 3
126150 OPEN OUTPUT PRINTFILE1
126200 MOVE SPACE TO 11-DETAIL-1
126250 MOVE TODAYS-DATE TO 1A-RUN-DATE-PRT
126300 PERFORM 11-HEADING-PRT
126350 THRU 11-HEADING-PRT-EXIT
126400 PERFORM 1-PROCESS
126450 THRU 1-PROCESS-EXIT.
126500
126600 CLOSE PLUSDB.
126700 IF ATTRIBUTE TASKVALUE OF MYSELF = 1 OR 3
130810 IF ATTRIBUTE TASKVALUE OF MYSELF = 1
130820 IF PS-TYPE = 3
130830 GO TO 11-PROCESS-EXIT.
130840 IF ATTRIBUTE TASKVALUE OF MYSELF = 3
130850 IF PS-TYPE NOT = 3
130860 GO TO 11-PROCESS-EXIT.
130870
146300 MOVE 11-PAGE-COUNTER-77 TO 11-PAGE-NBR-PRT,
146350 1A-PAGE-NBR-PRT.
146400 WRITE PRT-REC1 FROM 11-HEADING-1 BEFORE ADVANCING 2.
146450 IF ATTRIBUTE TASKVALUE OF MYSELF = 1
146500 WRITE PRT-REC1 FROM 11-HEADING-2 BEFORE ADVANCING 2
146600 WRITE PRT-REC1 FROM 11-HEADING-3 BEFORE ADVANCING 2
146700 WRITE PRT-REC1 FROM 11-HEADING-4 BEFORE ADVANCING 1
146720 ELSE
146740 WRITE PRT-REC1 FROM 1A-HEADING-2 BEFORE ADVANCING 2
146760 WRITE PRT-REC1 FROM 1A-HEADING-3 BEFORE ADVANCING 2
146780 WRITE PRT-REC1 FROM 1A-HEADING-4 BEFORE ADVANCING 1.
Date of Correction:6/12/00Module:IN
Markid:P5.13Program Nbr: 041
Description:
If you have multiple parameters (by warehouse), the program does not properly pick up the default forecast method. Instead, it defaults to "Best Forecast".
Solution:
127000 15 0-DEFAULT-FCST PIC 9.
Date of Correction:5/2/00Module:IN
Markid:P5.12Program Nbr: 041
Description:
If an item has less than 4 months of history, trend regression can calculate unusual forecasts.
Solution:
200450 IF 515-COUNTER < ZERO
200500 MOVE ZERO TO IW-PTD-FORECAST.
Date of Correction:4/10/00Module:IN
Markid:P5.11Program Nbr: 041
Description:
Should update the beginning of the year date in SP-DATA when run at year-end.
Solution:
157210
157220 IF 0-YEAR-END-FLAG = 0-TRUE-77
157230 PERFORM 0A-UPDATE-BEG-OF-YEAR-DATE
157240 THRU 0A-UPDATE-BEG-OF-YEAR-EXIT.
157250
157605 0A-UPDATE-BEG-OF-YEAR-DATE.
157610 MOVE 990-ACCESS-FIRST-VA-77 TO 990-ACCESS-METHOD-77.
157615 PERFORM 997-SP-DATA-MODIFY THRU 997-SP-DATA-MODIFY-EXIT.
157620 IF 990-DMERROR-88
157625 MOVE "157620" TO 0-PARAGRAPH-NAME-PRT
157630 MOVE "SP-DATA LOCK" TO 0-OTHER-ERROR-INFO-PRT
157635 MOVE 0-FATAL-ERROR-MSG-PRT TO 702-USER-ERROR-MESSAGE
157640 PERFORM 702-FATAL-ERROR THRU 702-FATAL-ERROR-EXIT.
157645 MOVE 0-TODAYS-DATE-YMD TO SP-PND-DATE-IA,
157650 BEGIN-TRANSACTION NO-AUDIT AU-DATA.
157655 PERFORM 997-SP-DATA-STORE THRU 997-SP-DATA-STORE-EXIT.
157660 IF 990-DMERROR-88
157665 MOVE "157660" TO 0-PARAGRAPH-NAME-PRT
157670 MOVE "SP-DATA STORE" TO 0-OTHER-ERROR-INFO-PRT
157675 MOVE 0-FATAL-ERROR-MSG-PRT TO 702-USER-ERROR-MESSAGE
157680 PERFORM 702-FATAL-ERROR THRU 702-FATAL-ERROR-EXIT.
157685 END-TRANSACTION NO-AUDIT AU-DATA.
157690 0A-UPDATE-BEG-OF-YEAR-EXIT.
157695 EXIT.
Date of Correction:5/2/00Module:IN
Markid:P5.12Program Nbr: 045
Description:
If an item has multiple backorders, the 785 routine might not calculate the future request date properly. This could, in some cases, result in it suggesting a buy for a backorder that it should skip.