home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / o22516d1.zip / DSDEMO.@IP / DS-CNTRL.MF < prev    next >
Text File  |  1992-07-29  |  4KB  |  80 lines
  1.  
  2.       *****************************************************************
  3.       *
  4.       *  Dialog System Control Block (Using Micro Focus Constants).
  5.       *
  6.       *  For use with Dialog System Version 2.
  7.       *
  8.       *****************************************************************
  9.  
  10.        01  DS-CONTROL-BLOCK.
  11.            03  DS-VERSION-NUMBERS.
  12.                05  DS-DATA-BLOCK-VERSION-NO    PIC 9(8) COMP-5.
  13.                05  DS-VERSION-NO               PIC 9(2) COMP-5.
  14.                05  FILLER                      PIC X.
  15.            03  DS-OUTPUT-FIELDS.
  16.                05  DS-SYSTEM-ERROR.
  17.                  07  DS-ERROR-CODE             PIC 9(4) COMP-5.
  18.                    88  DS-NO-ERROR               VALUE 0.
  19.                    88  DS-NOT-INITIALISED        VALUE 1.
  20.                    88  DS-CANNOT-OPEN-SET        VALUE 2.
  21.                    88  DS-ERROR-READING-FILE     VALUE 3.
  22.                    88  DS-INVALID-SET            VALUE 4.
  23.                    88  DS-CANNOT-CREATE-PANEL    VALUE 5.
  24.                    88  DS-DYNAMIC-ERROR          VALUE 6.
  25.                    88  DS-INVALID-FUNCTION       VALUE 7.
  26.                    88  DS-INVALID-PROC           VALUE 8.
  27.                    88  DS-VALIDATION-PROG-ERROR  VALUE 9.
  28.                    88  DS-DATA-BLOCK-VERNO-ERROR VALUE 10.
  29.                    88  DS-PUSH-LIMIT-REACHED     VALUE 11.
  30.                    88  DS-ERROR-FILE-MISSING     VALUE 12.
  31.                    88  DS-SUBSCRIPT-ERROR        VALUE 13.
  32.                    88  DS-PROC-LIMIT-REACHED     VALUE 14.
  33.                    88  DS-CTRL-BREAK-PRESSED     VALUE 15.
  34.                    88  DS-ERROR-ON-TRACE-FILE    VALUE 16.
  35.                    88  DS-SCREEN-MANAGER-ERROR   VALUE 17.
  36.                    88  DS-CANNOT-FIND-SCREENSET  VALUE 18.
  37.                    88  DS-INVALID-IDENTIFIER     VALUE 19.
  38.                  07  DS-ERROR-DETAILS-1        PIC 9(4) COMP-5.
  39.                  07  DS-ERROR-DETAILS-2        PIC 9(4) COMP-5.
  40.                05  DS-VALIDATION-ERROR-NO      PIC 9(4) COMP-5.
  41.                05  DS-FIELD-COUNT              PIC 9(4) COMP-5.
  42.                05  DS-FIELD-OCCURRENCE         PIC 9(4) COMP-5.
  43.                05  DS-FIELD-NO                 PIC 9(4) COMP-5.
  44.                05  DS-WINDOW-NAME              PIC X(32).
  45.                05  DS-OBJECT-NAME              PIC X(32).
  46.                05  DS-FIELD-CHANGE             PIC 9(2) COMP-5.
  47.                  88 DS-FIELD-CHANGE-TRUE       VALUE 1.
  48.                05  DS-EXIT-FIELD               PIC 9(2) COMP-5.
  49.                  88 DS-EXIT-FIELD-TRUE         VALUE 1.
  50.                05  DS-SESSION-ID               PIC 9(9) COMP-5.
  51.                05  DS-OUTPUT-RESERVED          PIC X(6).
  52.            03  DS-INPUT-FIELDS.
  53.                05  DS-CONTROL                  PIC X.
  54.                  78  DS-CONTINUE               VALUE "C".
  55.                  78  DS-NEW-SET                VALUE "N".
  56.                  78  DS-LOAD-SYSTEM            VALUE "L".
  57.                  78  DS-QUIT-SET               VALUE "Q".
  58.                  78  DS-PUSH-SET               VALUE "S".
  59.                  78  DS-USE-SET                VALUE "U".
  60.                  78  DS-PATHNAME               VALUE "P".
  61.                  78  DS-ERR-FILE-OPEN          VALUE "E".
  62.                05  DS-CLEAR-DIALOG             PIC 9(2) COMP-5.
  63.                05  DS-CONTROL-PARAM            PIC 9(4) COMP-5.
  64.                  78  DS-CONTROL-PARAM-DEFAULT  VALUE 0.
  65.                  78  DS-SCREEN-NOCLEAR         VALUE 1.
  66.                  78  DS-IGNORE-DB-VER-NO       VALUE 2.
  67.                  78  DS-CHECK-CTRL-BREAK       VALUE 4.
  68.                  78  DS-NO-NAME-INFO           VALUE 8.
  69.                  78  DS-SMALL-TIMEOUT          VALUE 16.
  70.                05  DS-PROCEDURE                PIC X(32).
  71.                05  DS-PARAMETER-COUNT          PIC 9(2) COMP-5.
  72.                05  DS-INPUT-RESERVED           PIC X(9).
  73.                05  DS-SCREENSET-NAME.
  74.                  07  DS-SET-NAME-LENGTH        PIC 9(4) COMP-5.
  75.                  07  DS-SET-NAME               PIC X(256).
  76.  
  77.       *****************************************************************
  78.       *   End of Control Block
  79.       *****************************************************************
  80.