Step 1: Describe the Records in the Data Dictionary

CA ADS Batch Sample Applications › Employee-Record Report Application › Step 1: Describe the Records in the Data Dictionary

Step 1: Describe the Records in the Data Dictionary

All records (except subschema records) used in the application must be described in the data dictionary. The employee-record report application uses the following records.

Records Used

Name	Description
WORK-PRINT-EDIT	Contains miscellaneous variable fields required by the application
EMPL-DETAIL	Describes the layout of detail and detail header lines in the report file
REPT-HEADER	Describes the layout of page header, department header, and total lines in the report file

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

WORK-PRINT-EDIT

WORK-PRINT-EDIT.
  03  WK-HDG                    PICTURE IS   X(100).
  03  WK-LENGTH                 PICTURE IS   999      USAGE IS COMP.
  03  WK-START-POS              PICTURE IS   999      USAGE IS COMP.
  03  WK-LINE-NBR               PICTURE IS   99       USAGE IS COMP.
  03  WK-CURR-DATE              PICTURE IS   X(8).
  03  WK-DATE-HOLD              PICTURE IS   9(6).
  03  WK-DATE-X                 PICTURE IS   X(6)     REDEFINES WK-DATE-HOLD.
  03  WK-DATE-WORK.
      05  WK-MO                 PICTURE IS   XX.
      05  FILLER                PICTURE IS   X        VALUES IS '/'.
      05  WK-DAY                PICTURE IS   XX.
      05  FILLER                PICTURE IS   X        VALUES IS '/'.
      05  WK-YR                 PICTURE IS   XX.
  03  WK-PAGE-NBR               PICTURE IS   999.
  03  WK-PAGE-PRINT             PICTURE IS   XXX.
  03  WK-DEPT-EE-COUNT          PICTURE IS   9999.
  03  WK-TOT-EE-COUNT           PICTURE IS   999.
  03  WK-DEPT-PRINT             PICTURE IS   X(4).

EMPL-DETAIL

EMPL-DETAIL.
  03  DTL-CTRL-CHAR             PICTURE IS   X.
  03  FILLER                    PICTURE IS   X(27).
  03  DTL-EMPL.
      05  FILLER                PICTURE IS   X.
      05  DTL-EMP-ID            PICTURE IS   9999.
      05  FILLER                PICTURE IS   XX.
  03  DTL-NAME.
      05  DTL-LAST-NAME         PICTURE IS   X(15).
      05  FILLER                PICTURE IS   X.
      05  DTL-FIRST-NAME        PICTURE IS   X(10).
  03  FILLER                    PICTURE IS   XX.
  03  DTL-STATUS.
      05  FILLER                PICTURE IS   X.
      05  DTL-STAT-CODE         PICTURE IS   XXX.
      05  FILLER                PICTURE IS   XX.
  03  FILLER                    PICTURE IS   XX.
  03  DTL-SS-NBR                PICTURE IS   9(9).
  03  DTL-SS-TITLE              PICTURE IS   X(9)     REDEFINES DTL-SS-NBR.
  03  FILLER                    PICTURE IS   XX.
  03  DTL-START.
      05  FILLER                PICTURE IS   X.
      05  DTL-START-DATE        PICTURE IS   X(8).
      05  FILLER                PICTURE IS   X.
  03  FILLER                    PICTURE IS   X.
  03  DTL-TERM.
      05  FILLER                PICTURE IS   X.
      05  DTL-TERM-DATE         PICTURE IS   X(8).
      05  FILLER                PICTURE IS   XX.
  03  FILLER                    PICTURE IS   X(31).

Include within file IDD-REPFILE1.

REPT-HEADER

REPT-HEADER.
  03  CTRL-CHAR                 PICTURE IS   X.
  03  LEFT                      PICTURE IS   X(16).
  03  CENTER                    PICTURE IS   X(100).
  03  RIGHT                     PICTURE IS   X(16).

Include within file IDD-REPFILE1.