The SWSEXCON Function
Related Topics
 |
May be used in Shadow/REXX |
| |
May be used from Other REXX Interpreters |
| |
High-level Language Interface available |
The REXX-language SWSEXCON built-in function is used to establish a CICS EXCI connect on behalf of the user.
Upon return from the call, the following Rexx variables are populated with data:
| EXCI.STMTHDL | The statement handle for the interface call. |
| EXCI.RETCODE | The EXCI Return Code Area as mapped by the CICS Copybooks |
| EXCI.PIPETOKN | The Pipe Token required as input to subsequent API calls. |
SWSEXCON Syntax
The general form for a REXX-language invocation of SWSEXCON is:
rc = swsexcon(Connection Type, ,
Connection Name, ,
User Token)
| Connection Type | Specifies the type of connection EXCI Use CICS EXCI interface NEON Currently not supported. Note: Required parameter. |
| Connection Name | Logical name of the connection as specified on the "DEFINE
CONNECTION" statement in the Shadow Initialization exec member (SWS_IN00) Note: Required parameter. |
| User Token | This is the token created as a result of the SWSEXINI API Call. Use the
EXCI.USERTOKN Rexx variable name. Note: Required parameter. |
SWSEXCON Examples
contype = 'EXCI' /* Connection Type */
conname = 'EWST' /* Connection Name from DEFINE */
cicstran = 'EXCI' /* CICS Transaction Code */
cicspgm = 'DFH$AXCS' /* CICS Program Name */
address swssend
/*-----------------------------------------------------------*/
/* Initialize the user */
/*-----------------------------------------------------------*/
rc = swsexini(contype,conname)
/*-----------------------------------------------------------*/
/* Allocate a pipe */
/*-----------------------------------------------------------*/
rc = swsexcon(contype,conname,EXCI.USERTOKN)
/*-----------------------------------------------------------*/
/* Issue DPL Request */
/*-----------------------------------------------------------*/
parm = '00000001'x||'FILEA 000001'
rc = swsexdpl(contype,conname,cicstran,cicspgm, ,
parm,EXCI.USERTOKN,EXCI.PIPETOKN)
pgmrc = substr(EXCI.COMMAREA.1,1,4)
pgmrc = c2x(pgmrc)
parm = substr(EXCI.COMMAREA.1,5,14)
parm = '00000002'x||parm
data = substr(EXCI.COMMAREA.1,19,80)
/*-----------------------------------------------------------*/
/* Disconnect the pipe */
/*-----------------------------------------------------------*/
rc = swsexdis(contype,conname,EXCI.USERTOKN,EXCI.PIPETOKN)