IBM TSO/E REXX User Manual

Example of using NEWSTACK with an Interactive Command
EXEC1
PUSH prompt1
PUSH prompt2
CALL sub1
.
.
.
EXIT
SUB1:
'NEWSTACK'
'ALLOCATE'
.
.
.
Note: To have an interactive command prompt the user for input from the terminal,
run an exec explicitly with the EXEC command and specify prompt or include
the PROMPT(on) function within the exec. For more information, see
“Causing Interactive Commands to Prompt the User” on page 100.
Deleting a Private Stack with the DELSTACK Command
When an exec wants to delete the new stack and remove all elements placed on
the new stack, it can issue the TSO/E REXX DELSTACK command. The
DELSTACK command removes the most recently created data stack. If no stack
was previously created with the NEWSTACK command, DELSTACK removes all
the elements from the original stack.
Finding the Number of Stacks
To find out how many stacks exist, use the TSO/E REXX QSTACK command.
QSTACK returns in the REXX special variable RC, the total number of stacks
including the original data stack.
'NEWSTACK'
.
.
.
'NEWSTACK'
.
.
.
'QSTACK'
SAY 'The number of stacks is' RC /* RC contains 3 */
QSTACK returns the total number of stacks, not just the ones created for a single
exec. Thus if an exec issued two NEWSTACK commands and called a routine that
issued two more, when the routine issues a QSTACK command, RC returns the
total number of stacks, which is five.
For more information about these commands, see z/OS TSO/E REXX Reference.
Protecting Elements in the Data Stack
Chapter 11. Storing Information in the Data Stack 149

IBM TSO/E REXX Specifications

General

Brand	IBM
Model	TSO/E REXX
Category	Computer Hardware
Language	English