File Matching › Qualified Fields › Demonstration

Demonstration

Objective

This example matches three files that are defined in the data dictionary. Two files have MON-TRAN-FILE as a file name and TRAN-CODE as a key field name. All three files have ACCT-NO as a key field.

Procedure

The code uses level numbers to distinguish between field references (ACCOUNT,1, ACCOUNT,2, TRANSACTION,1, and TRANSACTION,2).

Partial Code

 col. 2
 ▼
 DATABASE DICT NAME=DOCUDICT

 IN 100  FN=MON-TRAN-FILE  MK=ACCT-NO(ACCOUNT,1)  TRAN-CODE
*        (TRANSACTION,1)
 IN 100  FN=MON-TRAN-FILE  MK=ACCT-NO(ACCOUNT,2)  TRAN-CODE
*        (TRANSACTION,2)
 IN 150  FN=CUST-FILE      MK=ACCT-NO(ACC-REC)  MB=KEEP