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