>
>I know this is not the correct forum, but was hoping someone could
>provide some directed.
>
>I'm trying to have this REXX program change the CLASS & OUTDISP for
>anything in the HELD QUE with OWNER=CA7Z*
>
>I can read the entries that match this information, but having problems
>getting it to change the CLASS to W and OUTDISP to KEEP.
>
>I have highlighted the command that I believe is causing me this
>problem.
>
>Any help would be appreciated.
>
>
>
>Rogers
>
>
>
>/* REXX */
>
> TRACE ALL
>
>/* ISFPREFIX="CA7Z*" */
>
>ISFOWNER='CA7Z*'
>
>ISFFILTER=OCLASS EQ 0
>
>ISFFILTER2=OOUTDISP EQ LEAVE
>
>/* SPECIFY THE COLUMN YOU WILL BE WORKING WITH */
>
>ISFCOLS = 'JNAME JOBID OCLASS OUTDISP OWNERID '
>
>RC=ISFCALLS('ON')
>
>/* ACCESS THE H DISPLAY */
>
>ADDRESS SDSF "ISFEXEC H ALL"
>
>FIXEDFIELD = WORD(ISFCOLS,1)
>
>SAY "NUMBER OF ROWS RETURNED:" ISFROWS
>
>/* PROCESS ALL ROWS */
>
>DO IX=1 TO ISFROWS
>
>JNAME = JNAME.IX
>
>JOBID = JOBID.IX
>
>CLASS = OCLASS.IX
>
>ODISP = OUTDISP.IX
>
>OWNER = OWNERID.IX
>
>LINEA = ' JNAME='JNAME 'JOBID='JOBID 'CLASS='CLASS 'ODISP='ODISP
>
>LINEB = ' OWNER='OWNER
>
>LINE1 = LINEA || LINEB
>
>SAY LINE1
>
>/* FIND ALL JOBS WITH RMLRDARS */
>
>/* DO IX=1 TO JNAME.0 */
>
>/* IF JNAME.IX = "RMLRDARS" THEN /* IF THIS IS DESIRED ROW */ */
>
>/* DO */
>
>/* ISSUE THE ACTION AGAINST THE ROW IDENTIFIED BY */
>
>/* THE TOKEN. THE PARM CONTAINS THE COLUMN NAME */
>
>/* TO BE MODIFIED AND THE DATA TO USE. */
>
>ADDRESS SDSF "ISFACT H TOKEN('"TOKEN.IX"')",
>
> "PARM(OCLASS W OUTDISP KEEP)"
>
>END
>
>RC=ISFCALLS('OFF')
>
>EXIT
>
>RETURN
>
>
>
I think you could do this with a simple JES2 command rather than writing a REXX.
Is there a reason not to use the JES2 command?
Lizette
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
