Objective
This report lists accounts that do not have transactions. The match-file run matches a multiple-transaction file against a single-occurrence master file.
Procedure
Note: Type 7 logic (IF M-ACCOUNT LE T-ACCOUNT DROP) can be used instead of the SELECT BUFFER statement.
The contents of the input buffer:
|
Master file |
Transaction file |
|---|---|
|
(SYS010) |
(SYS011) |
|
15060 |
15060 |
|
15060 |
15060 |
|
15060 |
15060 |
|
15999 |
|
|
16070 |
16070 |
|
19235 |
19235 |
|
21056 |
21056 |
|
23055 |
23055 |
|
23055 |
23055 |
|
23055 |
23055 |
|
27777 |
|
|
29557 |
29557 |
|
30115 |
30115 |
|
30115 |
30115 |
|
31113 |
31113 |
|
31113 |
31113 |
|
31275 |
31275 |
|
32115 |
|
|
33470 |
33470 |
|
33470 |
33470 |
|
34440 |
34440 |
|
34440 |
34440 |
|
34440 |
34440 |
|
34440 |
34440 |
|
36682 |
36682 |
|
69876 |
69876 |
|
69876 |
69876 |
|
99083 |
99083 |
|
99083 |
99083 |
Complete Code
col. 2 ▼ IN 80 MK=M-ACCOUNT MB=KEEP $Keep master record REC M-ACCOUNT 1 5 'ACCOUNT' REC M-BRANCH 6 2 'BRANCH' REC M-NAME 19 20 'NAME' IN 80 MK=T-ACCOUNT REC T-ACCOUNT 1 5 'ACCOUNT' SEL BUFFER WHEN T-ACCOUNT EQ ' ' $Accounts without transactions 80OUT D 80SORT M-BRANCH - 803 LIST OF ACCOUNTS WITHOUT TRANSACTIONS 8051*010 M-BRANCH HR 8051*020 M-ACCOUNT HR 8051*030 M-NAME HR
Result
REPORT NO. 80 LIST OF ACCOUNTS WITHOUT TRANSACTIONS mm/dd/yy PAGE 1 BRANCH ACCOUNT NAME 32 15999 SHELLY BROWN 35 27777 ANDY PIGGOTT 40 32115 BOB DATO
|
Copyright © 2014 CA.
All rights reserved.
|
|