
      *****************************************************************
      *  Control Block (ANSI Constants)
      *****************************************************************

       01  DS-CONTROL-BLOCK.
           03  DS-VERSION-NUMBERS.
               05  DS-DATA-BLOCK-VERSION-NO    PIC 9(4).
               05  DS-VERSION-NO               PIC 9.
           03  DS-INPUT-FIELDS.
               05  DS-CONTROL                  PIC X.
               05  DS-CONTROL-PARAM            PIC 9(4) COMP.
               05  DS-SET-NAME                 PIC X(16).
               05  DS-CLEAR-DIALOG             PIC 9.
               05  DS-PROC-TYPE                PIC X.
               05  DS-PROC-NO                  PIC 9(4) COMP.
               05  DS-INPUT-RESERVED           PIC X(12).
           03  DS-OUTPUT-FIELDS.
               05  DS-SYSTEM-ERROR-NO          PIC 9(4) COMP.
                 88  DS-NO-ERROR               VALUE 0.
                 88  DS-NOT-INITIALISED        VALUE 1.
                 88  DS-CANNOT-OPEN-SET        VALUE 2.
                 88  DS-ERROR-READING-FILE     VALUE 3.
                 88  DS-INVALID-SET            VALUE 4.
                 88  DS-CANNOT-CREATE-PANEL    VALUE 5.
                 88  DS-DYNAMIC-ERROR          VALUE 6.
                 88  DS-INVALID-FUNCTION       VALUE 7.
                 88  DS-INVALID-PROC           VALUE 8.
                 88  DS-VALIDATION-PROG-ERROR  VALUE 9.
                 88  DS-DATA-BLOCK-VERNO-ERROR VALUE 10.
                 88  DS-PUSH-LIMIT-REACHED     VALUE 11.
                 88  DS-ERROR-FILE-MISSING     VALUE 12.
                 88  DS-SUBSCRIPT-ERROR        VALUE 13.
                 88  DS-PROC-LIMIT-REACHED     VALUE 14.
                 88  DS-CTRL-BREAK-PRESSED     VALUE 15.
                 88  DS-ERROR-ON-TRACE-FILE    VALUE 16.
                 88  DS-TIMEOUT-IMMEDIATE-RETC VALUE 17.
               05  DS-VALIDATION-ERROR-NO      PIC 9(4) COMP.
               05  DS-PANEL-NAME               PIC X(8).
               05  DS-RESERVED-1               PIC X(2).
               05  DS-FIELD-COUNT              PIC 9(4) COMP.
               05  DS-FIELD-OCCURRENCE         PIC 9(4) COMP.
               05  DS-MOUSE-DETAILS.
                   07 DS-OUTPUT-MOUSE-X             PIC 9(2) COMP.
                   07 DS-OUTPUT-MOUSE-Y             PIC 9(2) COMP.
                   07 DS-OUTPUT-MOUSE-FLD           PIC 9(4) COMP.
                   07 DS-OUTPUT-MOUSE-OCCURRENCE    PIC 9(4) COMP.
               05  DS-FIELD-NO                 PIC 9(4) COMP.
               05  DS-FIELD-CHANGE             PIC 9.
                 88 DS-FIELD-CHANGE-TRUE       VALUE 1.
               05  DS-EXIT-FIELD               PIC 9.
                 88 DS-EXIT-FIELD-TRUE         VALUE 1.
               05  DS-FIELD-NAME               PIC X(8).
               05  DS-OUTPUT-RESERVED          PIC X(8).

       01  DS-CONSTANTS.
           03  DS-CONTROL-CONSTANTS.
               05  DS-CONTINUE                 PIC X VALUE "C".
               05  DS-NEW-SET                  PIC X VALUE "N".
               05  DS-LOAD-SYSTEM              PIC X VALUE "L".
               05  DS-QUIT-SET                 PIC X VALUE "Q".
               05  DS-PUSH-SET                 PIC X VALUE "S".
               05  DS-PATHNAME                 PIC X VALUE "P".
               05  DS-ERR-FILE-OPEN            PIC X VALUE "E".
               05  DS-MULTI-POP                PIC X VALUE "M".
               05  DS-TRACE-OFF                PIC X VALUE "O".
               05  DS-TRACE-ON                 PIC X VALUE "T".
               05  DS-USE-SET                  PIC X VALUE "U".
               05  DS-WHAT-SET                 PIC X VALUE "W".
           03  DS-CONTROL-PARAM-CONSTANTS.
               05  DS-CONTROL-PARAM-DEFAULT    PIC 9(4) COMP VALUE 0.
               05  DS-SCREEN-NOCLEAR           PIC 9(4) COMP VALUE 1.
               05  DS-IGNORE-DB-VER-NO         PIC 9(4) COMP VALUE 2.
               05  DS-CHECK-CTRL-BREAK         PIC 9(4) COMP VALUE 4.
               05  DS-NO-NAME-INFO             PIC 9(4) COMP VALUE 8.
               05  DS-SMALL-TIMEOUT            PIC 9(4) COMP VALUE 16.

      *****************************************************************
      *   End of Control Block
      *****************************************************************


