IBM TSO/E REXX - Appendix C. Comparisons Between CLIST and REXX

USERID.MYREXX.EXEC(JCLTEST)
/****************************** REXX ******************************/
/* This exec receives input from its invocation in JCL.EXEC, pulls*/
/* data from the input stream and sends back a condition code of */
/* 137. */
/******************************************************************/
TRACE error
SAY 'Running exec JCLTEST'
ADDRESS MVS
PARSE ARG input
SAY input
DATA = start
DO UNTIL DATA = '
PARSE PULL data /* pull data from the input stream */
SAY data
END
/******************************************************************/
/* Now use EXECIO to write a timestamp to the sequential */
/* data set that was allocated to the OUTDD file by the JCL */
/* used to invoke this exec. */
/******************************************************************/
OUTLINE.1 = 'Exec JCLTEST has ended at' TIME()
"EXECIO 1 DISKW OUTDD (STEM OUTLINE. FINIS" /* Write the line */
SAY 'Leaving exec JCLTEST'
EXIT 137 /* send a condition code of 137 */
USERID.TRACE.OUTPUT
Exec JCLTEST has ended at 15:03:06
USERID.IRXJCL.OUTPUT
Running exec JCLTEST
Test IRXJCL
First line of data
Second line of data
Third line of data
Leaving exec JCLTEST
Running Execs in a Non-TSO/E Address Space
Chapter 13. Using REXX in TSO/E and Other MVS Address Spaces 179