CICS INQUIRE EVENT provides event inquiry capabilities in CICS environments. It enables programs to query event information, retrieve event details, and manage event inquiries in CICS applications.
CICS INQUIRE EVENT is a command that allows programs to query event information, retrieve event details, and manage event inquiries in CICS environments. It provides event inquiry capabilities, status checking, and inquiry management for CICS applications.
123456EXEC CICS INQUIRE EVENT [EVENTID(event-id)] [INTO(data-area)] [LENGTH(data-length)] [RESP(response-code)] END-EXEC
Query event status information
Query event attribute information
Query event handler information
Query event relationship information
1234567891011121314151617181920212223242526IDENTIFICATION DIVISION. PROGRAM-ID. INQUIRE01. DATA DIVISION. WORKING-STORAGE SECTION. 01 EVENT-ID PIC X(8) VALUE 'EVT001'. 01 DATA-AREA PIC X(1000). 01 DATA-LENGTH PIC S9(8) COMP. 01 RESPONSE-CODE PIC S9(8) COMP. PROCEDURE DIVISION. EXEC CICS INQUIRE EVENT EVENTID(EVENT-ID) INTO(DATA-AREA) LENGTH(DATA-LENGTH) RESP(RESPONSE-CODE) END-EXEC IF RESPONSE-CODE = DFHRESP(NORMAL) DISPLAY 'Event inquiry successful' DISPLAY 'Event ID: ' EVENT-ID DISPLAY 'Data length: ' DATA-LENGTH ELSE DISPLAY 'Failed to inquire event' END-IF EXEC CICS RETURN END-EXEC.
123456789101112131415161718192021222324252627282930313233343536373839IDENTIFICATION DIVISION. PROGRAM-ID. INQUIRE02. DATA DIVISION. WORKING-STORAGE SECTION. 01 EVENT-ID PIC X(8) VALUE 'EVT002'. 01 DATA-AREA PIC X(1000). 01 DATA-LENGTH PIC S9(8) COMP. 01 RESPONSE-CODE PIC S9(8) COMP. 01 EVENT-STATUS PIC X(10). PROCEDURE DIVISION. EXEC CICS INQUIRE EVENT EVENTID(EVENT-ID) INTO(DATA-AREA) LENGTH(DATA-LENGTH) RESP(RESPONSE-CODE) END-EXEC IF RESPONSE-CODE = DFHRESP(NORMAL) MOVE DATA-AREA(1:10) TO EVENT-STATUS DISPLAY 'Event Status: ' EVENT-STATUS EVALUATE EVENT-STATUS WHEN 'PENDING' DISPLAY 'Event is pending processing' WHEN 'ACTIVE' DISPLAY 'Event is currently active' WHEN 'COMPLETED' DISPLAY 'Event has been completed' WHEN 'FAILED' DISPLAY 'Event has failed' WHEN OTHER DISPLAY 'Unknown event status' END-EVALUATE ELSE DISPLAY 'Failed to check event status' END-IF EXEC CICS RETURN END-EXEC.
12345678910111213141516171819202122232425262728293031323334IDENTIFICATION DIVISION. PROGRAM-ID. INQUIRE03. DATA DIVISION. WORKING-STORAGE SECTION. 01 EVENT-ID PIC X(8) VALUE 'EVT003'. 01 DATA-AREA PIC X(1000). 01 DATA-LENGTH PIC S9(8) COMP. 01 RESPONSE-CODE PIC S9(8) COMP. PROCEDURE DIVISION. EXEC CICS INQUIRE EVENT EVENTID(EVENT-ID) INTO(DATA-AREA) LENGTH(DATA-LENGTH) RESP(RESPONSE-CODE) END-EXEC EVALUATE RESPONSE-CODE WHEN DFHRESP(NORMAL) DISPLAY 'Event inquiry successful' DISPLAY 'Event ID: ' EVENT-ID WHEN DFHRESP(NOTFND) DISPLAY 'Event not found' WHEN DFHRESP(INVREQ) DISPLAY 'Invalid inquiry request' WHEN DFHRESP(EVENTERR) DISPLAY 'Event-specific error occurred' WHEN DFHRESP(INQUIREERR) DISPLAY 'Inquiry-specific error occurred' WHEN OTHER DISPLAY 'Unexpected error occurred' END-EVALUATE EXEC CICS RETURN END-EXEC.
Think of CICS INQUIRE EVENT like asking about a party:
Create a program that inquires about event information using INQUIRE EVENT.
Write a program that checks the status of multiple events using INQUIRE EVENT.
Implement comprehensive error handling for event inquiry failures and invalid event IDs.