CICS DELETE CONTAINER (CHANNEL) provides channel container deletion capabilities in CICS environments. It enables programs to delete containers from channels, manage container cleanup, and handle container deletion in CICS applications.
CICS DELETE CONTAINER (CHANNEL) is a command that allows programs to delete containers from channels, manage container cleanup, and handle container deletion in CICS environments. It provides container deletion capabilities, cleanup management, and deletion handling for CICS applications.
12345EXEC CICS DELETE CONTAINER [CHANNEL(channel-name)] [CONTAINER(container-name)] [RESP(response-code)] END-EXEC
Delete individual containers from channels
Delete multiple containers from channels
Delete containers based on conditions
Delete containers selectively
123456789101112131415161718192021222324IDENTIFICATION DIVISION. PROGRAM-ID. DELETECON01. DATA DIVISION. WORKING-STORAGE SECTION. 01 CHANNEL-NAME PIC X(16) VALUE 'MAIN-CHANNEL'. 01 CONTAINER-NAME PIC X(16) VALUE 'DATA-CONTAINER'. 01 RESPONSE-CODE PIC S9(8) COMP. PROCEDURE DIVISION. EXEC CICS DELETE CONTAINER CHANNEL(CHANNEL-NAME) CONTAINER(CONTAINER-NAME) RESP(RESPONSE-CODE) END-EXEC IF RESPONSE-CODE = DFHRESP(NORMAL) DISPLAY 'Container deleted successfully' DISPLAY 'Channel Name: ' CHANNEL-NAME DISPLAY 'Container Name: ' CONTAINER-NAME ELSE DISPLAY 'Failed to delete container' END-IF EXEC CICS RETURN END-EXEC.
123456789101112131415161718192021222324252627282930313233343536IDENTIFICATION DIVISION. PROGRAM-ID. DELETECON02. DATA DIVISION. WORKING-STORAGE SECTION. 01 CHANNEL-NAME PIC X(16) VALUE 'DATA-CHANNEL'. 01 CONTAINER-NAME PIC X(16) VALUE 'TEMP-CONTAINER'. 01 RESPONSE-CODE PIC S9(8) COMP. 01 DELETE-COUNT PIC 9(3) VALUE 0. 01 CONTAINER-LIST. 05 CONTAINER-ITEM OCCURS 5 TIMES. 10 CONTAINER-ID PIC X(16). PROCEDURE DIVISION. MOVE 'CONTAINER-01' TO CONTAINER-ID(1) MOVE 'CONTAINER-02' TO CONTAINER-ID(2) MOVE 'CONTAINER-03' TO CONTAINER-ID(3) MOVE 'CONTAINER-04' TO CONTAINER-ID(4) MOVE 'CONTAINER-05' TO CONTAINER-ID(5) PERFORM VARYING DELETE-COUNT FROM 1 BY 1 UNTIL DELETE-COUNT > 5 EXEC CICS DELETE CONTAINER CHANNEL(CHANNEL-NAME) CONTAINER(CONTAINER-ID(DELETE-COUNT)) RESP(RESPONSE-CODE) END-EXEC IF RESPONSE-CODE = DFHRESP(NORMAL) DISPLAY 'Container ' CONTAINER-ID(DELETE-COUNT) ' deleted successfully' ELSE DISPLAY 'Failed to delete container ' CONTAINER-ID(DELETE-COUNT) END-IF END-PERFORM EXEC CICS RETURN END-EXEC.
123456789101112131415161718192021222324252627282930313233IDENTIFICATION DIVISION. PROGRAM-ID. DELETECON03. DATA DIVISION. WORKING-STORAGE SECTION. 01 CHANNEL-NAME PIC X(16) VALUE 'TEST-CHANNEL'. 01 CONTAINER-NAME PIC X(16) VALUE 'TEST-CONTAINER'. 01 RESPONSE-CODE PIC S9(8) COMP. PROCEDURE DIVISION. EXEC CICS DELETE CONTAINER CHANNEL(CHANNEL-NAME) CONTAINER(CONTAINER-NAME) RESP(RESPONSE-CODE) END-EXEC EVALUATE RESPONSE-CODE WHEN DFHRESP(NORMAL) DISPLAY 'Container deletion successful' DISPLAY 'Channel Name: ' CHANNEL-NAME DISPLAY 'Container Name: ' CONTAINER-NAME WHEN DFHRESP(INVREQ) DISPLAY 'Invalid deletion request' WHEN DFHRESP(CHANNELERR) DISPLAY 'Channel-specific error occurred' WHEN DFHRESP(CONTAINERERR) DISPLAY 'Container-specific error occurred' WHEN DFHRESP(AUTHORITYERR) DISPLAY 'Authorization error occurred' WHEN OTHER DISPLAY 'Unexpected error occurred' END-EVALUATE EXEC CICS RETURN END-EXEC.
Think of CICS DELETE CONTAINER (CHANNEL) like removing items from a box:
Create a program that deletes containers from channels using DELETE CONTAINER.
Write a program that deletes multiple containers from channels in batch operations.
Implement comprehensive error handling for container deletion failures.