EXAMPLE PROGRAM 2 (Sequential-within-Limits Processing)
Figure 1 shows the data description specifications (DDS) for the record-address limits file used by the program ESWLIM2 ( Figure 2).
Figure 1. DDS for record address file LIMITS (physical
file)
A*****************************************************************
A* RELATED PROGRAMS: ESWLIM *
A* DESCRIPTION: This is the DDS for the physical file *
A* LIMITS. *
A* It contains a record format named LIMIT. *
A*****************************************************************
A
A R LIMIT
A LOW 5 0
A HIGH 5 0
This program performs the same job as the previous program. The only difference is that the physical file EMPMST is defined as an externally described file instead of a program-described file.
Figure 2. Sequential-within-Limits Processing of
a Program-Described File
*****************************************************************
* PROGRAM NAME: ESWLIM2 *
* RELATED FILES: EMPMST (Physical File) *
* LIMITS (Physical File) *
* PRINT (Printer File) *
* DESCRIPTION: This program shows the processing of an *
* externally described file sequentially *
* within limits. *
* This program prints out information for the *
* employees whose employee numbers are within *
* the limits given in the file LIMITS. *
*****************************************************************
FLIMITS IR F 6 3 DISK RAFDATA(EMPMST)
FEMPMST IP E L K DISK
FPRINT O F 80 PRINTER
* Input Specifications are optional for an externally described
* file. Here, *IN01 is defined as the record-identifying
* indicator for the record-format EMPREC to control the
* processing of this record.
IEMPREC 01
OPRINT H 1P 1
O 12 'SERIAL #'
O 22 'NAME'
O 45 'DEPT'
O 56 'TYPE'
O D 01 1
O ENUM 10
O ENAME 35
O EDEPT 45
O ETYPE 55
O*