home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / viscobv6.zip / vac22os2 / ibmcobol / samples / cobol / dliuib.cbl next >
Text File  |  1998-02-23  |  2KB  |  42 lines
  1.       ******************************************************************
  2.       *                                                                *
  3.       *       MODULE-NAME = DLIUIB.CBL                                 *
  4.       *                                                                *
  5.       *       DESCRIPTIVE NAME = STRUCTURE FOR USER INTERFACE BLOCK    *
  6.       *                                                                *
  7.       *                                                                *
  8.       *       STATUS = 2.1.0                                           *
  9.       *                                                                *
  10.       *       FUNCTION = DESCRIBE USER INTERFACE BLOCK FIELDS.         *
  11.       *                  THE UIB CONTAINS SCHEDULING AND SYSTEM CALL   *
  12.       *                  STATUS INFORMATION RETURNED TO THE USER.      *
  13.       *                                                                *
  14.       *       MODULE-TYPE = STRUCTURE                                  *
  15.       *                                                                *
  16.       *       CHANGE ACTIVITY = @BCAC80A                               *
  17.       *                                                                *
  18.       ******************************************************************
  19.        01   DLIUIB.
  20.       *     DLIUIB    EXTENDED CALL USER INTERFACE BLOCK
  21.             02 UIBPCBAL PICTURE S9(8) USAGE IS COMPUTATIONAL.
  22.       *        UIBPCBAL    PCB ADDRESS LIST
  23.             02 UIBRCODE.
  24.       *        UIBRCODE    DL/I RETURN CODES
  25.                  03 UIBFCTR PICTURE X.
  26.       *             UIBFCTR    RETURN CODES
  27.                    88  FCNORESP    VALUE X'00'.
  28.                    88  FCNOTOPEN   VALUE X'0C'.
  29.                    88  FCINVREQ    VALUE X'08'.
  30.                    88  FCINVPCB    VALUE X'10'.
  31.                  03 UIBDLTR PICTURE X.
  32.       *             UIBDLTR    ADDITIONAL INFORMATION
  33.                    88  DLPSBNF     VALUE X'01'.
  34.                    88  DLTASKNA    VALUE X'02'.
  35.                    88  DLPSBSCH    VALUE X'03'.
  36.                    88  DLLANGCON   VALUE X'04'.
  37.                    88  DLPSBFAIL   VALUE X'05'.
  38.                    88  DLPSBNA     VALUE X'06'.
  39.                    88  DLTERMNS    VALUE X'07'.
  40.                    88  DLFUNCNS    VALUE X'08'.
  41.                    88  DLINA       VALUE X'FF'.
  42.