Data Stack Example 2
/******************************** REXX *****************************/
/* This exec runs another exec implicitly and then sends a message */
/* when the called exec finishes. It receives as an argument the */
/* name of a PDS member to run. It activates the system procedure */
/* file SYSEXEC, allocates the data set to SYSEXEC, pushes some */
/* commands on the data stack and then implicitly executes the exec*/
/*******************************************************************/
ARG dsn
"EXECUTIL SEARCHDD(yes)" /* Establish the system library SYSEXEC*/
PUSH "SEND 'Sequence over' USER(*)" /* Put a message on the stack*/
PUSH "TIME" /* Push the time command */
PUSH "FREE F(SYSEXEC)" /* Push command to free SYSEXEC*/
PARSE VAR dsn name '(' member /* Separate the data set name from */
/* the member name. */
"ALLOC DA("name") F(SYSEXEC) SHR REUSE"
execname = STRIP(member,t,')') /* Remove the last parentheses from*/
/* the member name. */
PUSH '%'execname /* Put the member name on the stack*/
/*******************************************************************/
/* The output from this exec depends on the exec that it runs. */
/* Output can be as follows: */
/* */
/*TIME-01:23:56 PM.CPU-00:00:23 SERVICE-297798 SESSION-04:15:20 MAY*/
/*12,1989 */
/* Sequence over USERID */
/* READY */
/*******************************************************************/
Protecting Elements in the Data Stack
Chapter 11. Storing Information in the Data Stack 151
To Next Page
Loading...
