This is the same report presented in Demonstration (1). Only this time records with matching account numbers are selected.
Procedure
Complete Code
col. 2
▼
IN 80 F 320 PS(TAPE) MK=M-ACCOUNT MB=KEEP $Keep the master record
REC M-ACCOUNT 1 5 'ACCOUNT'
REC M-BRANCH 6 2 'BRANCH'
REC M-NAME 19 20 'NAME'
SEL M-BRANCH EQ ('32' '35' '45' '46') $Select records
IN 80 F 320 PS(TAPE) MK=T-ACCOUNT
REC T-ACCOUNT 1 5 'ACCOUNT'
REC T-TRANS-IND 6 1 'DEPOSIT/' 'WITHDRAWAL'
REC T-TRANS-AMT 7 11 2 DP=2 'AMOUNT OF' 'TRANSACTION'
REC T-DATE 18 6 2 'DATE'
REC T-BRANCH 24 2 'BRANCH'
REC T-NAME 26 20 'NAME'
SEL BUFFER WHEN M-ACCOUNT EQ T-ACCOUNT $Select matching records
80OUT D
80SORT T-BRANCH - T-ACCOUNT T-DATE
803 MASTER FILE MATCHED WITH MULTIPLE TRANSACTIONS
8051*010 M-BRANCH HR
8051*020 T-ACCOUNT HR
8051*030 M-NAME HR
8051*050 T-TRANS-AMT
8051*060 T-TRANS-IND HR
8051*070 T-DATE FD HR
Result
REPORT NO. 80 MASTER FILE MATCHED WITH MULTIPLE TRANSACTIONS mm/dd/yy PAGE 1 DEPOSIT/ BRANCH ACCOUNT NAME WITHDRAWAL DATE 32 15060 SHARON ARMSTRONG 10,099.01 D mm/dd/yy 32 15060 SHARON ARMSTRONG 990.11 W mm/dd/yy 32 15060 SHARON ARMSTRONG 100,990.11 D mm/dd/yy 32 16070 ARTHUR LINK 1,080.04 D mm/dd/yy 32 19235 GARY NOBLES 80.04 W mm/dd/yy 32 21056 AMOS JOHNSON 1.02 W mm/dd/yy 35 23055 JACK JACKSON 500.00 W mm/dd/yy 35 23055 JACK JACKSON 50,000.00 D mm/dd/yy 35 23055 JACK JACKSON 30.00 D mm/dd/yy 35 29557 IRWIN TRIMBLE 500,001.00 D mm/dd/yy 45 33470 VICTORIA DAY 7,590,001.30 D mm/dd/yy 45 33470 VICTORIA DAY 1.30 D mm/dd/yy 45 34440 HELEN WRIGHT 195.01 W mm/dd/yy 45 34440 HELEN WRIGHT 2,000.01 D mm/dd/yy 45 34440 HELEN WRIGHT 95.01 D mm/dd/yy 45 34440 HELEN WRIGHT 100.00 D mm/dd/yy 45 36682 JEAN WREN 4,000.78 W mm/dd/yy 46 69876 BRUCE THORPE 9,009,901.15 D mm/dd/yy 46 69876 BRUCE THORPE 637.55 D mm/dd/yy 46 99083 HELEN SANTOVEC 50,001.30 D mm/dd/yy 46 99083 HELEN SANTOVEC 6,468.52 D mm/dd/yy
Note: The report would show actual dates in the format shown.
|
Copyright © 2014 CA.
All rights reserved.
|
|