CICS FREE (APPC) frees APPC resources and deallocates APPC sessions. It enables programs to clean up APPC resources, manage session deallocation, and handle APPC resource cleanup in CICS environments.
CICS FREE (APPC) is a command that allows programs to free APPC resources and deallocate APPC sessions. It provides resource cleanup capabilities, session deallocation, and resource management for CICS applications.
1234EXEC CICS FREE CONVID(conversation-id) [RESP(response-code)] END-EXEC
Freeing APPC session resources
Cleaning up system resources
Recovering from errors and cleaning up
Normal completion and cleanup
12345678910111213141516171819202122IDENTIFICATION DIVISION. PROGRAM-ID. FREE01. DATA DIVISION. WORKING-STORAGE SECTION. 01 CONVERSATION-ID PIC X(8) VALUE 'CONV001'. 01 RESPONSE-CODE PIC S9(8) COMP. PROCEDURE DIVISION. EXEC CICS FREE CONVID(CONVERSATION-ID) RESP(RESPONSE-CODE) END-EXEC IF RESPONSE-CODE = DFHRESP(NORMAL) DISPLAY 'APPC resources freed successfully' DISPLAY 'Conversation ID: ' CONVERSATION-ID DISPLAY 'Resources deallocated' ELSE DISPLAY 'Failed to free APPC resources' END-IF EXEC CICS RETURN END-EXEC.
12345678910111213141516171819202122232425262728293031323334IDENTIFICATION DIVISION. PROGRAM-ID. FREE02. DATA DIVISION. WORKING-STORAGE SECTION. 01 CONVERSATION-ID PIC X(8) VALUE 'CONV002'. 01 RESPONSE-CODE PIC S9(8) COMP. 01 CLEANUP-COUNT PIC S9(2) COMP VALUE 0. 01 MAX-CLEANUPS PIC S9(2) COMP VALUE 3. PROCEDURE DIVISION. PERFORM CLEANUP-RESOURCES IF RESPONSE-CODE = DFHRESP(NORMAL) DISPLAY 'All resources cleaned up successfully' DISPLAY 'Cleanup count: ' CLEANUP-COUNT ELSE DISPLAY 'Resource cleanup failed' END-IF EXEC CICS RETURN END-EXEC. CLEANUP-RESOURCES. ADD 1 TO CLEANUP-COUNT EXEC CICS FREE CONVID(CONVERSATION-ID) RESP(RESPONSE-CODE) END-EXEC IF RESPONSE-CODE = DFHRESP(NORMAL) DISPLAY 'Cleanup ' CLEANUP-COUNT ' successful' ELSE DISPLAY 'Cleanup ' CLEANUP-COUNT ' failed' END-IF.
1234567891011121314151617181920212223242526272829IDENTIFICATION DIVISION. PROGRAM-ID. FREE03. DATA DIVISION. WORKING-STORAGE SECTION. 01 CONVERSATION-ID PIC X(8) VALUE 'CONV003'. 01 RESPONSE-CODE PIC S9(8) COMP. PROCEDURE DIVISION. EXEC CICS FREE CONVID(CONVERSATION-ID) RESP(RESPONSE-CODE) END-EXEC EVALUATE RESPONSE-CODE WHEN DFHRESP(NORMAL) DISPLAY 'APPC resources freed successfully' WHEN DFHRESP(NOTFND) DISPLAY 'Conversation not found' WHEN DFHRESP(INVREQ) DISPLAY 'Invalid free request' WHEN DFHRESP(APPCERR) DISPLAY 'APPC-specific error occurred' WHEN DFHRESP(RESOURCEERR) DISPLAY 'Resource-specific error occurred' WHEN OTHER DISPLAY 'Unexpected error occurred' END-EVALUATE EXEC CICS RETURN END-EXEC.
Think of CICS FREE (APPC) like cleaning up after playing:
Create a program that allocates APPC resources and then frees them properly.
Write a program that performs comprehensive resource cleanup with proper error handling.
Implement comprehensive error handling for resource deallocation failures.