CICS ENDBROWSE CONTAINER (BTS) provides Business Transaction Services container browse termination capabilities in CICS environments. It enables programs to terminate BTS container browse operations, clean up browse resources, and end container browsing sessions in CICS applications.
CICS ENDBROWSE CONTAINER (BTS) is a command that allows programs to terminate Business Transaction Services container browse operations, clean up browse resources, and end container browsing sessions in CICS environments. It provides BTS container browse termination capabilities, resource cleanup, and session management for CICS applications.
12345EXEC CICS ENDBROWSE CONTAINER [CHANNEL(channel-name)] [REQID(request-id)] [RESP(response-code)] END-EXEC
Standard termination with proper cleanup
Immediate termination without waiting
Termination based on channel operations
Termination of multiple container browse operations
12345678910111213141516171819202122IDENTIFICATION DIVISION. PROGRAM-ID. ENDBROWSE01. DATA DIVISION. WORKING-STORAGE SECTION. 01 CHANNEL-NAME PIC X(20) 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 'BTS container browse terminated successfully' ELSE DISPLAY 'Failed to terminate BTS container browse' END-IF EXEC CICS RETURN END-EXEC.
123456789101112131415161718192021IDENTIFICATION DIVISION. PROGRAM-ID. ENDBROWSE02. DATA DIVISION. WORKING-STORAGE SECTION. 01 CHANNEL-NAME PIC X(20) VALUE 'PROCESS_CHANNEL'. 01 RESPONSE-CODE PIC S9(8) COMP. PROCEDURE DIVISION. EXEC CICS ENDBROWSE CONTAINER CHANNEL(CHANNEL-NAME) RESP(RESPONSE-CODE) END-EXEC IF RESPONSE-CODE = DFHRESP(NORMAL) DISPLAY 'Channel container browse terminated' DISPLAY 'Channel: ' CHANNEL-NAME ELSE DISPLAY 'Failed to terminate channel container browse' END-IF EXEC CICS RETURN END-EXEC.
123456789101112131415161718192021222324252627282930313233IDENTIFICATION DIVISION. PROGRAM-ID. ENDBROWSE03. DATA DIVISION. WORKING-STORAGE SECTION. 01 CHANNEL-NAME PIC X(20) VALUE 'MESSAGE_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 'BTS container browse terminated successfully' DISPLAY 'Channel: ' CHANNEL-NAME DISPLAY 'Request ID: ' REQUEST-ID WHEN DFHRESP(NOTFND) DISPLAY 'Browse operation not found' WHEN DFHRESP(INVREQ) DISPLAY 'Invalid termination request' WHEN DFHRESP(CONTAINERERR) DISPLAY 'Container-specific error occurred' WHEN DFHRESP(ENDBROWSEERR) DISPLAY 'End browse-specific error occurred' WHEN OTHER DISPLAY 'Unexpected error occurred' END-EVALUATE EXEC CICS RETURN END-EXEC.
Think of CICS ENDBROWSE CONTAINER (BTS) like finishing looking through boxes:
Create a program that terminates a basic BTS container browse operation.
Write a program that terminates container browse operations for specific channels.
Implement comprehensive error handling for container browse termination failures and cleanup errors.