STEMEDIT is invoked via the CALL command of a REXX exec.
service, BROWSE, VIEW or EDIT
stemname stem of family of variables
<,firstelem> first element
<,stemcount> maximum number of variables
<,title> Title for display screen
<,panel> name of Browse, View or Edit Panel
<,lrecl> maximum variable length
<,recfm> F, FA, FM, V, VA, VM, or U
<,profile> profile for EDIT or VIEW
- service is the name of the ISPF service used to display the data.
service must be coded as BROWSE, VIEW or EDIT. If
the BROWSE service is requested, the user can enter the V command on
the BROWSE screen to switch to VIEW. This allows the data to be saved using
CREATE/REPLACE, CUT or ROUTE.
- stemname specifies the stem of the family of variables to display.
The combined lengths of the stemname argument and the largest subscript
(plus the period, if specified) cannot exceed 80 characters. If
stemname is a true REXX stem, code a period as the last character. If
you do not specify the period, the subscripts will be concatenated to the stem
name without an intervening period. For example, if you specify a stemname of
"ABC.", STEMEDIT will look for variables of the form "ABC.1", "ABC.2",
etc. If you specify a stemname of "XYZ" (no period), STEMEDIT
will look for variables of the form "XYZ1", "XYZ2", etc. If the first argument
is coded as "VIEW" or "EDIT" and stemname is omitted, STEMEDIT PULLs
lines from the stack.
- firstelem optionally specifies the element of the pseudo-array to
begin the display on. The default value is element 1.
- stemcount optionally specifies the number of elements to display.
If stemcount is not specified, STEMEDIT displays variables
beginning with firstelem, and continues until an un-initialised
variable is found (i.e., a variable whose value is its own name).
- title optionally specifies an arbitrary character string which
identifies the data which is being displayed. The maximum length of this
string is 54 characters, as required by the BRIF, VIIF or EDIT services.
- panel optionally specifies a 1 to 8 character name of the panel
member to use for the display. The default panel is ISRBROBF for BROWSE and
ISREDDE2 for VIEW and EDIT.
- lrecl optionally specifies the record length that should be passed
to the BRIF, VIIF or EDIF services. The default value is 255.
- recfm optionally specifies the record format that should be passed
to the BRIF, VIIF or EDIF services. Possible values are F, FA, FM, V, VA, VM,
or U. The default value is V.
- profile optionally specifies the 8-char name of the profile that
should be used by VIIF and EDIF when the VIEW or EDIT services are requested.
The default value is TEXT.
- The BROWSE and EDIT services only work with a stem variable. VIEW works
with both stem variables or the data stack.
- If EDIT is used and the data is modified by the user, STEMEDIT DROPs the
stem variable, sets stem.0 to the number of records written, copies records to
the stem.1 through stem.n where n is equal to the value of the stem.0
variable, and sets the RC variable to 0. If the data is not modified by the
user, STEMEDIT sets the RC variable to 4.
The STEMEDIT sub-routine returns a return code that indicates whether the
display worked. The returned value is contained in the RC special variable. The
following STEMEDIT return code values are possible:
- 0 - The display was successful.
- 4 - There were no stems matching the description given in stemname
(BROWSE). The data was not modified (EDIT).
- 8 - Option incompatible with requested service.
- 12 - Invalid Service requested.
- 16 - BRIF, VIIF or EDIF failed.
Call the STEMEDIT routine to display the output of the TSO "LISTCAT" command.
The variables to display begin with the characters "LINE.":
CALL OUTTRAP 'LINE.'; 'LISTCAT'; CALL OUTTRAP 'OFF'
CALL STEMEDIT 'BROWSE','LINE.',,,'List Catalog'
QUEUE JCL to the data stack and call the STEMEDIT routine to VIEW it:
QUEUE '//MYJOB JOB 12345,CLASS=A'
QUEUE '//STEP2 EXEC PGM=IEFBR14'
CALL STEMEDIT 'VIEW',,,,'Sample JCL'
STEMEDIT is designed to be compatible with the STEMDISP function of
the REXXTOOLS/MVS product from Open
Software Technologies, with the following exceptions:
- STEMEDIT supports the BROWSE, VIEW and EDIT services (STEMDISP only
- If stemcount is not specified, STEMEDIT scans variables
until an unitialised variable is found (STEMDISP stops after 100000
- STEMEDIT has the ability to retrieve data from a stem variable or
the data stack (STEMDISP can only retrieve data from a stem variable).
Search key-words: ibm mvs os/390 os390 z/os zOS TSO
TSO/E ISPF REXX browse view edit display show stemdisp stemview stem variables
stack outtrap BRIF VIIF EDIF RXBREDVI RXBRVIED RXEDVIBR RXVIEDBR RXEDBRVI