The SWSEXINI Function
Related Topics
 |
May be used in Shadow/REXX |
| |
May be used from Other REXX Interpreters |
| |
High-level Language Interface available |
The REXX-language SWSEXINI built-in function is used to initialize a CICS EXCI interface between Shadow for CICS and CICS v4.1 and above.
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.USERTOKN | The User Token required as input to subsequent API calls. |
SWSEXINI Syntax
The general form for a REXX-language invocation of SWSEXINI is:
rc = swsexini(Connection Type, ,
Connection Name)
| 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. |
SWSEXINI 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)