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 <john_matt...@ea.epson.com>
To: IBM-MAIN@LISTSERV.UA.EDU
Date: 07/19/2012 10:49
Subject: Re: REXX ISPF edit FIND failing
Sent by: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU>
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.)" <shmuel+...@patriot.net>
To: IBM-MAIN@LISTSERV.UA.EDU
Date: 07/19/2012 07:17 AM
Subject: Re: REXX ISPF edit FIND failing
Sent by: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU>
In
<9b26bc6a6df52d4483dd73b1fe7b4b0658b83d6...@uspho-mxvs07.amer.thermo.com>,
on 07/18/2012
at 10:37 AM, "Hardee, Chuck" <chuck.har...@thermofisher.com> 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 lists...@listserv.ua.edu with the message: INFO IBM-MAIN
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu 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:dnereque...@key.com with 'No Promotional E-mails' in
the
SUBJECT line.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
