File Matching › Matching Multiple Transactions with a Single-Entry Master › Demonstration (1): Dropping Unmatched Records

Demonstration (1): Dropping Unmatched Records

Objective

This report lists customer transactions and current balances by matching a multiple-occurrence transaction file against a single-entry master file. Unmatched records are dropped.

Procedure

• MB=KEEP retains a master record in the input buffer.
• The BYPASS parameter eliminates unwanted master file records.
• Type 7 logic drops all unmatched records.

The contents of the input buffer, represented by account number, show how the files are matched:

Complete Code

 col. 2
 ▼
 IN  80 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'
 BYP M-BRANCH NE ('32' '35' '45' '46')           $Select records

 IN 80 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'
 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             HR
 8051*060 T-TRANS-IND             HR
 8051*070 T-DATE  FD              HR
 807010   IF M-ACCOUNT NE T-ACCOUNT  DROP $Drop unmatched records

Result

REPORT NO. 80   MASTER FILE MATCHED WITH MULTIPLE TRANSACTIONS  mm/dd/yy PAGE     1
                                                                         AMOUNT OF             DEPOSIT/
           BRANCH         ACCOUNT                 NAME                  TRANSACTION           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.