Deleting A Private Stack With The Delstack Command; Finding The Number Of Stacks - IBM TSO/E REXX User Manual

Note: To have an interactive command prompt the user for input from the terminal,

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
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.
Example of using NEWSTACK with an Interactive Command
EXEC1
PUSH prompt1
PUSH prompt2
CALL sub1
. .
.
EXIT
SUB1:
'NEWSTACK'
'ALLOCATE'
. .
.
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.
. .
.
. .
.
Protecting Elements in the Data Stack
/* RC contains 3 */
Chapter 11. Storing Information in the Data Stack
149