home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / o22516d1.zip / FAAECIW.@BL / FAAECIW.CBL
Text File  |  1992-07-29  |  5KB  |  92 lines
  1.       *************************************************************
  2.       *  CONTROL BLOCK NAME= FAAECIW                              *
  3.       *                                                           *
  4.       *  NAME OF MATCHING ASSEMBLER CONTROL BLOCK = NONE          *
  5.       *                                                           *
  6.       *  DESCRIPTIVE NAME = ECI Parameter block                   *
  7.       *                                                           *
  8.       *  COPYRIGHT        =           NONE                        *
  9.       *                                                           *
  10.       *  STATUS       RELEASE 1.2                                 *
  11.       *                                                           *
  12.       *  FUNCTION = None                                          *
  13.       *                                                           *
  14.       *  INNER CONTOL BLOCKS = None                               *
  15.       *                                                           *
  16.       *  NOTES :-                                                 *
  17.       *    DEPENDENCIES = COBOL/2                                 *
  18.       *    RESTRICTIONS = none                                    *
  19.       *    MODULE TYPE  = Control Block Definition                *
  20.       *    PROCESSOR    = PS/2 and PC                             *
  21.       *                                                           *
  22.       *-----------------------------------------------------------*
  23.       *                                                           *
  24.       *  EXTERNAL REFERENCES = None                               *
  25.       *                                                           *
  26.       *  DATA AREAS =  None                                       *
  27.       *                                                           *
  28.       *  CONTROL BLOCKS =  None                                   *
  29.       *                                                           *
  30.       *  GLOBAL VARIABLES =  None                                 *
  31.       *                                                           *
  32.       *************************************************************
  33.  
  34.       *
  35.       * Parameter block to FAAECI.
  36.       *
  37.  
  38.         01 ECI-PARMS.
  39.             05  ECI-CALL-TYPE                       PIC S9(4) COMP-5.
  40.                     88 ECI-SYNC-CALL                VALUE 0.
  41.                     88 ECI-ASYNC-CALL               VALUE 1.
  42. @76806              88 ECI-SYNC-PARALLEL            VALUE 2.
  43. @76806              88 ECI-ASYNC-PARALLEL           VALUE 3.
  44.             05  ECI-PROGRAM-NAME                    PIC X(8).
  45.             05  ECI-USERID                          PIC X(8).
  46.             05  ECI-PASSWORD                        PIC X(8).
  47.             05  ECI-TRANSID                         PIC X(4).
  48.             05  ECI-ABEND-CODE                      PIC X(4).
  49.             05  ECI-COMMAREA                        POINTER.
  50.             05  ECI-COMMAREA-LENGTH                 PIC S9(4) COMP-5.
  51.             05  ECI-TIMEOUT                         PIC S9(4) COMP-5.
  52.             05  ECI-SYS-RETURN-CODE                 PIC S9(4) COMP-5.
  53.             05  ECI-EXTEND-MODE                     PIC S9(4) COMP-5.
  54.                     88 ECI-NO-EXTEND                VALUE 0.
  55.                     88 ECI-EXTENDED                 VALUE 1.
  56.                     88 ECI-CANCEL                   VALUE 2.
  57. @76806              88 ECI-COMMIT                   VALUE 2.
  58. @76806              88 ECI-BACKOUT                  VALUE 3.
  59.       * multi thread pm support data
  60.             05  ECI-WINDOW-HANDLE                   PIC S9(9) COMP-5.
  61.             05  ECI-MESSAGE-ID                      PIC S9(4) COMP-5.
  62.             05  ECI-MESSAGE-QUALIFIER               PIC S9(4) COMP-5.
  63. @76806      05  ECI-LUW-TOKEN                       PIC X(4).
  64. @76806              88 ECI-LUW-NEW                  VALUE LOW-VALUES.
  65. @76806* Note that ECI-RESERVED should be initialised to low values.
  66. @76806      05  ECI-RESERVED                        PIC X(6).
  67. @76806*     05  ECI-RESERVED                        PIC X(10).
  68.  
  69.       *
  70.       * List of error returns from FAAECI
  71.       *
  72.  
  73.         01 ECI-ERROR-ID                             PIC S9(4) COMP-5.
  74.             88  ECI-NO-ERROR                        VALUE  0.
  75.             88  ECI-ERR-INVALID-DATA-LENGTH         VALUE -1.
  76.             88  ECI-ERR-INVALID-EXTEND-MODE         VALUE -2.
  77.             88  ECI-ERR-NO-CICS                     VALUE -3.
  78.             88  ECI-ERR-CICS-DIED                   VALUE -4.
  79.             88  ECI-ERR-REQUEST-TIMEOUT             VALUE -5.
  80.             88  ECI-ERR-RESPONSE-TIMEOUT            VALUE -6.
  81.             88  ECI-ERR-TRANSACTION-ABEND           VALUE -7.
  82.             88  ECI-ERR-EXEC-NOT-RESIDENT           VALUE -8.
  83.             88  ECI-ERR-LUW-TOKEN                   VALUE -8.
  84.             88  ECI-ERR-SYSTEM-ERROR                VALUE -9.
  85.             88  ECI-ERR-NULL-WIN-HANDLE             VALUE -10.
  86.             88  ECI-ERR-NULL-MESSAGE-ID             VALUE -12.
  87.             88  ECI-ERR-THREAD-CREATE-ERROR         VALUE -13.
  88. @76806      88  ECI-ERR-INVALID-CALL-TYPE           VALUE -14.
  89. @76806      88  ECI-ERR-ALREADY-ACTIVE              VALUE -15.
  90.             88  ECI-ERR-RESOURCE-SHORTAGE           VALUE -16.
  91.             88  ECI-ERR-NO-SESSIONS                 VALUE -17.
  92.