Rogers, Your ISFEXEC command is "H ALL", but your ISFACT command is "H". I believe they need to match. Greg Shirey Ben E. Keith Company
-----Original Message----- From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf Of Laine, Rogers Sent: Wednesday, September 21, 2011 9:33 AM 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 ---------------------------------------------------------------------- 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
