Example of RGEN from the ST panel:
/* REXX */
Arg debug
/**********************************************************************
*
* SDSF RGEN Generated EXEC
*
* This exec was generated by the SDSF RGEN command on
* Sunday 2017/09/24 at 06:01:00.17.
*
* 5650-ZOS
* SDSF level = z/OS 02.02.00 (HQX77A0)
*
* Operation =
*
* - Access primary panel ST
*
**********************************************************************/
rc=isfcalls('ON')
trace o
if debug<>"" then /* If debug mode */
verbose="VERBOSE" /* .. use SDSF verbose mode */
else
verbose=""
/*----------------------------------------------*/
/* Configure environment with special variables */
/*----------------------------------------------*/
isfprefix='*' /* Corresponds to PREFIX command */
isfowner='*' /* Corresponds to OWNER command */
isfsysname='' /* Corresponds to SYSNAME command */
isfdest=' ' || , /* Dest name 1 */
' ' || , /* Dest name 2 */
' ' || , /* Dest name 3 */
' ' /* Dest name 4 */
/* Access the ST panel */
Address SDSF "ISFEXEC 'ST' (" verbose ")"
lrc=rc
call msgrtn "ISFEXEC 'ST'" /* List messages */
if lrc<>0 then /* If command failed */
do
Say "** ISFEXEC failed with rc="lrc"."
exit 20
end
call colsrtn isfrows "." sdsfocols /* List all rows and columns */
rc=isfcalls('OFF')
Exit 0
/**********************************************************************
*
* NAME =
* msgrtn
*
* FUNCTION =
* List all messages in the isfmsg and isfmsg2. variables
*
* INPUT =
* req - Request being processed
*
* EXPOSED VARIABLES =
* isfmsg - Short message
* isfmsg2. - Numbered messages
*
* OUTPUT =
* Messages written to terminal
*
**********************************************************************/
msgrtn: Procedure expose isfmsg isfmsg2.
Arg req
/*---------------------------*/
/* Process numbered messages */
/*---------------------------*/
Say "** Numbered messages associated with" req "follow ..."
do ix=1 to isfmsg2.0
Say isfmsg2.ix
end
if isfmsg<>"" then /* If short message present */
do
Say "** Short message associated with the request is:" isfmsg
end
return
/**********************************************************************
*
* NAME =
* colsrtn
*
* FUNCTION =
* List all rows and their column values
*
* INPUT =
* numrows - number of rows to process
* pfx - column variable prefix or "." if none
* ocols - word delimited column names to process
*
* EXPOSED VARIABLES =
* None
*
* OUTPUT =
* Responses written to terminal
*
**********************************************************************/
colsrtn:
Arg numrows pfx ocols
Say "Number of rows to process: " numrows
do rowix=1 to numrows /* Loop for all rows */
Say "Now processing row" rowix "..."
do colix=1 to words(ocols) /* Loop for all columns */
if pfx="." then /* If no prefix */
pfx=""
varname=pfx||word(ocols,colix)||'.'||rowix
Say " Column" varname '=' value(varname)
end /* For all columns */
end /* For all rows */
return
On Fri, Sep 22, 2017 at 6:02 AM, Paul Gilmartin <
[email protected]> wrote:
> On Fri, 22 Sep 2017 05:38:11 +1000, Wayne Bickerdike wrote:
>
> >Not sure how useful this command is. It generates what looks like a common
> >template and the output from the SDSF command is directed to a stem
> >variable.
> >
> Is that direction to a stem intrinsic or does it use EXECIO DISKR? I know
> example(s) in the Ref. use EXECIO. I modified them considerably to use
> IEBGENER to write to a UNIX file. IEBGENER propagates the attributes
> of a DD allocated by SDSF.
>
> >Since ISPF edit has the MODEL command, why not put a series of models for
> >SDSF API calls in the same place as the model templates?
> >
> >The command also directs the user to save the contents of the tempfile for
> >future use. Personally I always use the "CUT ALL" command and "PASTE ALL"
> >into my EXEC PDS.
> >
> My compliments on your ingenious alternative. The manual I read says only:
>
> You might use RGEN as follows:
> ...
> Copy the exec to a data set using the CREATE command.
> ...
>
> -- gil
>
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to [email protected] with the message: INFO IBM-MAIN
>
--
Wayne V. Bickerdike
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
