CICS DELETE EVENT provides event deletion and cleanup capabilities in CICS environments. It enables programs to delete events, clean up event resources, and remove event definitions from CICS applications.
CICS DELETE EVENT is a command that allows programs to delete events, clean up event resources, and remove event definitions from CICS environments. It provides event deletion capabilities, resource cleanup, and event removal for CICS applications.
123456EXEC CICS DELETE EVENT EVENTID(event-id) [FORCE(force-option)] [CLEANUP(cleanup-option)] [RESP(response-code)] END-EXEC
Standard deletion with proper cleanup
Immediate deletion without waiting
Deletion based on specific conditions
Deletion of multiple events
1234567891011121314151617181920IDENTIFICATION DIVISION. PROGRAM-ID. DELETE01. DATA DIVISION. WORKING-STORAGE SECTION. 01 EVENT-ID PIC X(8) VALUE 'EVT001'. 01 RESPONSE-CODE PIC S9(8) COMP. PROCEDURE DIVISION. EXEC CICS DELETE EVENT EVENTID(EVENT-ID) RESP(RESPONSE-CODE) END-EXEC IF RESPONSE-CODE = DFHRESP(NORMAL) DISPLAY 'Event deleted successfully' ELSE DISPLAY 'Failed to delete event' END-IF EXEC CICS RETURN END-EXEC.
123456789101112131415161718192021222324IDENTIFICATION DIVISION. PROGRAM-ID. DELETE02. DATA DIVISION. WORKING-STORAGE SECTION. 01 EVENT-ID PIC X(8) VALUE 'EVT002'. 01 FORCE-OPTION PIC X(4) VALUE 'YES'. 01 RESPONSE-CODE PIC S9(8) COMP. PROCEDURE DIVISION. EXEC CICS DELETE EVENT EVENTID(EVENT-ID) FORCE(FORCE-OPTION) RESP(RESPONSE-CODE) END-EXEC IF RESPONSE-CODE = DFHRESP(NORMAL) DISPLAY 'Event force deleted' DISPLAY 'Event ID: ' EVENT-ID DISPLAY 'Force option: ' FORCE-OPTION ELSE DISPLAY 'Failed to force delete event' END-IF EXEC CICS RETURN END-EXEC.
1234567891011121314151617181920212223242526272829303132IDENTIFICATION DIVISION. PROGRAM-ID. DELETE03. DATA DIVISION. WORKING-STORAGE SECTION. 01 EVENT-ID PIC X(8) VALUE 'EVT003'. 01 CLEANUP-OPTION PIC X(4) VALUE 'YES'. 01 RESPONSE-CODE PIC S9(8) COMP. PROCEDURE DIVISION. EXEC CICS DELETE EVENT EVENTID(EVENT-ID) CLEANUP(CLEANUP-OPTION) RESP(RESPONSE-CODE) END-EXEC EVALUATE RESPONSE-CODE WHEN DFHRESP(NORMAL) DISPLAY 'Event deleted successfully' DISPLAY 'Event ID: ' EVENT-ID WHEN DFHRESP(NOTFND) DISPLAY 'Event not found' WHEN DFHRESP(INVREQ) DISPLAY 'Invalid deletion request' WHEN DFHRESP(EVENTERR) DISPLAY 'Event-specific error occurred' WHEN DFHRESP(DELETEERR) DISPLAY 'Deletion-specific error occurred' WHEN OTHER DISPLAY 'Unexpected error occurred' END-EVALUATE EXEC CICS RETURN END-EXEC.
Think of CICS DELETE EVENT like canceling a party:
Create a program that deletes a basic event with standard parameters.
Write a program that performs forced deletion of an event.
Implement comprehensive error handling for event deletion failures and cleanup errors.