Filter
Top Products
v Because REXX/CICS allows REXX clients and servers to be recoded in non-REXX languages,
performance intensive parts of an application system can be selectively rewritten, if needed.
The FLST and EDIT commands that REXX/CICS provides are examples of client/server environments.
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
High-level Client/Server Support
292
CICS TS for VSE/ESA: REXX Guide