home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / viscobv6.zip / vac22os2 / ibmcobol / samples / cicssmp / clidir / tranasst.cpy < prev    next >
Text File  |  1997-04-16  |  3KB  |  42 lines
  1.       * COPY file generated by Transaction Assistant
  2.       * You can modify or delete the COMMAREA variable as needed
  3.        01  ECI-CALL-PARMS.
  4.            05  ECI-USERID                       PIC X(8).
  5.            05  ECI-PASSWORD                     PIC X(8).
  6.            05  ECI-PROGNAME                     PIC X(8).
  7.            05  ECI-RETURN-CODE                  PIC S9(4) COMP-5.
  8.                88  ECI-NO-ERROR                       VALUE 0.
  9.                88  ECI-ERR-INVALID-DATA-AREA          VALUE -1.
  10.                88  ECI-ERR-INVALID-EXTERNAL-MODE      VALUE -2.
  11.                88  ECI-ERR-NO-CICS                    VALUE -3.
  12.                88  ECI-ERR-CICS-DIED                  VALUE -4.
  13.                88  ECI-ERR-REQUEST-TIMEOUT            VALUE -5.
  14.                88  ECI-ERR-NO-REPLY                   VALUE -5.
  15.                88  ECI-ERR-RESPONSE-TIME              VALUE -6.
  16.                88  ECI-ERR-TRANSACTION-ABEND          VALUE -7.
  17.                88  ECI-ERR-EXEC-NOT-RESIDENT          VALUE -8.
  18.                88  ECI-ERR-LUW-TOKEN                  VALUE -8.
  19.                88  ECI-ERR-SYSTEM-ERROR               VALUE -9.
  20.                88  ECI-ERR-NULL-WIN-HANDLE            VALUE -10.
  21.                88  ECI-ERR-NULL-MESSAGE-ID            VALUE -12.
  22.                88  ECI-ERR-THREAD-CREATE-ERROR        VALUE -13.
  23.                88  ECI-ERR-INVALID-CALL-TYPE          VALUE -14.
  24.                88  ECI-ERR-ALREADY-ACTIVE             VALUE -15.
  25.                88  ECI-ERR-RESOURCE-SHORTAGE          VALUE -16.
  26.                88  ECI-ERR-NO-SESSIONS                VALUE -17.
  27.                88  ECI-ERR-NULL-SEM-HANDLE            VALUE -18.
  28.                88  ECI-ERR-INVALID-DATA-AREA          VALUE -19.
  29.                88  ECI-ERR-INVALID-VERSION            VALUE -21.
  30.                88  ECI-ERR-UNKNOWN-SERVER             VALUE -22.
  31.                88  ECI-ERR-CALL-FROM-CALLBACK         VALUE -23.
  32.                88  ECI-ERR-INVALID-TRANSID            VALUE -24.
  33.                88  ECI-ERR-MORE-SYSTEMS               VALUE -25.
  34.                88  ECI-ERR-NO-SYSTEMS                 VALUE -26.
  35.                88  ECI-SECURITY-ERROR                 VALUE -27.
  36.                88  ECI-ERR-MAX-SYSTEMS                VALUE -28.
  37.                88  ECI-ERR-MAX-SESSIONS               VALUE -29.
  38.                88  ECI-ERR-ROLLEDBACK                 VALUE -30.
  39.                88  ECICALL-ERR-UNSUPP-RELEASE         VALUE 34.
  40.            05  ECI-ABEND-CODE                   PIC X(4).
  41.            05  ECI-COMMAREA-STRING              PIC X(16).
  42.