POWER PLUS PATCH
Date of Correction: 12/22/08 Module: AP
Markid: P7.31 Program Nbr: 003
Description:
Allow for separate series of batch numbers by subsystem, which makes it easier to retain batches.
Note: Requires patches P7.31 for GL/003 and P7.37 for AP/005.
Solution:
231900 MOVE 0-TWO-77 TO 990-SUBSYSTEM-KEY-77.
291105 IF 15-LAST-BATCH-NBR-WS > 9990
291112 AT BB-SUBSYSTEM = 990-SUBSYSTEM-KEY-77
291115 AND BB-BATCH-NBR = 3000
291150 IF 15-LAST-BATCH-NBR-WS > 9990
291300 MOVE 990-SUBSYSTEM-KEY-77 TO BB-SUBSYSTEM.
850300 MOVE BB-SUBSYSTEM TO BD-SUBSYSTEM.
943810 OR ( BB-SUBSYSTEM > 990-SUBSYSTEM-KEY-77 )
970610 COPY "LIBPS/DMSBB".
970640 COPY "LIBPS/DMSBD".
Date of Correction: 12/29/08 Module: AP
Markid: P7.38 Program Nbr: 005
Description:
Add option to unmark a receipt as being invoiced.
Requires new library LIBPS/PI95PD.
Solution:
SRC1/AP/005
128350 88 PI95-I-88 VALUE "PI95".
402950 MOVE "RECEIVER IS ALREADY MARKED AS UNBILLED"
403000 TO 703-ERROR-MSG-TABLE-LIT (33).
411070 IF PI95-I-88
411080 PERFORM 15F-PROCESS-PI95 THRU 15F-PROCESS-PI95-EXIT
411090 ELSE
673250 COPY "LIBPS/PI95PD".
SRC1/SYS/TCL/COMS
00135450 PI12, PI13, PI70, PI71, PI95.
00229160 OPI95A = FPI95.
00262550 IPI95A = PI95.
LIBPS/TCLPI
00107700 "Report",CRLF,
00107800 " FPI95 Unmark Receipts as Having Been Invoiced",
00107900 CR,6(LF),
00215670 @1,BR,A38,X1,A38,CR,X57,@103,NFMT,FORMS).
00218000 FORMAT %
00218100 OPI95A (CH,
00218200 FS,"PI95 ",RS,X11,@77,BR,NV,X8,
00218300 "UNMARK RECEIPTS AS BEING INVOICED",
00218400 SV,CR,UL,BR,CRLF,LF,
00218500 X10,"REQUIRED:",CR,
00218600 X18,"Purchase Order Nbr ",A1,UL,US,A10,RSCRLF,
00218700 X18,"Receiver Number ",A1,UL,US,A10,RSCRLF,LF,
00218800 X10,"OPTIONAL:",CR,
00218900 X18,"Line Number ",A1,UL,US,A3,RSCRLF,
00219000 X18,"If no line nbr specified, Unmark entire Receiver",CR,
00219100 5(LF),UL,BR,CR,
00219200 @1,BR,A38,X1,A38,CR,X57,@103,NFMT,FORMS).
00219300 FORMAT
00219400 IPI95A (A4,X1,A10,A10,I3,A5).
Date of Correction: 12/22/08 Module: AP
Markid: P7.37 Program Nbr: 005
Description:
Allow for separate series of batch numbers by subsystem, which makes it easier to retain batches.
Note: Requires patches P7.31 for GL/003 and P7.31 for AP/003.
Solution:
SRC1/AP/005
401900 MOVE 3 TO 990-SUBSYSTEM-KEY-77.
461205 IF 15-BATCH-NBR-WS > 9990
461212 AT BB-SUBSYSTEM = 990-SUBSYSTEM-KEY-77
461215 AND BB-BATCH-NBR = 3000
461250 IF 15-BATCH-NBR-WS > 9990
461500
462100 MOVE 990-SUBSYSTEM-KEY-77 TO BB-SUBSYSTEM.
686500 OR ( BB-SUBSYSTEM > 990-SUBSYSTEM-KEY-77 )
723700 COPY "LIBPS/DMSBB".
724100 COPY "LIBPS/DMSBD".
Date of Correction: 12/8/08 Module: AP
Markid: P7.36 Program Nbr: 005
Description:
AP/PO batch invoice entry occasionally loses the correct value for the next line number to assign, which results in an abort with a Duplicates exception.
Solution:
110600 77 WS-BD-DATA PIC X(180).
483920 OR (( PI11-INVOICE-NBR-I = SPACES )
483940 AND ( PI11-INVOICE-AMOUNT-I = ZEROS )
483990 AND ( PI11-RCVR-NBR-I = SPACES ))
536020 IF 990-DUPLICATES-88
536030 DISPLAY " DUP LINE NBR = " BD-LINE-NBR
536040 PERFORM 1523-FIX-LINE-NBR
536060 ELSE
537810 EXIT.
537820 1523-FIX-LINE-NBR.
537825 MOVE BD-DATA TO WS-BD-DATA.
537830 MOVE 990-ACCESS-RANDOM-VA-77 TO 990-ACCESS-METHOD-77.
537840 MOVE 990-COMPARE-EQUAL-VA-77 TO 990-KEY-COMPARISON-77.
537850 MOVE 15-BATCH-NBR-WS TO 990-BD-BATCH-NBR-KEY-77.
537860 MOVE 0-HIGH-VALUES-77 TO 990-BD-LINE-NBR-KEY-77.
537870 PERFORM 997-BD-SET-FIND THRU 997-BD-SET-FIND-EXIT.
537880 IF 990-DMERROR-88
537885 MOVE 990-ACCESS-PRIOR-VA-77 TO 990-ACCESS-METHOD-77
537890 PERFORM 997-BD-SET-FIND THRU 997-BD-SET-FIND-EXIT.
537895 IF BD-BATCH-NBR = 15-BATCH-NBR-WS
537900 COMPUTE 15-NEXT-LINE-WS = BD-LINE-NBR + 0-ONE-77
537910 ELSE
537920 MOVE 0-ONE-77 TO 15-NEXT-LINE-WS.
537930 CREATE BD-DATA.
537940 MOVE WS-BD-DATA TO BD-DATA.
537950 MOVE 15-NEXT-LINE-WS TO BD-LINE-NBR.
537960 PERFORM 997-BD-DATA-STORE THRU 997-BD-DATA-STORE-EXIT.
537970 IF 990-DMERROR-88
537975 MOVE "537960" TO 0-PARAGRAPH-NAME-PRT
537980 MOVE "BD-DATA-STORE" TO 0-OTHER-ERROR-INFO-PRT
537985 MOVE 0-FATAL-ERROR-MSG-PRT TO 702-USER-ERROR-MESSAGE
537990 PERFORM 702-FATAL-ERROR THRU 702-FATAL-ERROR-EXIT.
Date of Correction: 10/30/08 Module: AP
Markid: P7.31 Program Nbr: 171
Description:
To better handle buying groups, check register should sort invoices by purchasing vendor.
Solution:
175100 05 EXT-VENDOR-NBR PIC 9(7).
190100 05 SRT-VENDOR-NBR PIC 9(7).
525100 SRT-VENDOR-NBR,
556100 MOVE AP-VENDOR-NBR TO EXT-VENDOR-NBR.
Date of Correction: 12/22/08 Module: AP
Markid: P7.31 Program Nbr: 201
Description:
Allow for separate series of batch numbers by subsystem, which makes it easier to retain batches.
Note: Requires patches P7.31 for GL/003 and P7.31 for AP/003.
Solution:
SRC1/AP/201
408550 AND BB-SUBSYSTEM = 2
412050 OR ( BB-SUBSYSTEM NOT = 2 )
414050 AND BD-SUBSYSTEM = 2
437650 OR ( BD-SUBSYSTEM NOT = BB-SUBSYSTEM )
Date of Correction: 12/22/08 Module: AP
Markid: P7.33 Program Nbr: 205
Description:
Allow for separate series of batch numbers by subsystem, which makes it easier to retain batches.
Note: Requires patches P7.31 for GL/003 and P7.37 for AP/005.
Solution:
SRC1/AP/205
408550 AND BB-SUBSYSTEM EQUAL 3
412050 OR ( BB-SUBSYSTEM NOT = 3 )
414050 AND BD-SUBSYSTEM EQUAL BB-SUBSYSTEM
416845 AND BD-SUBSYSTEM = BB-SUBSYSTEM
437050 OR ( BD-SUBSYSTEM NOT = BB-SUBSYSTEM )
Date of Correction: 12/22/08 Module: AP
Markid: P7.32 Program Nbr: 205
Description:
Track receiver number on A/P invoices posted via AP-PO interface. Also, cost adjustments on DIR PO receipts are not posting correctly.
Requires patch P7.31 for AP/270.
Solution:
SRC1/SYS/PLUSDB
00010770 AH-RCVR-NBR ALPHA (10);
00022690 AP-RCVR-NBR ALPHA (10);
SRC1/AP/205
460450 MOVE API-RCVR-NBR-WS TO AP-RCVR-NBR.
470830** MOVE PAR-GL-DIV-DIR-INV TO 0-DIV-77
470900 MOVE PAR-GL-ACCT-INVENTORY TO 0-ACCT-NBR-77.
470910** MOVE PAR-GL-DIV-INVENTORY TO 0-DIV-77.
Date of Correction: 12/22/08 Module: AP
Markid: P7.31 Program Nbr: 270
Description:
Track receiver number on A/P invoices posted via AP-PO interface. Also, cost adjustments on DIR PO receipts are not posting correctly.
Requires patch P7.32 for AP/205.
Solution:
954100 MOVE AP-RCVR-NBR TO AH-RCVR-NBR.
Date of Correction: 12/31/08 Module: AR
Markid: P7.32 Program Nbr: 014
Description:
Cash receipts posting enhanced to allow for customer look-up by name.
Note: Requires new library LIBPS/CR80PD.
Solution:
SRC1/AR/014
136505 88 CR80-I-88 VALUE "CR80".
162590
162600 05 CR80-SCREEN-FORMAT-I REDEFINES CR00-SCREEN-FORMAT-I.
162620 10 FILLER PIC X(4).
162680 10 CR80-SELECTION-I OCCURS 5 TIMES.
162700 15 CR80-SELECT-I PIC X.
162720 15 CR80-CUST-NBR-I PIC 9(10).
162740 10 CR80-KEY-NAME-1-I PIC X(10).
162760 10 CR80-KEY-NAME-2-I PIC X(10).
162780 10 CR80-NEXT-CUST-NBR-I PIC 9(10).
162800 10 CR80-ORIG-KEY-NAME-I PIC X(10).
162840 10 FILLER PIC X(231).
163000****************************************************************
200000
200100 01 CR80-FIELDS.
200200 05 610-CUST-NBR-WS PIC 9(10) VALUE ZERO.
200300 05 610-KEY-NAME-WS PIC X(10) VALUE SPACES.
200400 05 610-KEY-NAME-2-WS PIC X(10) VALUE SPACES.
200500 05 610-LAST-KEY-NAME-WS PIC X(10) VALUE SPACES.
200600 05 610-FIND-KEY-NAME-WS PIC X(10) VALUE SPACES.
200700 05 610-CUST-FOUND-FLAG PIC 9 COMP.
200800 05 610-SELECT-FLAG PIC 9 COMP.
200900 05 610-EOF-FLAG PIC 9 COMP.
201000 05 122-ALPHA-FLAG PIC 9 COMP.
201100 05 I PIC 99 COMP.
201200 05 J PIC 99 COMP.
201300 05 122-INPUT.
201400 10 122-CHAR-IN PIC X OCCURS 10 TIMES.
201500 05 122-OUTPUT.
201600 10 122-CHAR-OT PIC X OCCURS 10 TIMES.
245320 CR90-TC-SCR OR CR99-TC-SCR OR "CR80"
258020 ELSE
258040 IF CR80-I-88
258060 PERFORM 12L-PROCESS-CR80
258080 THRU 12L-PROCESS-CR80-EXIT
AR/014 P7.32 CONTINUED (page 2 of 3)
278100 IF CR02-CUST-NBR-ERROR-I = SPACES
278200 OR (CR02-CUST-NBR-I = ZEROES)
278350 MOVE 0-TRUE-77 TO 1-EDIT-ERROR-FLAG-77
278400 703-ERR-MSG-58-INPUT-RQRD
278410 ELSE
278420 PERFORM 1229-EXAMINE-CUST
278430 IF 122-ALPHA-FLAG = 0-TRUE-77
278440 MOVE CR02-CUST-NBR-ERROR-I TO 610-KEY-NAME-WS
278450 MOVE SPACES TO 610-KEY-NAME-2-WS
278460 MOVE ZEROES TO 610-CUST-NBR-WS
278470 PERFORM 610-CUST-LOOK-UP THRU 610-CUST-LOOK-UP-EXIT
278480 GO TO 122-CR02-INITIATE-PAYMENT-EXIT.
278490
295976 1223-ENTER-DATA-MAKE-CR90-EXIT.
295978 EXIT.
296000 1229-EXAMINE-CUST.
296050 MOVE 0-FALSE-77 TO 122-ALPHA-FLAG.
296100 MOVE CR02-CUST-NBR-ERROR-I TO 122-INPUT.
296150 MOVE SPACES TO 122-OUTPUT.
296200 MOVE 0-ONE-77 TO J.
296250 PERFORM 1229-MOVE-CHAR VARYING I FROM 1 BY 1
296300 UNTIL I > 10.
296350 IF 122-ALPHA-FLAG = 0-TRUE-77
296400 MOVE 122-OUTPUT TO CR02-CUST-NBR-ERROR-I.
296450
296500 1229-MOVE-CHAR.
296600 IF 122-CHAR-IN (I) NOT = ZEROES
296650 MOVE 122-CHAR-IN (I) TO 122-CHAR-OT (J)
296700 ADD 1 TO J.
296750 IF 122-CHAR-IN (I) NOT NUMERIC
296800 MOVE 0-TRUE-77 TO 122-ALPHA-FLAG.
553140 COPY "LIBPS/CR80PD".
LIBPS/SCREENS14
106000 05 CR80-SCREEN-FORMAT-O REDEFINES MCS-PROGRAM-DATA.
106100 10 FILLER PIC X(76).
106200 10 CR80-KEY-NAME-1-O PIC X(10).
106300 10 CR80-KEY-NAME-2-O PIC X(10).
106400 10 CR80-NEXT-CUST-NBR-O PIC Z(9)9.
106450 10 CR80-ORIG-KEY-NAME-O PIC X(10).
106500 10 CR80-BATCH-NBR-O PIC ZZZ9.
106600 10 CR80-LINE-ITEMS-O OCCURS 5 TIMES.
106700 15 CR80-CUST-NBR-O PIC Z(9)9.
106800 15 CR80-ADDR-LINE-1-O PIC X(30).
106900 15 CR80-PHONE-LIT-O PIC X(3).
107000 15 CR80-PHONE-NBR-O PIC XXX-XXX-XXXX.
107100 15 CR80-FAX-LIT-O PIC X(4).
107200 15 CR80-FAX-NBR-O PIC XXX-XXX-XXXX.
107300 15 CR80-ADDR-LINE-2-O PIC X(30).
107400 15 CR80-ADDR-LINE-3-O PIC X(29).
107500 15 CR80-DATE-LAST-SALE-O PIC Z9/99/99.
AR/014 P7.32 CONTINUED (page 3 of 3)
107600 15 CR80-ADDR-LINE-4-O PIC X(30).
107700 15 CR80-AR-BALANCE-O PIC ZZ,ZZZ,ZZZ.99CR.
107800 15 CR80-DATE-LAST-PAID-O PIC Z9/99/99.
107900 10 FILLER PIC X(925).
SRC1/SYS/TCL/COMS
00128600 CR99, CR80.
00196450 OCR80A = FCR80.
00237350 ICR80A = CR80.
LIBPS/TCLCR
00736000FORMAT
00736100 OCR80A (CH,
00736200 FS,"CR80 ",RS,X15,BRNV, "C U S T O M E R L O O K U P ",
00736300 DL,X4,@117,"Batch Nbr: ",A4,CRLF,
00736400 5(X1,US, X1,RS,X1,FS,A10,RSCR,
00736500 X1,A30,X1,A3,X1,A12,X14,A4,X1,A12,CR,
00736600 X1,A30,X1,A29, " Last Sale ",A8,
00736700 UL,A30," A/R Balance:",A15," Last Paid ",A8),
00736800 @1,BR,A76,CR,"Next: ",US,A10,RS,X2,US,A10,RS,X2,
00736900 US,A10,RS,X2,FS,A10,RS,X8,US,X1,RS,FORMS).
00737000FORMAT
00737100 ICR80A (A4,X1,5(A1,I10),2A10,I10,A10).
Date of Correction: 11/13/08 Module: AR
Markid: P7.31 Program Nbr: 014
Description:
Expand check number from 6 to 8 digits.
Solution:
SRC1/SYS/PLUSDB
00198000 DR-PAYMENT-NBR NUMBER (8);
00228600 PR-PAYMENT-NBR NUMBER (8) REQUIRED;
00235200 PY-CHECK-NBR NUMBER (8);
LIBPS/DMSWS
121400 05 990-PAYMENT-NBR-KEY-77 PIC 9(8) COMP VALUE 0.
SRC1/AR/014
129200 15 0-CHECK-NBR-WS PIC 9(8) COMP.
129700 15 0-LAST-CHECK-NBR-WS PIC 9(8) COMP.
139100 15 CR02-CHECK-NBR-I PIC 9(8).
140700 10 FILLER PIC X(276).
LIBPS/SCREENS14
100590 15 CR02-CHECK-NBR-O PIC 9(8).
100830 10 CR02-LAST-CHECK-NBR-O PIC Z(8).
100840 10 FILLER PIC X(1769).
100900 10 CR03-CHECK-NBR-O PIC Z(7)9.
101160 10 FILLER PIC X(1559).
101220 10 CR04-CHECK-NBR-O PIC Z(7)9.
101420 10 FILLER PIC X(1581).
101470 10 CR05-CHECK-NBR-O PIC Z(7)9.
101690 10 FILLER PIC X(1420).
101740 10 CR06-CHECK-NBR-O PIC Z(7)9.
101970 10 FILLER PIC X(1753).
102030 10 CR07-CHECK-NBR-O PIC Z(7)9.
102300 10 FILLER PIC X(1525).
102370 10 CR10-CHECK-NBR-O PIC Z(7)9.
102680 10 FILLER PIC X(1183).
102740 10 CR11-CHECK-NBR-O PIC Z(7)9.
102930 10 FILLER PIC X(1504).
102980 10 CR20-CHECK-NBR-O PIC Z(7)9.
103050 10 FILLER PIC X(1772).
AR/014 P7.31 CONTINUED (page 2 of 2)
103130 10 CR40-CHECK-NBR-O PIC Z(7)9.
103150 10 FILLER PIC X(1939).
103200 10 CR50-CHECK-NBR-O PIC Z(7)9.
103470 10 FILLER PIC X(1272).
104360 10 CR90-CHECK-NBR-O PIC Z(7)9.
104570 10 FILLER PIC X(1447).
LIBPS/TCLCR
00701000 " Check Number",X8,A1,UL,US,A8,RSCR,
00702300 X11,"Last Customer ",A10,X8,"Last Check Number ",A8,CR,
00702800 ICR02A (A4,X1,I10,I8,I7,2I1,A1,2A2,I3,2(I6,A1),T(YDNIN,A3,1)).
00703500 BR,"Check Number ",A8,X2,"Check Amount ",A13,X2,
00706600 X7,"Check Number: ",A8,X5,"Check Amount: ",A13,CRLF,
00707700 LF,"More Invoices To Be Paid? ",@151,A1,UL,US,
00708800 BR," Customer Nbr: ",@78,A10," Check Nbr ",A8,X2,
00710800 X7,BR,"Check Number: ",A8,X4,"Check Amount: ",A13,CRLF,
00713600 BR,"Check Number: ",A8,X26,"Check Amount: ", A13,CRLF,
00714800 @228,A1,UL,US,T(YNOUT,A3,1),RS,X7,
00715900 "Cust Nbr & Name ",A10,X2,A30," A/R Bal",A12,BR,
00716000 "Check Number:",A8," Check Amount:",A13,
00717100 @1,BR,A76,CR,"Apply More?",@240,A1,US,A1,RS,
00718400 "Customer Number: ",A10," Check Number:",A8,X2,
00718500 "Check Amount:",A13,CRLF,
00720300 BR,"Check Number: ",A8,X26,"Check Amount: ",A13,CRLF,
00722900 X9,"Check Number: ",A8,X6,"Check Amount:",A13,CRLF,LF,X19,
00723600 "Customer Number: ",@154,A10," Check Number:",A8,
00733460 "Customer Number: ",@154,A10," Check Number:",A8,
00733470 " Check Amount:",A14,CRLF,
Date of Correction: 11/13/08 Module: AR
Markid: P7.31 Program Nbr: 015
Description:
Expand check number from 6 to 8 digits.
Solution:
SRC1/AR/015
134900 10 AR03-AUTO-PAY-NBR-I PIC 9(8).
135100 AR03-AUTO-PAY-NBR-I PIC X(8).
135200 10 AR03-PAY-NBR-I PIC 9(8).
135400 AR03-PAY-NBR-I PIC X(8).
138000 10 FILLER PIC X(301).
141500 10 AR05-PAY-NBR-I PIC 9(8).
141700 AR05-PAY-NBR-I PIC X(8).
145700 10 FILLER PIC X(216).
LIBPS/SCREENS15
110600 10 AR03-AUTO-PAY-NBR-ERROR-O PIC X(8).
110800 10 AR03-PAY-NBR-ERROR-O PIC X(8).
113300 10 FILLER PIC X(1578).
116600 10 AR05-PAY-NBR-ERROR-O PIC X(8).
119900 10 FILLER PIC X(1486).
LIBPS/TCLAR
00741500 RS," Payment Nbr ",A1,UL,US,A8,RSCRLF,
00741700 X12,"Payment Number ",A1,UL,US,A8,RS," Total",
00743200 IAR03A (A4,X1,A5,I10,T(YDNIN,A3,1),T(YDNIN,A3,1),2I8,I7,2I1,
00746000 X1,@79,A1,UL,US,A10,RS,X5,A1,UL,US,
00746100 A8,RS,X3,A1,UL,GS,A9,RS,
00748400 IAR05A (A4,X1,A5,I10,I8,3(I7,I1,I1),T(YDNIN,A3,1),A2,
Date of Correction: 11/13/08 Module: AR
Markid: P7.33 Program Nbr: 071
Description:
Expand check number from 6 to 8 digits.
Solution:
LIBPS/CASHFILE
108000 10 PA-CHECK-NBR PIC 9(8) COMP.
111000 10 PA-UNALLOC-CASH PIC S9(7)V99 COMP.
SRC1/AR/071
191010 05 21-PAY-BRANCH-PRT PIC X(3) VALUE SPACES.
191500 05 21-CK-NBR-PRT PIC Z(6)99.
192500 05 21-AMT-PAID-PRT PIC Z(9).99-.
Date of Correction: 11/13/08 Module: AR
Markid: P7.31 Program Nbr: 093
Description:
Expand check number from 6 to 8 digits.
Solution:
SRC1/AR/093
128500 05 FILLER PIC X(21) VALUE SPACES.
128700 05 242-PAYMENT-NBR-PRT PIC Z(8).
128800 05 FILLER PIC X(15) VALUE SPACES.
138000 05 FILLER PIC X(19) VALUE SPACES.
138200 05 2122-DR-PAYMENT-NBR-PRT PIC Z(8).
138300 05 FILLER PIC X(31) VALUE SPACES.
Date of Correction: 11/13/08 Module: AR
Markid: P7.33 Program Nbr: 153
Description:
Expand check number from 6 to 8 digits.
Solution:
SRC1/AR/153
122400 05 0-HISTORY-PAY-NBR PIC 9(8) VALUE 0.
123000 05 0-HISTORY-DR-PAY-NBR PIC 9(8) VALUE 0.
Date of Correction: 11/13/08 Module: AR
Markid: P7.32 Program Nbr: 153
Description:
Expand check number from 6 to 8 digits.
Requires patch P7.33 for AR/071.
Solution:
SRC1/AR/712
130000 05 SRT-CHECK-NBR PIC 9(08) COMP.
130500 05 FILLER PIC X(98).
148000 77 0-CHECK-NBR-77 PIC 9(8) COMP VALUE 0.
209500 15 CHECK-NBR-PRT PIC Z(8)9.
211500 15 FIN-CHG-PRT PIC Z(9).99.
Date of Correction: 11/18/08 Module: AR
Markid: P7.32 Program Nbr: 734
Description:
Prior aging report is not properly handling returned checks.
Note: Apply same patch to AR/735.
Solution:
332850 AND ( DR-TYPE NOT = 6 )
Date of Correction: 11/13/08 Module: FM
Markid: P7.3B Program Nbr: 004
Description:
Expand check number from 6 to 8 digits.
Solution:
SRC1/FM/004
121316 15 AR90-PAY-NBR-I PIC 9(8).
121319 10 FILLER PIC X(568).
121353 15 AR92-PAYMENT-NBR-I PIC 9(8).
121357 15 AR92-NEXT-PAY-NBR-I PIC 9(8).
121360 10 FILLER PIC X(415).
121387 10 AR93-PAYMENT-NBR-I PIC 9(8).
121402 10 FILLER PIC X(556).
121408 15 AR95-PAY-NBR-I PIC 9(8).
121410 10 FILLER PIC X(573).
121417 15 AR96-PAYMENT-NBR-I PIC 9(8).
121421 15 AR96-NEXT-PAY-NBR-I PIC 9(8).
121424 10 FILLER PIC X(491).
121435 15 AR97-PAY-NBR-I PIC 9(8).
121447 10 FILLER PIC X(562).
LIBPS/SCREENS04
601180 15 AR90-PAY-NBR-O PIC 9(8).
601190 10 FILLER PIC X(1892).
601666 15 AR92-NEXT-PAYMENT-O PIC Z(8).
601880 15 AR92-CHECK-NBR-O PIC Z(5)999.
601980 10 FILLER PIC X(1181).
602300 10 AR93-CHECK-NBR-O PIC Z(5)999.
602480 10 FILLER PIC X(880).
700400 15 AR95-PAY-NBR-O PIC 9(8).
700450 10 FILLER PIC X(1899).
700750 15 AR96-NEXT-PAYMENT-NBR-O PIC Z(8).
701050 15 AR96-CHECK-NBR-O PIC Z(5)999.
701350 10 FILLER PIC X(1393).
701750 10 AR97-CHECK-NBR-O PIC Z(5)999.
702250 10 FILLER PIC X(874).
FM/004 P7.3B CONTINUED (page 2 of 2)
LIBPS/TCLAR
00800840 X25,"Starting Pay Nbr.",X5,A1,UL,US,A8,RS," )",CR,7(LF),
00801200 IAR90A (A4,X1,A1,I4,I10,I8,A5).
00803200 " CASH RECEIPTS BATCH DETAIL ",SV,RSCR,BR,UL,2(CR),@103,
00803600 3(A1,US,A1,RS,X2,FS,A10,RS,X9,A2,X2,FS,A8,RS,A12,
00803800 A1,US,A1,RS,X2,FS,A10,RS,X9,A2,X2,FS,A8,RS,A12,
00804000 2(A1,US,A1,RS,X2,FS,A10,RS,X9,A2,X2,FS,A8,RS,A12,
00804300 " Next Cust/Pymt",UL,A1,US,I10,RS,UL,US,I8,RS,
00804400 " OR (R)eturn", UL,A1,US,A1,RS,
00804700 IAR92A (A4,X1,A1,A4, 8(A1,I10,I8),I10,I8,A1,A5).
00805200 FS,A1,RS," Batch Nbr ",FS,A4,RS," Payment Nbr ",
00805300 FS,A8,RS," Pay Date ",A8," Amount",A12,LF,
00806600 IAR93A (A4,X1,A1,I4,I8,I10,I6,I5,A1,A5).
00810700 X16,"Starting Check Nbr",A1,UL,US,A8,RSCR,9(LF),
00811100 IAR95A (A4,X1,I10,I8,A5).
00811600 SV,RSCR,BR,UL,CR,@96,
00812000 8(A1,US,A1,RS,X2,FS,A8,RS,X2,A8,X2,A11,X4,A11,
00812200 " Next Cust/Pymt.",UL,A1,US,I10,RS,UL,US,I8,RS,X13,