CICS ENDBROWSE EVENT provides event browse termination capabilities in CICS environments. It enables programs to terminate event browse operations, clean up browse resources, and end event browsing sessions in CICS applications.
CICS ENDBROWSE EVENT is a command that allows programs to terminate event browse operations, clean up browse resources, and end event browsing sessions in CICS environments. It provides event browse termination capabilities, resource cleanup, and session management for CICS applications.
1234EXEC CICS ENDBROWSE EVENT [REQID(request-id)] [RESP(response-code)] END-EXEC
Standard termination with proper cleanup
Immediate termination without waiting
Termination based on event types
Termination of multiple event browse operations
1234567891011121314151617181920IDENTIFICATION DIVISION. PROGRAM-ID. ENDBROWSE01. DATA DIVISION. WORKING-STORAGE SECTION. 01 REQUEST-ID PIC X(8) VALUE 'REQ001'. 01 RESPONSE-CODE PIC S9(8) COMP. PROCEDURE DIVISION. EXEC CICS ENDBROWSE EVENT REQID(REQUEST-ID) RESP(RESPONSE-CODE) END-EXEC IF RESPONSE-CODE = DFHRESP(NORMAL) DISPLAY 'Event browse terminated successfully' ELSE DISPLAY 'Failed to terminate event browse' END-IF EXEC CICS RETURN END-EXEC.
123456789101112131415161718IDENTIFICATION DIVISION. PROGRAM-ID. ENDBROWSE02. DATA DIVISION. WORKING-STORAGE SECTION. 01 RESPONSE-CODE PIC S9(8) COMP. PROCEDURE DIVISION. EXEC CICS ENDBROWSE EVENT RESP(RESPONSE-CODE) END-EXEC IF RESPONSE-CODE = DFHRESP(NORMAL) DISPLAY 'All event browse operations terminated' ELSE DISPLAY 'Failed to terminate event browse operations' END-IF EXEC CICS RETURN END-EXEC.
123456789101112131415161718192021222324252627282930IDENTIFICATION DIVISION. PROGRAM-ID. ENDBROWSE03. DATA DIVISION. WORKING-STORAGE SECTION. 01 REQUEST-ID PIC X(8) VALUE 'REQ003'. 01 RESPONSE-CODE PIC S9(8) COMP. PROCEDURE DIVISION. EXEC CICS ENDBROWSE EVENT REQID(REQUEST-ID) RESP(RESPONSE-CODE) END-EXEC EVALUATE RESPONSE-CODE WHEN DFHRESP(NORMAL) DISPLAY 'Event browse terminated successfully' DISPLAY 'Request ID: ' REQUEST-ID WHEN DFHRESP(NOTFND) DISPLAY 'Browse operation not found' WHEN DFHRESP(INVREQ) DISPLAY 'Invalid termination request' WHEN DFHRESP(EVENTERR) DISPLAY 'Event-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 EVENT like finishing looking through a calendar:
Create a program that terminates a basic event browse operation.
Write a program that terminates multiple event browse operations.
Implement comprehensive error handling for event browse termination failures and cleanup errors.