this works for me. you can try similar.
/* */
ADDRESS 'TSO'
RC=ISFCALLS('ON')
ISFCOLS = 'JNAME JOBID OWNERID'
ISFJESNAME = 'JES2' /*IBM MAIN SUGGESTED THIS FIX*/
ISFPREFIX = 'ZADDRBU' /*PREFIX*/
ADDRESS 'SDSF' "ISFEXEC SR " /*ACCESS THE SR 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 REPLYID:" 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')
----------------------------------------------------------------------
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
