CICS ISSUE EOI provides end of input signaling capabilities for programs and transactions. It enables programs to signal end of input, manage input completion, and handle input processing in CICS environments.
CICS ISSUE EOI is a command that allows programs to signal the end of input in the system. It provides end of input signaling capabilities, input completion management, and input processing for CICS applications.
123EXEC CICS ISSUE EOI [RESP(response-code)] END-EXEC
Terminal input types
File input types
Network input types
System input types
12345678910111213141516171819202122IDENTIFICATION DIVISION. PROGRAM-ID. ISSUEEOI01. DATA DIVISION. WORKING-STORAGE SECTION. 01 RESPONSE-CODE PIC S9(8) COMP. 01 INPUT-COUNT PIC S9(4) COMP VALUE 0. 01 MAX-INPUT PIC S9(4) COMP VALUE 10. PROCEDURE DIVISION. DISPLAY 'Signaling end of input' EXEC CICS ISSUE EOI RESP(RESPONSE-CODE) END-EXEC IF RESPONSE-CODE = DFHRESP(NORMAL) DISPLAY 'End of input signaled successfully' ELSE DISPLAY 'End of input signal failed' END-IF EXEC CICS RETURN END-EXEC.
123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051IDENTIFICATION DIVISION. PROGRAM-ID. ISSUEEOI02. DATA DIVISION. WORKING-STORAGE SECTION. 01 RESPONSE-CODE PIC S9(8) COMP. 01 INPUT-STATUS PIC X(1). 01 INPUT-TYPE PIC X(8). 01 INPUT-SOURCE PIC X(8). 01 INPUT-LIST. 05 INPUT-ITEM OCCURS 5 TIMES. 10 INPUT-ID PIC X(8). 10 INPUT-TYPE PIC X(8). 10 INPUT-STATUS PIC X(1). PROCEDURE DIVISION. PERFORM INITIALIZE-INPUTS PERFORM SIGNAL-MULTIPLE-EOI EXEC CICS RETURN END-EXEC. INITIALIZE-INPUTS. MOVE 'TERM001' TO INPUT-ID(1) MOVE '3270' TO INPUT-TYPE(1) MOVE 'TERM002' TO INPUT-ID(2) MOVE '5250' TO INPUT-TYPE(2) MOVE 'TERM003' TO INPUT-ID(3) MOVE 'VT100' TO INPUT-TYPE(3) MOVE 'TERM004' TO INPUT-ID(4) MOVE 'ASCII' TO INPUT-TYPE(4) MOVE 'TERM005' TO INPUT-ID(5) MOVE 'TCPIP' TO INPUT-TYPE(5). SIGNAL-MULTIPLE-EOI. PERFORM VARYING INPUT-COUNT FROM 1 BY 1 UNTIL INPUT-COUNT > 5 PERFORM SIGNAL-SINGLE-EOI IF RESPONSE-CODE = DFHRESP(NORMAL) MOVE 'E' TO INPUT-STATUS(INPUT-COUNT) DISPLAY 'Input ' INPUT-COUNT ' EOI signaled successfully' ELSE MOVE 'F' TO INPUT-STATUS(INPUT-COUNT) DISPLAY 'Input ' INPUT-COUNT ' EOI signal failed' END-IF END-PERFORM. SIGNAL-SINGLE-EOI. EXEC CICS ISSUE EOI RESP(RESPONSE-CODE) END-EXEC.
12345678910111213141516171819202122232425262728293031323334353637383940414243444546IDENTIFICATION DIVISION. PROGRAM-ID. ISSUEEOI03. DATA DIVISION. WORKING-STORAGE SECTION. 01 RESPONSE-CODE PIC S9(8) COMP. 01 RETRY-COUNT PIC S9(2) COMP VALUE 0. 01 MAX-RETRIES PIC S9(2) COMP VALUE 3. 01 EOI-SIGNAL-SUCCESSFUL PIC X(1) VALUE 'N'. PROCEDURE DIVISION. PERFORM SIGNAL-EOI-WITH-RETRY EXEC CICS RETURN END-EXEC. SIGNAL-EOI-WITH-RETRY. PERFORM SIGNAL-EOI IF RESPONSE-CODE NOT = DFHRESP(NORMAL) AND RETRY-COUNT < MAX-RETRIES ADD 1 TO RETRY-COUNT DISPLAY 'Retry ' RETRY-COUNT ' EOI signal operation' PERFORM SIGNAL-EOI-WITH-RETRY END-IF. SIGNAL-EOI. EXEC CICS ISSUE EOI RESP(RESPONSE-CODE) END-EXEC EVALUATE RESPONSE-CODE WHEN DFHRESP(NORMAL) MOVE 'Y' TO EOI-SIGNAL-SUCCESSFUL DISPLAY 'EOI signal operation successful' WHEN DFHRESP(NOTAUTH) DISPLAY 'Not authorized to signal EOI' WHEN DFHRESP(INVREQ) DISPLAY 'Invalid EOI signal request' WHEN DFHRESP(INPUTERR) DISPLAY 'Input EOI signal error' WHEN DFHRESP(INPUTNOTFOUND) DISPLAY 'Input not found' WHEN DFHRESP(INPUTINUSE) DISPLAY 'Input is in use' WHEN OTHER DISPLAY 'Unexpected EOI signal error' END-EVALUATE.
Think of CICS ISSUE EOI like finishing reading a book:
Create a program that signals end of basic input.
Write a program that manages multiple input EOI signaling.
Implement comprehensive error handling for input EOI signaling failures.