IDENTIFICATION DIVISION.
       PROGRAM-ID. TK15584.
       
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  WS-I                        PIC S9(4) COMP.
       01  WS-UCS                      PIC S9(4) COMP.
       01  WSAA-ETPEIB2                PIC X(07) VALUE 'TK15584'.
       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.
           IF EIBRCODE = LOW-VALUES 
                DISPLAY 'EIBRCODE LOW-VALUES<' EIBRCODE '>'
           END-IF
           
           MOVE EIBTRMID TO WS-SAVE-TERMID.
           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.
      *    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 LINK PROGRAM ('TK15584A') END-EXEC
      *    CALL 'TK15584A'
           
           EXEC CICS ASSIGN SCRNHT (WS-I) NOHANDLE
           END-EXEC.
           DISPLAY 'WS-I<' WS-I '>'
           
           IF EIBTRMID > '' THEN
                EXEC CICS INQUIRE TERMINAL(EIBTRMID) UCTRANST(WS-UCS)
                END-EXEC  
                DISPLAY 'WS-UCS<' WS-UCS '>'
           END-IF
           
           EXEC CICS 
                SEND TEXT FROM (WS-RETURN-MESSAGE)
           END-EXEC.
           EXEC CICS RETURN END-EXEC.