Previous Topic
Table Of Contents
Parent Topic
Next Topic

The SWSEXDIS Function

Related Topics

Web Server API Function Index

	May be used in Shadow/REXX
	May be used from Other REXX Interpreters
	High-level Language Interface available

The REXX-language SWSEXDIS 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

SWSEXDIS Syntax

The general form for a REXX-language invocation of SWSEXDIS is:


       rc = swsexdis(Connection Type, ,
                     Connection Name, ,
                     User Token, ,
                     Pipe 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.
Pipe Token	This is the token created as a result of the SWSEXCON API Call. Use the EXCI.PIPETOKN Rexx variable name. *Note:* Required parameter.

SWSEXDIS 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)

Top