Power Plus Patch

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,