Step 2: Describe the Records in the Data Dictionary

CA ADS Batch Sample Applications › Employee-record Archive Application › Step 2: Describe the Records in the Data Dictionary

Step 2: Describe the Records in the Data Dictionary

All file, map, and work records used in the application must be described in the data dictionary. The employee-record archive application uses the following records.

Record	Description
WORK-RECORD1	Contains miscellaneous variable fields required by the application
INPUT-RECORD1	Describes the layout of the input file
ARCHIVE-RECORD-EMP	Describes the layout of archived employee records in the archive file
ARCHIVE-RECORD-COV	Describes the layout of archived coverage records in the archive file
REPORT-RECORD	Describes the layout of the report file
REPORT-HDR1 REPORT-HDR2 REPORT-DTL	Describe the heading and detail lines for the report

You can define records by using the IDD DDDL compiler or the IDD menu facility. The record definitions are illustrated on the following pages.

WORK-RECORD1

WORK-RECORD1.
   03  WORK-DATE-YYMMDD.
       05  WORK-YY1             PICTURE IS   9(2).
       05  WORK-MM1             PICTURE IS   9(2).
       05  WORK-DD1             PICTURE IS   9(2).
   03  WORK-DATE-MMDDYY.
       05  WORK-MM2             PICTURE IS   9(2).
       05  FILLER               PICTURE IS   X        VALUE IS '/'.
       05  WORK-DD2             PICTURE IS   9(2).
       05  FILLER               PICTURE IS   X        VALUE IS '/'.
       05  WORK-YY2             PICTURE IS   9(2).
   03  WORK-LINE-CTR            PICTURE IS   99.
   03  WORK-PAGE-CTR            PICTURE IS   999.
   03  WORK-STATUS              PICTURE IS   X(10).
   03  WORK-ARC-ID              PICTURE IS   9(4).
   03  WORK-ARCFILE-STATUS      PICTURE IS   X(3).

INPUT-RECORD1

INPUT-RECORD1.
   03  INPUT-ID                 PICTURE IS   9(4).

Include within file IDD-INFILE1.

ARCHIVE-RECORD- EMP

ARCHIVE-RECORD-EMP
   03  ARCHIVE-TYPE             PICTURE IS   X.
   03  ARCHIVE-DEPT-ID          PICTURE IS   9(4).
   03  ARCHIVE-OFFICE-CODE      PICTURE IS   XXX.
   03  ARCHIVE-EMPLOYEE-RECORD  PICTURE IS   X(116).

Include within file IDD-ARCFILE.

ARCHIVE-RECORD- COV

ARCHIVE-RECORD-COV.
   03  ARCHIVE-TYPE             PICTURE IS   X.
   03  ARCHIVE-COVERAGE-RECORD  PICTURE IS   X(16).

Include within file IDD-ARCFILE.

REPORT-RECORD

REPORT-RECORD.
   03  REPORT-CC                PICTURE IS   X.
   03  REPORT-LINE              PICTURE IS   X(131).

Include within file IDD-REPFILE1.

REPORT-HDR1

REPORT-HDR1.
   03  FILLER                   PICTURE IS   X(15)    VALUE IS SPACES.
   03  FILLER                   PICTURE IS   X(27)
                                VALUE IS 'TRANSACTION REPORT   DATE:'.
   03  REPORT-DATE              PICTURE IS   X(8).
   03  FILLER                   PICTURE IS   X(8)     VALUE IS '  PAGE:'.
   03  REPORT-PAGE              PICTURE IS   999.

REPORT-HDR2

REPORT-HDR2.
   03  FILLER                   PICTURE IS   X(15)    VALUE IS 'EMPLOYEE ID'.
   03  FILLER                   PICTURE IS   X(28)    VALUE IS 'NAME'.
   03  FILLER                   PICTURE IS   X(6)     VALUE IS 'STATUS'.

REPORT-DTL

REPORT-DTL.
   03  FILLER                   PICTURE IS   X(4)     VALUE IS SPACES.
   03  REPORT-ID                PICTURE IS   9(4).
   03  FILLER                   PICTURE IS   X(7)     VALUE IS SPACES.
   03  REPORT-LNAME             PICTURE IS   X(15).
   03  FILLER                   PICTURE IS   X        VALUE IS SPACES.
   03  REPORT-FNAME             PICTURE IS   X(10).
   03  FILLER                   PICTURE IS   X(2)     VALUE IS SPACES.
   03  REPORT-STATUS            PICTURE IS   X(30).