home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / viscobv6.zip / vac22os2 / ibmcobol / samples / pli / dliuib.mac next >
Text File  |  1998-02-23  |  3KB  |  47 lines
  1.  /*********************************************************************/
  2.  /*                                                                   */
  3.  /*       MODULE-NAME = DLIUIB.MAC                                    */
  4.  /*                                                                   */
  5.  /*       DESCRIPTIVE NAME = STRUCTURE FOR USER INTERFACE BLOCK       */
  6.  /*                                                                   */
  7.  /*  COPYRIGHT = 5655-018 (C) COPYRIGHT IBM CORP. 1982                */
  8.  /*              THIS MODULE IS "RESTRICTED MATERIALS OF IBM"         */
  9.  /*              LICENSED MATERIALS - PROPERTY OF IBM                 */
  10.  /*              REFER TO COPYRIGHT INSTRUCTIONS                      */
  11.  /*              FORM NUMBER G120-2083                                */
  12.  /*                                                                   */
  13.  /* STATUS = 2.1.0                                                    */
  14.  /*                                                                   */
  15.  /*       FUNCTION = DESCRIBE USER INTERFACE BLOCK FIELDS.            */
  16.  /*                  THE UIB CONTAINS SCHEDULING AND SYSTEM CALL      */
  17.  /*                  STATUS INFORMATION RETURNED TO THE USER.         */
  18.  /*                                                                   */
  19.  /*       MODULE-TYPE = STRUCTURE                                     */
  20.  /*                                                                   */
  21.  /*       CHANGE ACTIVITY = @BCAC80A                                  */
  22.  /*                                                                   */
  23.  /*********************************************************************/
  24.    DCL UIBPTR PTR;                     /* POINTER TO UIB              */
  25.    DCL 1 DLIUIB UNALIGNED BASED(UIBPTR),
  26.                                        /* EXTENDED CALL USER INTFC BLK*/
  27.      2 UIBPCBAL PTR,                   /* PCB ADDRESS LIST            */
  28.      2 UIBRCODE,                       /* DL/I RETURN CODES           */
  29.        3 UIBFCTR BIT(8) ALIGNED,       /* RETURN CODES    @EAPARE @01A*/
  30.        3 UIBDLTR BIT(8) ALIGNED;       /* ADDITIONAL INFORMATION
  31.                                                       *  @EAPARE @01A*/
  32.  /* UIBFCTR VALUES   */
  33.  DCL FCNORESP   CHAR(1) INIT('00'X);
  34.  DCL FCNOTOPEN  CHAR(1) INIT('0C'X);
  35.  DCL FCINVREQ   CHAR(1) INIT('08'X);
  36.  DCL FCINVPCB   CHAR(1) INIT('10'X);
  37.  /* UIBDLTR VALUES   */
  38.  DCL DLPSBNF    CHAR(1) INIT('01'X);
  39.  DCL DLTASKNA   CHAR(1) INIT('02'X);
  40.  DCL DLPSBSCH   CHAR(1) INIT('03'X);
  41.  DCL DLLANGCON  CHAR(1) INIT('04'X);
  42.  DCL DLPSBFAIL  CHAR(1) INIT('05'X);
  43.  DCL DLPSBNA    CHAR(1) INIT('06'X);
  44.  DCL DLTERMNS   CHAR(1) INIT('07'X);
  45.  DCL DLFUNCNS   CHAR(1) INIT('08'X);
  46.  DCL DLINA      CHAR(1) INIT('FF'X);
  47.