Previous Topic: What You Can DoNext Topic: Qualified Fields


Demonstration

Objective

This example matches two files that are defined to the data dictionary. The match key for both files is PART-NUMBER. PART-NUMBER in the PARTS-INVENTORY file is assigned STOCK-REF-NUM as a unique name.

Procedure

Partial Code

 col. 2
 ▼
 DATABASE DICTNAME=DOCUDICT
 IN 130 DD=SYSO11  FN=PARTS-INVENTORY  MK=STOCK-REF-NUM
*       WAREHOUSE-CODE  BIN-POINTER
 REC STOCK-REF-NUM  1  10

 IN 170 DD=SYS012  FN=PART-DESC  MK=PART-NUMBER  WAREHOUSE-ID
*       BIN-LOCATION