CICS INQUIRE PROCESS provides process inquiry capabilities in CICS environments. It enables programs to query process information, retrieve process details, and manage process inquiries in CICS applications.
CICS INQUIRE PROCESS is a command that allows programs to query process information, retrieve process details, and manage process inquiries in CICS environments. It provides process inquiry capabilities, status checking, and inquiry management for CICS applications.
123456EXEC CICS INQUIRE PROCESS [PROCESSID(process-id)] [INTO(data-area)] [LENGTH(data-length)] [RESP(response-code)] END-EXEC
Query process status information
Query process attribute information
Query process resource information
Query process relationship information
1234567891011121314151617181920212223242526IDENTIFICATION DIVISION. PROGRAM-ID. INQUIRE01. DATA DIVISION. WORKING-STORAGE SECTION. 01 PROCESS-ID PIC X(8) VALUE 'PROC001'. 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 PROCESS PROCESSID(PROCESS-ID) INTO(DATA-AREA) LENGTH(DATA-LENGTH) RESP(RESPONSE-CODE) END-EXEC IF RESPONSE-CODE = DFHRESP(NORMAL) DISPLAY 'Process inquiry successful' DISPLAY 'Process ID: ' PROCESS-ID DISPLAY 'Data length: ' DATA-LENGTH ELSE DISPLAY 'Failed to inquire process' END-IF EXEC CICS RETURN END-EXEC.
123456789101112131415161718192021222324252627282930313233343536373839IDENTIFICATION DIVISION. PROGRAM-ID. INQUIRE02. DATA DIVISION. WORKING-STORAGE SECTION. 01 PROCESS-ID PIC X(8) VALUE 'PROC002'. 01 DATA-AREA PIC X(1000). 01 DATA-LENGTH PIC S9(8) COMP. 01 RESPONSE-CODE PIC S9(8) COMP. 01 PROCESS-STATUS PIC X(10). PROCEDURE DIVISION. EXEC CICS INQUIRE PROCESS PROCESSID(PROCESS-ID) INTO(DATA-AREA) LENGTH(DATA-LENGTH) RESP(RESPONSE-CODE) END-EXEC IF RESPONSE-CODE = DFHRESP(NORMAL) MOVE DATA-AREA(1:10) TO PROCESS-STATUS DISPLAY 'Process Status: ' PROCESS-STATUS EVALUATE PROCESS-STATUS WHEN 'RUNNING' DISPLAY 'Process is currently running' WHEN 'WAITING' DISPLAY 'Process is waiting for resources' WHEN 'SUSPENDED' DISPLAY 'Process is suspended' WHEN 'TERMINATED' DISPLAY 'Process has been terminated' WHEN OTHER DISPLAY 'Unknown process status' END-EVALUATE ELSE DISPLAY 'Failed to check process status' END-IF EXEC CICS RETURN END-EXEC.
12345678910111213141516171819202122232425262728293031323334IDENTIFICATION DIVISION. PROGRAM-ID. INQUIRE03. DATA DIVISION. WORKING-STORAGE SECTION. 01 PROCESS-ID PIC X(8) VALUE 'PROC003'. 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 PROCESS PROCESSID(PROCESS-ID) INTO(DATA-AREA) LENGTH(DATA-LENGTH) RESP(RESPONSE-CODE) END-EXEC EVALUATE RESPONSE-CODE WHEN DFHRESP(NORMAL) DISPLAY 'Process inquiry successful' DISPLAY 'Process ID: ' PROCESS-ID WHEN DFHRESP(NOTFND) DISPLAY 'Process not found' WHEN DFHRESP(INVREQ) DISPLAY 'Invalid inquiry request' WHEN DFHRESP(PROCESSERR) DISPLAY 'Process-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 PROCESS like asking about a worker:
Create a program that inquires about process information using INQUIRE PROCESS.
Write a program that checks the status of multiple processes using INQUIRE PROCESS.
Implement comprehensive error handling for process inquiry failures and invalid process IDs.