Previous Topic Table Of Contents Parent Topic Next Topic |  | # The SWSEXDPL 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 SWSEXDPL 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.COMMAREA.1 | The output COMMAREA from the CICS Transaction.
EXCI.DPLCODE | The DPL Return Code Area as mapped by the CICS Copybooks
## SWSEXDPL Syntax The general form for a REXX-language invocation of SWSEXDPL is:
           rc = swsexdpl(Connection Type, ,
                         Connection Name, ,
                         CICS Transaction Name, ,
                         CICS Program Name, ,
                         CICS Transaction Input, ,
                         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.
CICS Transaction Name | The Trans-ID of the mirror transaction with which the target program is to run under. Note: Required parameter.
CICS Program Name | The program to run and interact with via DPL requests. Note: Required parameter.
CICS Transaction Input | The input to the executing transaction passed through the COMMAREA. A COMMAREA will of 32,704 bytes will be allocated, the transaction input will be copied into this area and passed to the transaction. 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.
## SWSEXDPL 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