CICS DELETE CHANNEL provides channel deletion and cleanup capabilities in CICS environments. It enables programs to delete channels, manage channel cleanup, and handle channel deletion in CICS applications.
CICS DELETE CHANNEL is a command that allows programs to delete channels, manage channel cleanup, and handle channel deletion in CICS environments. It provides channel deletion capabilities, cleanup management, and deletion handling for CICS applications.
12345EXEC CICS DELETE CHANNEL [CHANNEL(channel-name)] [CONTAINER(container-name)] [RESP(response-code)] END-EXEC
Delete entire channel and all contents
Delete specific containers from channel
Delete channels based on conditions
Delete multiple channels in batch
123456789101112131415161718192021IDENTIFICATION DIVISION. PROGRAM-ID. DELETECH01. DATA DIVISION. WORKING-STORAGE SECTION. 01 CHANNEL-NAME PIC X(16) VALUE 'MAIN-CHANNEL'. 01 RESPONSE-CODE PIC S9(8) COMP. PROCEDURE DIVISION. EXEC CICS DELETE CHANNEL CHANNEL(CHANNEL-NAME) RESP(RESPONSE-CODE) END-EXEC IF RESPONSE-CODE = DFHRESP(NORMAL) DISPLAY 'Channel deleted successfully' DISPLAY 'Channel Name: ' CHANNEL-NAME ELSE DISPLAY 'Failed to delete channel' END-IF EXEC CICS RETURN END-EXEC.
12345678910111213141516171819202122232425262728IDENTIFICATION DIVISION. PROGRAM-ID. DELETECH02. DATA DIVISION. WORKING-STORAGE SECTION. 01 CHANNEL-NAME PIC X(16) VALUE 'DATA-CHANNEL'. 01 CONTAINER-NAME PIC X(16) VALUE 'DATA-CONTAINER'. 01 RESPONSE-CODE PIC S9(8) COMP. 01 DELETE-COUNT PIC 9(3) VALUE 0. PROCEDURE DIVISION. EXEC CICS DELETE CHANNEL CHANNEL(CHANNEL-NAME) CONTAINER(CONTAINER-NAME) RESP(RESPONSE-CODE) END-EXEC IF RESPONSE-CODE = DFHRESP(NORMAL) DISPLAY 'Container deleted from channel successfully' DISPLAY 'Channel Name: ' CHANNEL-NAME DISPLAY 'Container Name: ' CONTAINER-NAME ADD 1 TO DELETE-COUNT DISPLAY 'Delete count: ' DELETE-COUNT ELSE DISPLAY 'Failed to delete container from channel' END-IF EXEC CICS RETURN END-EXEC.
123456789101112131415161718192021222324252627282930313233IDENTIFICATION DIVISION. PROGRAM-ID. DELETECH03. 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 CHANNEL CHANNEL(CHANNEL-NAME) CONTAINER(CONTAINER-NAME) RESP(RESPONSE-CODE) END-EXEC EVALUATE RESPONSE-CODE WHEN DFHRESP(NORMAL) DISPLAY 'Channel 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 CHANNEL like throwing away a box:
Create a program that deletes channels using DELETE CHANNEL.
Write a program that deletes specific containers from channels.
Implement comprehensive error handling for channel deletion failures.