There is a subtle and dangerous difference with ISREDIT FIND / CHANGE in
REXX.
Say you have a simple change command and "forget" to use && rather than &
/* REXX */
TRACE I
ADDRESS ISPEXEC
"ISREDIT MACRO (MEM) NOPROCESS"
"CONTROL ERRORS RETURN"
"ISREDIT SCAN OFF"
"ISREDIT C ALL 'DISP=SHR,DSN=&AAA' '@#$' "
EXIT
And THIS is the file you wish to use it on...
// DD DISP=SHR,DSN=&AAA.XXX
// DD DISP=SHR,DSN=&BBB.YYY
// DD DISP=SHR,DSN=&CCC.ZZZ
IF you use & rather than && here s what you get
// DD @#$&AAA.XXX
// DD @#$&BBB.YYY
// DD @#$&CCC.ZZZ
If you use && you get
// DD @#$.XXX
// DD DISP=SHR,DSN=&BBB.YYY
// DD DISP=SHR,DSN=&CCC.ZZZ
The moral of all this is: Do not assume ISREDIT commands will work
the same in REXX as in clists, or ISPF. I find this very annoying, how
about your folks?
From: Skip Robinson <[email protected]>
To: [email protected]
Date: 07/18/2012 02:26 PM
Subject: Re: REXX ISPF edit FIND failing
Sent by: IBM Mainframe Discussion List <[email protected]>
I have found that the ISPF development folks are pretty responsive. This
problem is certainly worth an SR.
.
.
JO.Skip Robinson
SCE Infrastructure Technology Services
Electric Dragon Team Paddler
SHARE MVS Program Co-Manager
626-302-7535 Office
323-715-0595 Mobile
[email protected]
From: John Mattson <[email protected]>
To: [email protected]
Date: 07/18/2012 01:34 PM
Subject: Re: REXX ISPF edit FIND failing
Sent by: IBM Mainframe Discussion List <[email protected]>
While I am at it...
WHY the Ampersand "&SYSTEM" WORKS in the find,
but if you use &PDQR rather than $PDQR it fails .... is just madness.
7 *-* "ISREDIT F ALL P'DISP=SHR,DSN=MSYS$UCMD$REMOTE$PDQR$(&SYSTEM$' "
>L> "ISREDIT F ALL P'DISP=SHR,DSN=MSYS$UCMD$REMOTE$PDQR$(&SYSTEM$' "
8 *-* "ISREDIT F ALL P'DISP=SHR,DSN=MSYS$UCMD$REMOTE&PDQR$(&SYSTEM$' "
>L> "ISREDIT F ALL P'DISP=SHR,DSN=MSYS$UCMD$REMOTE&PDQR$(&SYSTEM$' "
+++ RC(4) +++
From: John Mattson/Epson
To: IBM Mainframe Discussion List <[email protected]>
Date: 07/18/2012 01:26 PM
Subject: Re: REXX ISPF edit FIND failing
Thanks to everyone! I have kept plugging at this and tried all your
suggestions.
Here is what I see so far.
1) There is no reason syntactically that this should not work
"ISREDIT F ALL 'DISP=SHR,DSN=MSYS.UCMD.REMOTE&PDQR.(&SYSTEM)' "
2) For some strange reality THIS works
"ISREDIT F FIRST 'DISP=SHR,DSN=MSYS.UCMD.REMOTE&PDQR.' "
and this does not.. as soon as you add the "("
"ISREDIT F FIRST 'DISP=SHR,DSN=MSYS.UCMD.REMOTE&PDQR.(' "
3) Lizette's P' processing can be made to work (but really should not be
necessary)
"ISREDIT F ALL P'DISP=SHR,DSN=MSYS$UCMD$REMOTE$PDQR$(&SYSTEM' "
Works !!!
"ISREDIT F ALL P'DISP=SHR,DSN=MSYS$UCMD$REMOTE$PDQR$(&SYSTEM$' "
Works
"ISREDIT F ALL P'DISP=SHR,DSN=MSYS$UCMD$REMOTE$PDQR$(&SYSTEM)' "
Does NOT
Now, why "(" causes the ISREDIT FIND to go nuts, but not the
ISREDIT FIND P' ' is quite beyond me.
And why ")" causes ISREDIT FIND P' to go nuts, but NOT "(" is also
Thanks to all, I now have something that works, sort of, but there is
really something wrong with ISPF here.
by the by, I am on zOS 1.11
----------------------------------------------------------------------
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
