CICS ENDBROWSE CONTAINER (CHANNEL) provides channel container browse termination capabilities in CICS environments. It enables programs to terminate channel container browse operations, manage browse cleanup, and handle browse termination in CICS applications.
CICS ENDBROWSE CONTAINER (CHANNEL) is a command that allows programs to terminate channel container browse operations, manage browse cleanup, and handle browse termination in CICS environments. It provides browse termination capabilities, cleanup management, and termination handling for CICS applications.
12345EXEC CICS ENDBROWSE CONTAINER [CHANNEL(channel-name)] [REQID(request-id)] [RESP(response-code)] END-EXEC
Terminate browse operations normally
Terminate browse operations early
Terminate browse operations for resource management
Terminate browse operations for session management
123456789101112131415161718192021222324IDENTIFICATION DIVISION. PROGRAM-ID. ENDBROWSE01. DATA DIVISION. WORKING-STORAGE SECTION. 01 CHANNEL-NAME PIC X(16) VALUE 'MAIN-CHANNEL'. 01 REQUEST-ID PIC X(8) VALUE 'REQ001'. 01 RESPONSE-CODE PIC S9(8) COMP. PROCEDURE DIVISION. EXEC CICS ENDBROWSE CONTAINER CHANNEL(CHANNEL-NAME) REQID(REQUEST-ID) RESP(RESPONSE-CODE) END-EXEC IF RESPONSE-CODE = DFHRESP(NORMAL) DISPLAY 'Browse terminated successfully' DISPLAY 'Channel Name: ' CHANNEL-NAME DISPLAY 'Request ID: ' REQUEST-ID ELSE DISPLAY 'Failed to terminate browse' END-IF EXEC CICS RETURN END-EXEC.
12345678910111213141516171819202122232425262728293031323334353637383940414243IDENTIFICATION DIVISION. PROGRAM-ID. ENDBROWSE02. DATA DIVISION. WORKING-STORAGE SECTION. 01 CHANNEL-NAME PIC X(16) VALUE 'DATA-CHANNEL'. 01 REQUEST-ID PIC X(8) VALUE 'REQ002'. 01 RESPONSE-CODE PIC S9(8) COMP. 01 CONTAINER-COUNT PIC 9(3) VALUE 0. 01 MAX-CONTAINERS PIC 9(3) VALUE 100. PROCEDURE DIVISION. PERFORM PROCESS-CONTAINERS UNTIL CONTAINER-COUNT >= MAX-CONTAINERS OR RESPONSE-CODE NOT = DFHRESP(NORMAL) EXEC CICS ENDBROWSE CONTAINER CHANNEL(CHANNEL-NAME) REQID(REQUEST-ID) RESP(RESPONSE-CODE) END-EXEC IF RESPONSE-CODE = DFHRESP(NORMAL) DISPLAY 'Conditional browse termination successful' DISPLAY 'Channel Name: ' CHANNEL-NAME DISPLAY 'Request ID: ' REQUEST-ID DISPLAY 'Containers processed: ' CONTAINER-COUNT ELSE DISPLAY 'Failed to terminate conditional browse' END-IF EXEC CICS RETURN END-EXEC. PROCESS-CONTAINERS. EXEC CICS GETNEXT CONTAINER CHANNEL(CHANNEL-NAME) REQID(REQUEST-ID) RESP(RESPONSE-CODE) END-EXEC IF RESPONSE-CODE = DFHRESP(NORMAL) ADD 1 TO CONTAINER-COUNT DISPLAY 'Processing container ' CONTAINER-COUNT END-IF.
123456789101112131415161718192021222324252627282930313233IDENTIFICATION DIVISION. PROGRAM-ID. ENDBROWSE03. DATA DIVISION. WORKING-STORAGE SECTION. 01 CHANNEL-NAME PIC X(16) VALUE 'TEST-CHANNEL'. 01 REQUEST-ID PIC X(8) VALUE 'REQ003'. 01 RESPONSE-CODE PIC S9(8) COMP. PROCEDURE DIVISION. EXEC CICS ENDBROWSE CONTAINER CHANNEL(CHANNEL-NAME) REQID(REQUEST-ID) RESP(RESPONSE-CODE) END-EXEC EVALUATE RESPONSE-CODE WHEN DFHRESP(NORMAL) DISPLAY 'Browse termination successful' DISPLAY 'Channel Name: ' CHANNEL-NAME DISPLAY 'Request ID: ' REQUEST-ID WHEN DFHRESP(INVREQ) DISPLAY 'Invalid termination request' WHEN DFHRESP(CHANNELERR) DISPLAY 'Channel-specific error occurred' WHEN DFHRESP(BROWSEERR) DISPLAY 'Browse-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 ENDBROWSE CONTAINER (CHANNEL) like stopping reading a book:
Create a program that terminates channel container browse operations using ENDBROWSE CONTAINER.
Write a program that terminates browse operations based on specific conditions.
Implement comprehensive error handling for browse termination failures.