IDENTIFICATION DIVISION.
       PROGRAM-ID. TK15584A.
       
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  WSAA-ETPEIB2                PIC X(08) VALUE 'TK15584A'.
       01  WS-SAVE-TERMID              PIC X(04) VALUE SPACES.
       01  WS-TERMID                   PIC X(04) VALUE SPACES.
       01  WS-RETURN-MESSAGE.
           02  WS-MESSAGE              PIC X(10) VALUE SPACES.
           02                          PIC X(1)  VALUE SPACES.
           02  WS-STATUS               PIC X(04) VALUE SPACES.
       LINKAGE SECTION.
       01  LSAA-BIG-ITEM               PIC X(4096).
       PROCEDURE DIVISION.
       MAINLINE SECTION.
       000-MAINLINE.
           DISPLAY 'EIBTRMID<' EIBTRMID '>'
           DISPLAY  'EIBTRNID<' EIBTRNID '>'
           IF EIBTRMID = LOW-VALUES
              MOVE "LOW-VALUES" TO WS-MESSAGE 
              MOVE 'FAIL'       TO WS-STATUS
           ELSE IF EIBTRMID = ''
              MOVE 'EMPTY' TO WS-MESSAGE      
              MOVE 'PASS'  TO WS-STATUS
           ELSE
              MOVE 'OTHER' TO WS-MESSAGE      
              MOVE 'FAIL'  TO WS-STATUS
           END-IF.
           DISPLAY WS-RETURN-MESSAGE
           
      *    EXEC CICS START INTERVAL(1) TRANSID('AC03') FROM(ACCTDTLO)
      *        LENGTH(DTL-LNG) TERMID(PRTRC) END-EXEC.
      *    EXEC CICS START TRANSID('TK15') END-EXEC
           EXEC CICS RETURN END-EXEC.