And the grand prize goes to Tom Ambros !!!! Yes, use DOUBLE AMPERSANDS in REXX and the FINDs work properly. So simple when we finally see it. Many thanks to everyone.
From: Tom Ambros <[email protected]> To: [email protected] Date: 07/19/2012 07:58 AM Subject: Re: REXX ISPF edit FIND failing Sent by: IBM Mainframe Discussion List <[email protected]> That's strange, they work fine as Rexx for me: JCL: Note line 4 //REMOTE DD DISP=SHR,DSN=MSYS.UCMD.REMOTE&PDQR.(&SYSTEM) //REMOTE DD DISP=SHR,DSN=MSYS.UCMD.REMOTE&PDQR.(SYSTEM) //REMOTE DD DISP=SHR,DSN=MSYS.UCMD.REMOTE&PDQR(SYSTEM) //* TEST LINE TO BE X ALL'ED AND NOT FOUND IN FIND ALLS //SYSIN DD DISP=SHR,DSN=&PDQ.ALC.UNVLIB(&UCMIN) X/MYSCRIPT DD DISP=SHR,DSN=&PDQ.ALC.UNVLIB(&MY) Macro Source: Note the double ampersands as documented in the ISPF Edit and Edit Macros manual. /* REXX */ "ISREDIT MACRO (MEM) NOPROCESS" trace i "CONTROL ERRORS RETURN" "ISREDIT X ALL" "ISREDIT SCAN OFF" "ISREDIT F ALL 'DISP=SHR,DSN=MSYS.UCMD.REMOTE' " "ISREDIT F ALL 'DISP=SHR,DSN=MSYS.UCMD.REMOTE&&PDQR' " "ISREDIT F ALL 'DISP=SHR,DSN=MSYS.UCMD.REMOTE&&PDQR.' " "ISREDIT F ALL 'DISP=SHR,DSN=MSYS.UCMD.REMOTE&&PDQR.(' " "ISREDIT F ALL 'DISP=SHR,DSN=MSYS.UCMD.REMOTE&&PDQR.(&&' " "ISREDIT F ALL 'DISP=SHR,DSN=MSYS.UCMD.REMOTE&&PDQR.(&&SYSTEM)' " "ISREDIT F ALL 'DISP=SHR,DSN=&&PDQ.ALC.UNVLIB(&&UCMIN)' " "ISREDIT F ALL 'DISP=SHR,DSN=&&PDQ.ALC.UNVLIB(&&MY)' " Trace: 4 *-* "CONTROL ERRORS RETURN" >L> "CONTROL ERRORS RETURN" IKJ56500I COMMAND CONTROL NOT FOUND +++ RC(-3) +++ 5 *-* "ISREDIT X ALL" >L> "ISREDIT X ALL" 6 *-* "ISREDIT SCAN OFF" >L> "ISREDIT SCAN OFF" 7 *-* "ISREDIT F ALL 'DISP=SHR,DSN=MSYS.UCMD.REMOTE' " >L> "ISREDIT F ALL 'DISP=SHR,DSN=MSYS.UCMD.REMOTE' " 8 *-* "ISREDIT F ALL 'DISP=SHR,DSN=MSYS.UCMD.REMOTE&&PDQR' " >L> "ISREDIT F ALL 'DISP=SHR,DSN=MSYS.UCMD.REMOTE&&PDQR' " 9 *-* "ISREDIT F ALL 'DISP=SHR,DSN=MSYS.UCMD.REMOTE&&PDQR.' " >L> "ISREDIT F ALL 'DISP=SHR,DSN=MSYS.UCMD.REMOTE&&PDQR.' " 10 *-* "ISREDIT F ALL 'DISP=SHR,DSN=MSYS.UCMD.REMOTE&&PDQR.(' " >L> "ISREDIT F ALL 'DISP=SHR,DSN=MSYS.UCMD.REMOTE&&PDQR.(' " 11 *-* "ISREDIT F ALL 'DISP=SHR,DSN=MSYS.UCMD.REMOTE&&PDQR.(&&' " >L> "ISREDIT F ALL 'DISP=SHR,DSN=MSYS.UCMD.REMOTE&&PDQR.(&&' " 12 *-* "ISREDIT F ALL 'DISP=SHR,DSN=MSYS.UCMD.REMOTE&&PDQR.(&&SYSTEM)' " >L> "ISREDIT F ALL 'DISP=SHR,DSN=MSYS.UCMD.REMOTE&&PDQR.(&&SYSTEM)' " 13 *-* "ISREDIT F ALL 'DISP=SHR,DSN=&&PDQ.ALC.UNVLIB(&&UCMIN)' " >L> "ISREDIT F ALL 'DISP=SHR,DSN=&&PDQ.ALC.UNVLIB(&&UCMIN)' " 14 *-* "ISREDIT F ALL 'DISP=SHR,DSN=&&PDQ.ALC.UNVLIB(&&MY)' " >L> "ISREDIT F ALL 'DISP=SHR,DSN=&&PDQ.ALC.UNVLIB(&&MY)' " JCL member now shows: //REMOTE DD DISP=SHR,DSN=MSYS.UCMD.REMOTE&PDQR.(&SYSTEM) //REMOTE DD DISP=SHR,DSN=MSYS.UCMD.REMOTE&PDQR.(SYSTEM) //REMOTE DD DISP=SHR,DSN=MSYS.UCMD.REMOTE&PDQR(SYSTEM) - - - - - - - - - - - - - - - - - - - 1 Line(s) not Displayed //SYSIN DD DISP=SHR,DSN=&PDQ.ALC.UNVLIB(&UCMIN) X/MYSCRIPT DD DISP=SHR,DSN=&PDQ.ALC.UNVLIB(&MY) Thomas Ambros Operating Systems and Connectivity Engineering 518-436-6433 From: John Mattson <[email protected]> To: [email protected] Date: 07/19/2012 10:49 Subject: Re: REXX ISPF edit FIND failing Sent by: IBM Mainframe Discussion List <[email protected]> Shmuel ! I sent my original source, and it was REXX. Having a few spare moments, I quickly converted the REXX to CLIST and all of the FIND's worked as a clist. Oddly, they work with or withOUT SCAN OFF. Whether the problem belongs to ISPF, REXX, or both is not my problem. These commands should work as a REXX. I'll let IBM sort it out. From: "Shmuel Metz (Seymour J.)" <[email protected]> To: [email protected] Date: 07/19/2012 07:17 AM Subject: Re: REXX ISPF edit FIND failing Sent by: IBM Mainframe Discussion List <[email protected]> In <9b26bc6a6df52d4483dd73b1fe7b4b0658b83d6...@uspho-mxvs07.amer.thermo.com>, on 07/18/2012 at 10:37 AM, "Hardee, Chuck" <[email protected]> said: >Uh, I don't think so. >You're thinking CLIST not REXX. I doubt it. What he wrote was 'The problem is that ISPF/ISREDIT evaluates/substitutes any ISPF variable, which in this case is "&PDQR".', which does not refer to either CLIST or REXX variables. >Try adding the statement: &PDQR="A" To set the ISPF variable PDQR from REXX he needs to dreop the ampersand: PDQR="A" >You will see in the trace that &PDQR was not substituted. In what trace? The REXX trace is not relevant to substitutions performed by ISPF. -- Shmuel (Seymour J.) Metz, SysProg and JOAT Atid/2 <http://patriot.net/~shmuel> We don't care. We don't have to care, we're Congress. (S877: The Shut up and Eat Your spam act of 2003) ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN This communication may contain privileged and/or confidential information. It is intended solely for the use of the addressee. If you are not the intended recipient, you are strictly prohibited from disclosing, copying, distributing or using any of this information. If you received this communication in error, please contact the sender immediately and destroy the material in its entirety, whether electronic or hard copy. This communication may contain nonpublic personal information about consumers subject to the restrictions of the Gramm-Leach-Bliley Act. You may not directly or indirectly reuse or redisclose such information for any purpose other than to provide the services for which you are receiving the information. 127 Public Square, Cleveland, OH 44114 If you prefer not to receive future e-mail offers for products or services from Key send an e-mail to mailto:[email protected] with 'No Promotional E-mails' in the SUBJECT line. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
