Rexx/cics client exec example – IBM SC34-5764-01 User Manual

Page 314

Advertising
background image

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

Advertising