CICS DELETE CONTAINER (BTS) provides Business Transaction Services container deletion and cleanup capabilities in CICS environments. It enables programs to delete BTS containers, clean up container resources, and remove container data from CICS applications.
CICS DELETE CONTAINER (BTS) is a command that allows programs to delete Business Transaction Services containers, clean up container resources, and remove container data from CICS environments. It provides BTS container deletion capabilities, resource cleanup, and container removal for CICS applications.
123456EXEC CICS DELETE CONTAINER CONTAINER(container-name) [CHANNEL(channel-name)] [FORCE(force-option)] [RESP(response-code)] END-EXEC
Containers that store business data
Containers that control BTS operations
Containers that handle message processing
Containers used for temporary operations
12345678910111213141516171819202122IDENTIFICATION DIVISION. PROGRAM-ID. DELETE01. DATA DIVISION. WORKING-STORAGE SECTION. 01 CONTAINER-NAME PIC X(20) VALUE 'TRANSACTION_DATA'. 01 CHANNEL-NAME PIC X(20) VALUE 'MAIN_CHANNEL'. 01 RESPONSE-CODE PIC S9(8) COMP. PROCEDURE DIVISION. EXEC CICS DELETE CONTAINER CONTAINER(CONTAINER-NAME) CHANNEL(CHANNEL-NAME) RESP(RESPONSE-CODE) END-EXEC IF RESPONSE-CODE = DFHRESP(NORMAL) DISPLAY 'Container deleted successfully' ELSE DISPLAY 'Failed to delete container' END-IF EXEC CICS RETURN END-EXEC.
123456789101112131415161718192021222324252627IDENTIFICATION DIVISION. PROGRAM-ID. DELETE02. DATA DIVISION. WORKING-STORAGE SECTION. 01 CONTAINER-NAME PIC X(20) VALUE 'BUSINESS_DATA'. 01 CHANNEL-NAME PIC X(20) VALUE 'PROCESS_CHANNEL'. 01 FORCE-OPTION PIC X(4) VALUE 'YES'. 01 RESPONSE-CODE PIC S9(8) COMP. PROCEDURE DIVISION. EXEC CICS DELETE CONTAINER CONTAINER(CONTAINER-NAME) CHANNEL(CHANNEL-NAME) FORCE(FORCE-OPTION) RESP(RESPONSE-CODE) END-EXEC IF RESPONSE-CODE = DFHRESP(NORMAL) DISPLAY 'Container force deleted' DISPLAY 'Container: ' CONTAINER-NAME DISPLAY 'Channel: ' CHANNEL-NAME DISPLAY 'Force: ' FORCE-OPTION ELSE DISPLAY 'Failed to force delete container' END-IF EXEC CICS RETURN END-EXEC.
1234567891011121314151617181920212223242526272829303132IDENTIFICATION DIVISION. PROGRAM-ID. DELETE03. DATA DIVISION. WORKING-STORAGE SECTION. 01 CONTAINER-NAME PIC X(20) VALUE 'MESSAGE_DATA'. 01 CHANNEL-NAME PIC X(20) VALUE 'MESSAGE_CHANNEL'. 01 RESPONSE-CODE PIC S9(8) COMP. PROCEDURE DIVISION. EXEC CICS DELETE CONTAINER CONTAINER(CONTAINER-NAME) CHANNEL(CHANNEL-NAME) RESP(RESPONSE-CODE) END-EXEC EVALUATE RESPONSE-CODE WHEN DFHRESP(NORMAL) DISPLAY 'Container deleted successfully' DISPLAY 'Container: ' CONTAINER-NAME WHEN DFHRESP(NOTFND) DISPLAY 'Container not found' WHEN DFHRESP(INVREQ) DISPLAY 'Invalid deletion request' WHEN DFHRESP(CONTAINERERR) DISPLAY 'Container-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 CONTAINER (BTS) like throwing away a box:
Create a program that deletes a basic BTS container with standard parameters.
Write a program that performs forced deletion of a BTS container.
Implement comprehensive error handling for container deletion failures and cleanup errors.