/* 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