CICS DELETE ACTIVITY provides activity deletion and cleanup capabilities in CICS environments. It enables programs to delete activities, clean up activity resources, and remove activity definitions from CICS applications.
CICS DELETE ACTIVITY is a command that allows programs to delete activities, clean up activity resources, and remove activity definitions from CICS environments. It provides activity deletion capabilities, resource cleanup, and activity removal for CICS applications.
123456EXEC CICS DELETE ACTIVITY ACTIVITYID(activity-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 activities
1234567891011121314151617181920IDENTIFICATION DIVISION. PROGRAM-ID. DELETE01. DATA DIVISION. WORKING-STORAGE SECTION. 01 ACTIVITY-ID PIC X(8) VALUE 'ACT001'. 01 RESPONSE-CODE PIC S9(8) COMP. PROCEDURE DIVISION. EXEC CICS DELETE ACTIVITY ACTIVITYID(ACTIVITY-ID) RESP(RESPONSE-CODE) END-EXEC IF RESPONSE-CODE = DFHRESP(NORMAL) DISPLAY 'Activity deleted successfully' ELSE DISPLAY 'Failed to delete activity' END-IF EXEC CICS RETURN END-EXEC.
123456789101112131415161718192021222324IDENTIFICATION DIVISION. PROGRAM-ID. DELETE02. DATA DIVISION. WORKING-STORAGE SECTION. 01 ACTIVITY-ID PIC X(8) VALUE 'ACT002'. 01 FORCE-OPTION PIC X(4) VALUE 'YES'. 01 RESPONSE-CODE PIC S9(8) COMP. PROCEDURE DIVISION. EXEC CICS DELETE ACTIVITY ACTIVITYID(ACTIVITY-ID) FORCE(FORCE-OPTION) RESP(RESPONSE-CODE) END-EXEC IF RESPONSE-CODE = DFHRESP(NORMAL) DISPLAY 'Activity force deleted' DISPLAY 'Activity ID: ' ACTIVITY-ID DISPLAY 'Force option: ' FORCE-OPTION ELSE DISPLAY 'Failed to force delete activity' END-IF EXEC CICS RETURN END-EXEC.
1234567891011121314151617181920212223242526272829303132IDENTIFICATION DIVISION. PROGRAM-ID. DELETE03. DATA DIVISION. WORKING-STORAGE SECTION. 01 ACTIVITY-ID PIC X(8) VALUE 'ACT003'. 01 CLEANUP-OPTION PIC X(4) VALUE 'YES'. 01 RESPONSE-CODE PIC S9(8) COMP. PROCEDURE DIVISION. EXEC CICS DELETE ACTIVITY ACTIVITYID(ACTIVITY-ID) CLEANUP(CLEANUP-OPTION) RESP(RESPONSE-CODE) END-EXEC EVALUATE RESPONSE-CODE WHEN DFHRESP(NORMAL) DISPLAY 'Activity deleted successfully' DISPLAY 'Activity ID: ' ACTIVITY-ID WHEN DFHRESP(NOTFND) DISPLAY 'Activity not found' WHEN DFHRESP(INVREQ) DISPLAY 'Invalid deletion request' WHEN DFHRESP(ACTIVITYERR) DISPLAY 'Activity-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 ACTIVITY like cleaning up your room:
Create a program that deletes a basic activity with standard parameters.
Write a program that performs forced deletion of an activity.
Implement comprehensive error handling for activity deletion failures and cleanup errors.