Has anyone successfully used the ADDRESS SDSF command under OPS/MVS REXX, and
not just TSO REXX? The below works in TSO REXX, but not OPS REXX
OPS REXX gives this
OPS1098I *-* 6:ADDRESS SDSF "ISFEXEC ST " /*ACCESS THE ST PANEL*/
OPS1098I +++ RC(-3)
TSO REXX appropriately gives SDSF output
ZADDRBU.EXEC(SDSF1)
***************************** Top of Data *****************
/* */
ADDRESS 'TSO'
RC=ISFCALLS('ON')
ISFCOLS = 'JNAME JOBID OWNERID'
ISFPREFIX = 'ZADDRBU' /*PREFIX*/
ADDRESS SDSF "ISFEXEC ST " /*ACCESS THE ST PANEL*/
IF RC<>0 THEN EXIT RC
/* GET FIXED FIELD NAME FROM FIRST WORD */
/* OF ISFCOLS SPECIAL VARIABLE */
FIXEDFIELD = WORD(ISFCOLS,1)
SAY "NUMBER OF ROWS RETURNED:" ISFROWS
DO IX=1 TO ISFROWS /*PROCESS ALL ROWS*/
SAY "NOW PROCESSING JOB:" VALUE(FIXEDFIELD"."IX)
DO JX=1 TO WORDS(ISFCOLS) /*LIST ALL COLUMNS*/
COL = WORD(ISFCOLS,JX)
SAY " COLUMN" COL"."IX "HAS THE VALUE:" VALUE(COL"."IX)
END
END
RC=ISFCALLS('OFF')
Thanks,
Rich
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
