The SWSAPRCV Function
Related Topics
 |
May be used in Shadow/REXX |
| |
May be used from Other REXX Interpreters |
| |
HLL entry point name is SDCPAR or SWCPAR |
The REXX-language SWSAPRCV built-in function can be used to continue receiving message output from an IMS transaction (i.e. multi-segment output messages). Once you receive a non-zero return code, the IMS conversation is deallocated and the transaction is complete.
In the case of conversational IMS transactions, the non-zero return code will indicate that their is no more data to receive.
Upon return from the call, the following Rexx variables are populated with data:
| APPC.STMTHDL | The statement handle for the interface call. |
| APPC.CONVID | The Conversation ID for the IMS APPC conversation. |
| APPC.OUTBUFF.0 | The length of the data contained within the APPC.OUTBUFF.1 Rexx variable. |
| APPC.OUTBUFF.1 | The returned Message Output Descriptor data. The output message contains the MOD data as well as a two byte length prefix. This variable contains the data, including any supplied trailing blanks. |
| APPC.RETCODE | The APPC Interface return code. |
| APPC.DATATYPE | The returned datatype. |
SWSAPRCV Syntax
The general form for a REXX-language invocation of SWSAPRCV is:
rc = SWSAPRCV("Connection Type", ,
"Conversation ID", ,
"Partner LU Name")
| Connection Type | Specifies the type of IMS transaction to execute IMS IMS Non-conversational transaction. IMSCONV IMS Conversational transaction. Note: Required parameter. |
| Conversation ID | Specifies the IMS Conversation ID. Note: Required parameter. |
| Partner LU Name | Specifies the APPC LU Name for the IMS system Note: Optional parameter. |
SWSAPRCV Examples
/*-------------------------------------------------------------*/
/* initialize some system values */
/*-------------------------------------------------------------*/
address SWSSEND
imsappc = 'P390.P392AIMS'
imstran = 'NEONDISP'
parms = ''
/*-------------------------------------------------------------*/
/* Retrieve more data from the IMS transaction */
/*-------------------------------------------------------------*/
rc = SWSAPRCV('ims',APPC.CONVID,imsappc)
/*-------------------------------------------------------------*/
/* parse the output into usable variables */
/*-------------------------------------------------------------*/
pars.msg = substr(APPC.OUTBUFF.1,1,79)
pars.page = substr(APPC.OUTBUFF.1,80,2)
pars.index = substr(APPC.OUTBUFF.1,82,2)
pars.scroll = substr(APPC.OUTBUFF.1,84,150)
pars.area = substr(APPC.OUTBUFF.1,234,380)
pars.len = 380
pars.data = ''
do i = 1 to 10
pars.part.i = substr(pars.area,4,15)
pars.desc.i = substr(pars.area,19,20)
pars.len = pars.len - 38
pars.area = substr(pars.area,39,pars.len)
pars.data = pars.data||' '||pars.part.i||pars.desc.i
end