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
************************************************
This E-Mail transmission (and/or the documents accompanying it)
may contain information belonging to the sender which is confidential,
privileged and/or exempt from disclosure under applicable law. The
information is intended only for the use of the individual(s) or entity
named above. If you are not the intended recipient, you are hereby
notified that any disclosure, copying, distribution or the taking of any
action in reliance on the contents of this information is strictly
prohibited. If you have received this E-Mail transmission in error,
please immediately notify us by return E-Mail or telephone to arrange
for return of its contents including any documents.
----------------------------------------------------------------------
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
