Rogers, I attempted to recreate your issue. I had to separate the change of class and the change of outdisp. I believe this is because the outdisp is not the same as the class default and for me it appeared to use the default for the class even though I asked for it to change. The following change of outdisp failed because the token had changed for me. I had to scan again for the new class and old disp to be able to change to the new.
This is what worked for me to change class and outdisp. HTH, Chip Grantham | Ameritas | Sr. IT Consultant | cgrant...@ameritas.com 5900 O Street, Lincoln NE 68510 | p: 402-467-7382 | c: 402-429-3579 | f: 402-325-4030 Greg Shirey <wgshi...@benekeith.com> Sent by: IBM Mainframe Discussion List <IBM-MAIN@bama.ua.edu> 09/21/2011 10:57 AM Please respond to IBM Mainframe Discussion List <IBM-MAIN@bama.ua.edu> To IBM-MAIN@bama.ua.edu cc Subject Re: SDSF REXX Help 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:IBM-MAIN@bama.ua.edu] 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 lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html ******* This message may contain confidential information intended only for the use of the addressee(s) named above and may contain information that is legally privileged. If you are not the addressee, or the person responsible for delivering it to the addressee, you are hereby notified that reading, disseminating, distributing or copying this message is strictly prohibited. If you have received this message by mistake, please immediately notify us by replying to the message and delete the original message immediately thereafter. Thank you. ******* ---------------------------------------------------------------------- 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
