REXX/CICS Client Exec Example

/* EXAMPLE REXX/CICS EXEC */

TRACE 'O' /* turn off source tracing */

ARG parm1 parm2 parm3

"CICS READQ TS QUEUE(MYQ) INTO(DATA) ITEM(5) NUMITEMS(1)"
if rc ¬= 0 then EXIT 100

SAY 'TSQ Data=' data
"CICS SEND TEXT FROM(DATA) ERASE"

/* Define the SERVER EXEC as a REXX/CICS command */
'DEFCMD REXXCICS SERVER = = SERVER1 (REXX'


/* example of directing a subcommand to a server */
/* named SERVER1, which is written in REXX also  */
DATA = 1
'SERVER COMMAND1 DATA'
say data  /*  ==> 2  */
if rc ¬= 0 then SAY 'Request to SERVER1 failed, RC=' rc
EXIT

Reference Reference

Feedback


Timestamp icon Last updated: Tuesday, 7 January 2014


http://pic.dhe.ibm.com/infocenter/cicsts/v5r1/topic/com.ibm.cics.rexx.doc//dfhrx/rvse598.html