CICS RETRIEVE SUBEVENT provides subevent retrieval capabilities in CICS environments. It enables programs to retrieve subevent information, manage subevent data, and handle subevent operations in CICS applications.
CICS RETRIEVE SUBEVENT is a command that allows programs to retrieve subevent information, manage subevent data, and handle subevent operations in CICS environments. It provides subevent retrieval capabilities, data management, and subevent handling for CICS applications.
1234567EXEC CICS RETRIEVE SUBEVENT [EVENTID(event-id)] [SUBEVENTID(subevent-id)] [INTO(data-area)] [LENGTH(data-length)] [RESP(response-code)] END-EXEC
Retrieve subevent data information
Retrieve subevent status information
Retrieve subevent relationship information
Retrieve subevent processing information
1234567891011121314151617181920212223242526272829IDENTIFICATION DIVISION. PROGRAM-ID. RETRIEVE01. DATA DIVISION. WORKING-STORAGE SECTION. 01 EVENT-ID PIC X(8) VALUE 'EVT001'. 01 SUBEVENT-ID PIC X(8) VALUE 'SUB001'. 01 DATA-AREA PIC X(1000). 01 DATA-LENGTH PIC S9(8) COMP. 01 RESPONSE-CODE PIC S9(8) COMP. PROCEDURE DIVISION. EXEC CICS RETRIEVE SUBEVENT EVENTID(EVENT-ID) SUBEVENTID(SUBEVENT-ID) INTO(DATA-AREA) LENGTH(DATA-LENGTH) RESP(RESPONSE-CODE) END-EXEC IF RESPONSE-CODE = DFHRESP(NORMAL) DISPLAY 'Subevent retrieved successfully' DISPLAY 'Event ID: ' EVENT-ID DISPLAY 'Subevent ID: ' SUBEVENT-ID DISPLAY 'Data length: ' DATA-LENGTH ELSE DISPLAY 'Failed to retrieve subevent' END-IF EXEC CICS RETURN END-EXEC.
1234567891011121314151617181920212223242526272829303132333435363738394041IDENTIFICATION DIVISION. PROGRAM-ID. RETRIEVE02. DATA DIVISION. WORKING-STORAGE SECTION. 01 EVENT-ID PIC X(8) VALUE 'EVT002'. 01 SUBEVENT-ID PIC X(8) VALUE 'SUB002'. 01 DATA-AREA PIC X(1000). 01 DATA-LENGTH PIC S9(8) COMP. 01 RESPONSE-CODE PIC S9(8) COMP. 01 SUBEVENT-STATUS PIC X(10). PROCEDURE DIVISION. EXEC CICS RETRIEVE SUBEVENT EVENTID(EVENT-ID) SUBEVENTID(SUBEVENT-ID) INTO(DATA-AREA) LENGTH(DATA-LENGTH) RESP(RESPONSE-CODE) END-EXEC IF RESPONSE-CODE = DFHRESP(NORMAL) MOVE DATA-AREA(1:10) TO SUBEVENT-STATUS DISPLAY 'Subevent Status: ' SUBEVENT-STATUS EVALUATE SUBEVENT-STATUS WHEN 'ACTIVE' DISPLAY 'Subevent is currently active' WHEN 'PENDING' DISPLAY 'Subevent is pending processing' WHEN 'COMPLETED' DISPLAY 'Subevent has been completed' WHEN 'FAILED' DISPLAY 'Subevent has failed' WHEN OTHER DISPLAY 'Unknown subevent status' END-EVALUATE ELSE DISPLAY 'Failed to retrieve subevent status' END-IF EXEC CICS RETURN END-EXEC.
12345678910111213141516171819202122232425262728293031323334353637IDENTIFICATION DIVISION. PROGRAM-ID. RETRIEVE03. DATA DIVISION. WORKING-STORAGE SECTION. 01 EVENT-ID PIC X(8) VALUE 'EVT003'. 01 SUBEVENT-ID PIC X(8) VALUE 'SUB003'. 01 DATA-AREA PIC X(1000). 01 DATA-LENGTH PIC S9(8) COMP. 01 RESPONSE-CODE PIC S9(8) COMP. PROCEDURE DIVISION. EXEC CICS RETRIEVE SUBEVENT EVENTID(EVENT-ID) SUBEVENTID(SUBEVENT-ID) INTO(DATA-AREA) LENGTH(DATA-LENGTH) RESP(RESPONSE-CODE) END-EXEC EVALUATE RESPONSE-CODE WHEN DFHRESP(NORMAL) DISPLAY 'Subevent retrieved successfully' DISPLAY 'Event ID: ' EVENT-ID DISPLAY 'Subevent ID: ' SUBEVENT-ID WHEN DFHRESP(NOTFND) DISPLAY 'Subevent not found' WHEN DFHRESP(INVREQ) DISPLAY 'Invalid retrieval request' WHEN DFHRESP(EVENTERR) DISPLAY 'Event-specific error occurred' WHEN DFHRESP(SUBEVENTERR) DISPLAY 'Subevent-specific error occurred' WHEN OTHER DISPLAY 'Unexpected error occurred' END-EVALUATE EXEC CICS RETURN END-EXEC.
Think of CICS RETRIEVE SUBEVENT like getting a small part of a big story:
Create a program that retrieves subevent information using RETRIEVE SUBEVENT.
Write a program that retrieves subevent status and processes different status values.
Implement comprehensive error handling for subevent retrieval failures and invalid subevent IDs.