CICS INQUIRE ACTIVITYID provides activity identification inquiry capabilities in CICS environments. It enables programs to query activity information, retrieve activity details, and manage activity inquiries in CICS applications.
CICS INQUIRE ACTIVITYID is a command that allows programs to query activity information, retrieve activity details, and manage activity inquiries in CICS environments. It provides activity identification capabilities, status checking, and inquiry management for CICS applications.
123456EXEC CICS INQUIRE ACTIVITYID [ACTIVITYID(activity-id)] [INTO(data-area)] [LENGTH(data-length)] [RESP(response-code)] END-EXEC
Query activity status information
Query activity attribute information
Query activity performance metrics
Query activity relationship information
1234567891011121314151617181920212223242526IDENTIFICATION DIVISION. PROGRAM-ID. INQUIRE01. DATA DIVISION. WORKING-STORAGE SECTION. 01 ACTIVITY-ID PIC X(8) VALUE 'ACT001'. 01 DATA-AREA PIC X(1000). 01 DATA-LENGTH PIC S9(8) COMP. 01 RESPONSE-CODE PIC S9(8) COMP. PROCEDURE DIVISION. EXEC CICS INQUIRE ACTIVITYID ACTIVITYID(ACTIVITY-ID) INTO(DATA-AREA) LENGTH(DATA-LENGTH) RESP(RESPONSE-CODE) END-EXEC IF RESPONSE-CODE = DFHRESP(NORMAL) DISPLAY 'Activity inquiry successful' DISPLAY 'Activity ID: ' ACTIVITY-ID DISPLAY 'Data length: ' DATA-LENGTH ELSE DISPLAY 'Failed to inquire activity' END-IF EXEC CICS RETURN END-EXEC.
123456789101112131415161718192021222324252627282930313233343536373839IDENTIFICATION DIVISION. PROGRAM-ID. INQUIRE02. DATA DIVISION. WORKING-STORAGE SECTION. 01 ACTIVITY-ID PIC X(8) VALUE 'ACT002'. 01 DATA-AREA PIC X(1000). 01 DATA-LENGTH PIC S9(8) COMP. 01 RESPONSE-CODE PIC S9(8) COMP. 01 ACTIVITY-STATUS PIC X(10). PROCEDURE DIVISION. EXEC CICS INQUIRE ACTIVITYID ACTIVITYID(ACTIVITY-ID) INTO(DATA-AREA) LENGTH(DATA-LENGTH) RESP(RESPONSE-CODE) END-EXEC IF RESPONSE-CODE = DFHRESP(NORMAL) MOVE DATA-AREA(1:10) TO ACTIVITY-STATUS DISPLAY 'Activity Status: ' ACTIVITY-STATUS EVALUATE ACTIVITY-STATUS WHEN 'ACTIVE' DISPLAY 'Activity is currently running' WHEN 'INACTIVE' DISPLAY 'Activity is currently stopped' WHEN 'SUSPENDED' DISPLAY 'Activity is currently suspended' WHEN 'TERMINATED' DISPLAY 'Activity has been terminated' WHEN OTHER DISPLAY 'Unknown activity status' END-EVALUATE ELSE DISPLAY 'Failed to check activity status' END-IF EXEC CICS RETURN END-EXEC.
12345678910111213141516171819202122232425262728293031323334IDENTIFICATION DIVISION. PROGRAM-ID. INQUIRE03. DATA DIVISION. WORKING-STORAGE SECTION. 01 ACTIVITY-ID PIC X(8) VALUE 'ACT003'. 01 DATA-AREA PIC X(1000). 01 DATA-LENGTH PIC S9(8) COMP. 01 RESPONSE-CODE PIC S9(8) COMP. PROCEDURE DIVISION. EXEC CICS INQUIRE ACTIVITYID ACTIVITYID(ACTIVITY-ID) INTO(DATA-AREA) LENGTH(DATA-LENGTH) RESP(RESPONSE-CODE) END-EXEC EVALUATE RESPONSE-CODE WHEN DFHRESP(NORMAL) DISPLAY 'Activity inquiry successful' DISPLAY 'Activity ID: ' ACTIVITY-ID WHEN DFHRESP(NOTFND) DISPLAY 'Activity not found' WHEN DFHRESP(INVREQ) DISPLAY 'Invalid inquiry request' WHEN DFHRESP(ACTIVITYERR) DISPLAY 'Activity-specific error occurred' WHEN DFHRESP(INQUIREERR) DISPLAY 'Inquiry-specific error occurred' WHEN OTHER DISPLAY 'Unexpected error occurred' END-EVALUATE EXEC CICS RETURN END-EXEC.
Think of CICS INQUIRE ACTIVITYID like asking about a worker:
Create a program that inquires about activity information using INQUIRE ACTIVITYID.
Write a program that checks the status of multiple activities using INQUIRE ACTIVITYID.
Implement comprehensive error handling for activity inquiry failures and invalid activity IDs.