CICS ENDBROWSE ACTIVITY provides activity browse termination capabilities in CICS environments. It enables programs to terminate activity browse operations, clean up browse resources, and end activity browsing sessions in CICS applications.
CICS ENDBROWSE ACTIVITY is a command that allows programs to terminate activity browse operations, clean up browse resources, and end activity browsing sessions in CICS environments. It provides browse termination capabilities, resource cleanup, and session management for CICS applications.
1234EXEC CICS ENDBROWSE ACTIVITY [REQID(request-id)] [RESP(response-code)] END-EXEC
Standard termination with proper cleanup
Immediate termination without waiting
Termination based on specific conditions
Termination of multiple 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 ACTIVITY REQID(REQUEST-ID) RESP(RESPONSE-CODE) END-EXEC IF RESPONSE-CODE = DFHRESP(NORMAL) DISPLAY 'Activity browse terminated successfully' ELSE DISPLAY 'Failed to terminate activity 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 ACTIVITY RESP(RESPONSE-CODE) END-EXEC IF RESPONSE-CODE = DFHRESP(NORMAL) DISPLAY 'All activity browse operations terminated' ELSE DISPLAY 'Failed to terminate activity 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 ACTIVITY REQID(REQUEST-ID) RESP(RESPONSE-CODE) END-EXEC EVALUATE RESPONSE-CODE WHEN DFHRESP(NORMAL) DISPLAY 'Activity 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(ACTIVITYERR) DISPLAY 'Activity-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 ACTIVITY like finishing looking through a book:
Create a program that terminates a basic activity browse operation.
Write a program that terminates multiple activity browse operations.
Implement comprehensive error handling for browse termination failures and cleanup errors.