CICS GDS CONNECT PROCESS provides GDS process connection capabilities for programs and transactions. It enables programs to connect to GDS processes, manage GDS process communication, and handle GDS process operations in CICS environments.
CICS GDS CONNECT PROCESS is a command that allows programs to connect to GDS processes in the system. It provides GDS process connection capabilities, GDS process communication, and GDS process management for CICS applications.
12345EXEC CICS GDS CONNECT PROCESS PROCESS(process-name) [CONVID(conversation-id)] [RESP(response-code)] END-EXEC
GDS application process types
GDS communication process types
GDS data process types
GDS control process types
1234567891011121314151617181920212223242526IDENTIFICATION DIVISION. PROGRAM-ID. GDSCONN01. DATA DIVISION. WORKING-STORAGE SECTION. 01 PROCESS-NAME PIC X(8) VALUE 'GDSAPP01'. 01 CONVERSATION-ID PIC S9(8) COMP. 01 RESPONSE-CODE PIC S9(8) COMP. PROCEDURE DIVISION. DISPLAY 'Connecting to GDS process' DISPLAY 'Process: ' PROCESS-NAME EXEC CICS GDS CONNECT PROCESS PROCESS(PROCESS-NAME) CONVID(CONVERSATION-ID) RESP(RESPONSE-CODE) END-EXEC IF RESPONSE-CODE = DFHRESP(NORMAL) DISPLAY 'GDS process connected successfully' DISPLAY 'Conversation ID: ' CONVERSATION-ID ELSE DISPLAY 'GDS process connection failed' END-IF EXEC CICS RETURN END-EXEC.
12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152IDENTIFICATION DIVISION. PROGRAM-ID. GDSCONN02. DATA DIVISION. WORKING-STORAGE SECTION. 01 PROCESS-NAME PIC X(8). 01 CONVERSATION-ID PIC S9(8) COMP. 01 RESPONSE-CODE PIC S9(8) COMP. 01 CONNECT-COUNT PIC S9(2) COMP VALUE 0. 01 MAX-CONNECTS PIC S9(2) COMP VALUE 3. 01 GDS-STATUS PIC X(1). 01 PROCESS-LIST. 05 PROCESS-ITEM OCCURS 3 TIMES. 10 PROCESS-ID PIC X(8). 10 PROCESS-TYPE PIC X(8). 10 PROCESS-STATUS PIC X(1). PROCEDURE DIVISION. PERFORM INITIALIZE-GDS-PROCESSES PERFORM CONNECT-MULTIPLE-GDS-PROCESSES EXEC CICS RETURN END-EXEC. INITIALIZE-GDS-PROCESSES. MOVE 'GDSAPP01' TO PROCESS-ID(1) MOVE 'APPLICATION' TO PROCESS-TYPE(1) MOVE 'GDSAPP02' TO PROCESS-ID(2) MOVE 'SERVICE' TO PROCESS-TYPE(2) MOVE 'GDSAPP03' TO PROCESS-ID(3) MOVE 'UTILITY' TO PROCESS-TYPE(3). CONNECT-MULTIPLE-GDS-PROCESSES. PERFORM VARYING CONNECT-COUNT FROM 1 BY 1 UNTIL CONNECT-COUNT > MAX-CONNECTS MOVE PROCESS-ID(CONNECT-COUNT) TO PROCESS-NAME PERFORM CONNECT-SINGLE-GDS-PROCESS IF RESPONSE-CODE = DFHRESP(NORMAL) MOVE 'C' TO PROCESS-STATUS(CONNECT-COUNT) DISPLAY 'GDS process ' CONNECT-COUNT ' connected successfully' ELSE MOVE 'E' TO PROCESS-STATUS(CONNECT-COUNT) DISPLAY 'GDS process ' CONNECT-COUNT ' connection failed' END-IF END-PERFORM. CONNECT-SINGLE-GDS-PROCESS. EXEC CICS GDS CONNECT PROCESS PROCESS(PROCESS-NAME) CONVID(CONVERSATION-ID) RESP(RESPONSE-CODE) END-EXEC.
1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950IDENTIFICATION DIVISION. PROGRAM-ID. GDSCONN03. DATA DIVISION. WORKING-STORAGE SECTION. 01 PROCESS-NAME PIC X(8) VALUE 'GDSAPP01'. 01 CONVERSATION-ID PIC S9(8) COMP. 01 RESPONSE-CODE PIC S9(8) COMP. 01 RETRY-COUNT PIC S9(2) COMP VALUE 0. 01 MAX-RETRIES PIC S9(2) COMP VALUE 3. 01 GDS-CONNECT-SUCCESSFUL PIC X(1) VALUE 'N'. PROCEDURE DIVISION. PERFORM CONNECT-GDS-PROCESS-WITH-RETRY EXEC CICS RETURN END-EXEC. CONNECT-GDS-PROCESS-WITH-RETRY. PERFORM CONNECT-GDS-PROCESS IF RESPONSE-CODE NOT = DFHRESP(NORMAL) AND RETRY-COUNT < MAX-RETRIES ADD 1 TO RETRY-COUNT DISPLAY 'Retry ' RETRY-COUNT ' GDS process connection' PERFORM CONNECT-GDS-PROCESS-WITH-RETRY END-IF. CONNECT-GDS-PROCESS. EXEC CICS GDS CONNECT PROCESS PROCESS(PROCESS-NAME) CONVID(CONVERSATION-ID) RESP(RESPONSE-CODE) END-EXEC EVALUATE RESPONSE-CODE WHEN DFHRESP(NORMAL) MOVE 'Y' TO GDS-CONNECT-SUCCESSFUL DISPLAY 'GDS process connection successful' WHEN DFHRESP(NOTAUTH) DISPLAY 'Not authorized to connect to GDS process' WHEN DFHRESP(INVREQ) DISPLAY 'Invalid GDS process connection request' WHEN DFHRESP(PROCESSERR) DISPLAY 'GDS process connection error' WHEN DFHRESP(PROCESSNOTFOUND) DISPLAY 'GDS process not found' WHEN DFHRESP(PROCESSINUSE) DISPLAY 'GDS process is in use' WHEN OTHER DISPLAY 'Unexpected GDS process connection error' END-EVALUATE.
Think of CICS GDS CONNECT PROCESS like calling your friend:
Create a program that connects to a basic GDS process.
Write a program that manages multiple GDS process connections.
Implement comprehensive error handling for GDS process connection failures.