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*

Feedback