MainframeMaster

CICS GDS ALLOCATE APPC

Establish a General Data Stream (GDS) APPC session to a partner system for structured data exchange.

Syntax

cobol
1
2
3
4
5
6
7
8
EXEC CICS GDS ALLOCATE
    SYSID(system-id)
    SESSION(session-name)
    MODE(mode-name)
    PARTNER(partner-name)
    CONVID(conversation-id)
    RESP(resp) RESP2(resp2)
END-EXEC.

Parameters

ParameterMeaning
SYSIDRemote system ID
SESSIONSession name used by APPC
MODESession mode (e.g., QPCSUPP)
PARTNERPartner LU name
CONVIDReturns conversation identifier

Errors

  • INVREQ: Invalid mode/partner/session; verify definitions.
  • NOTFND: Partner or session not available.
  • IOERR: Communication failure; retry/backoff recommended.

Notes

  • Use CONVID to reference the conversation in subsequent SEND/RECEIVE operations.
  • Check RESP/RESP2 for NORMAL, INVREQ, NOTFND.

Example

cobol
1
2
3
4
5
6
7
8
9
10
11
12
EXEC CICS GDS ALLOCATE
    SYSID('PAYR')
    SESSION('PAYSESS')
    MODE('QPCSUPP')
    PARTNER('PAYHOST')
    CONVID(WS-CONVID)
    RESP(WS-RESP) RESP2(WS-RESP2)
END-EXEC.
 
IF WS-RESP = DFHRESP(NORMAL)
    * Proceed with GDS SEND/RECEIVE using WS-CONVID
END-IF.