Re: REXX ISPF edit FIND failing

[CM Poncelet]

I think this has to do with ISREDIT following Clist rules for &'s - even 
when edit macros are written in REXX (no 'SYSSCAN = 0'.)


If rewritten in Clist it should work OK ... but 3 &'s should be coded 
instead of 1 - e.g.


SET SYSSCAN = 0
ISREDIT FIND ALL 'DISP=SHR,DSN=MSYS.UCMD.REMOTE&&&PDQR.('

SET SYSSCAN = 16

CP

John Mattson wrote:

That's one of the very frustrating things about this problem. 
Almost EVERY variation of these ISREDIT FIND's work just fine as the 
'commands between the quotes' in TSO/ISPF. 
So, why don't they work the same way in ISREDIT?  Beats me, that's for 
sure. 




From:   Lizette Koehler 
To: IBM-MAIN@LISTSERV.UA.EDU
Date:   07/18/2012 02:18 PM
Subject:Re: REXX ISPF edit FIND failing
Sent by:IBM Mainframe Discussion List 



 

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 

   



I am z/OS V1.12.  I am using the F P'' ALL inside a member with your 
exact data.


If I use
F ALL p'DISP=SHR=DSN=$PDQ$ALC$UNVLIB$$UCMIN$'

It works

If I use
F ALL p'DISP=SHR=DSN=$PDQ$ALC$UNVLIB$$UCMIN)'


It works.  So not sure where the problem is.  I will test later with an 
ISPF macro.  So native F ALL P'' works.  Just need to check out the 
Macro side.



Lizette

Lizette

--
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


 



--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Help with elementary CPU speed question

[Chris Mason]

Steve

For my sins, I started work in an industrial research laboratory.

One time the laboratory was having some sort of open day[1] and one of my 
colleagues had a printed card announcing the rate of migration of chlorine ions 
through magnetite which must have had some bearing upon the apparatus 
supposedly on show.

Although he was a PhD, this key result, thought to be of great importance for 
understanding corrosion at high temperatures and pressures, was presented as, 
relying approximately on your numbers, 1.48 +/- 0.4.

The point, something I learned in my *school* physics laboratory (or was it my 
school chemistry laboratory!), was to adjust the precision of a reported 
measurement to match the degree of uncertainty.

If my physics master (or my chemistry master) had been presented with "1.48 +/- 
0.4.", I would have suffered some severe "marking down"!

In case my point has been missed, with something like +/- 0.4 uncertainty, you 
should have said the following:

"... the average the z9 is 1.5 times faster ... ."

-

[1] This reminds me of another sort of "open day" held in the Royal Festival 
Hall. I was obliged to roll a rack of equipment across the main hall between 
the seats and the stage where Mstislav Rostropovich was rehearsing - actually 
and necessarily taking a short break. He didn't give me the friendliest of 
looks as I tried to give an apologetic look in return!

-

Chris Mason

On Wed, 18 Jul 2012 22:43:30 +, Finch, Steve (ES - Mainframe) 
 wrote:

> I would say that on the average the z9 is 1.48 times faster , but that number 
> depends on what the program is doing.  The number could be 1.1 to 1.8 
> depending on what the batch program is doing.  It's the old - your mileage 
> will vary comment 
 
> The purpose of PCR is to deal with the flux factor

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Unsetting a JCL symbol.

[Mike Schwab]

On Wed, Jul 18, 2012 at 5:37 PM, Bass, Walter W  wrote:
>
> Aha.  I get it now.
>
> I failed to consider that the initial state of "not defined" was the
> desired condition to revert to.  In fact, I had fully expected that a
> reference to an uninitialized symbol on the right side of the SET
> statement would cause a JCL error.  That it was instead treated as a
> literal could perhaps be considered a violation of the "principle of
> least astonishment".
>
> Thanks for setting me straight.
>
> Bill
>
Have you tried setting an initial value of null?
// SET VARIABLE=

-- 
Mike A Schwab, Springfield IL USA
Where do Forest Rangers go to get away from it all?

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: REXX ISPF edit FIND failing

[John Mattson]

I have opened  Service Request 19768 227 000 on this.  I will keep you 
updated when IBM comes up with something on it. 

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Help with elementary CPU speed question

[Shane Ginnane]

I'd be inclined to use the relative LSPR ratios - which happens to roughly 
correspond to the UP ratio of the machines.
Seems intuitively reasonable.

Wrap some weasel words around your recommendation (there are some examples on 
the LPSR site) in case it all goes pear-shaped, and walk away contented.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Help with elementary CPU speed question

[Dave Barry]

Charles,

In theory, you divide the rated SU/second by the number of processors giving 
SUs/processor/second, adjusting for "MP effect" overhead.  Similarly, you could 
use MIPS/processor such that: 

273.8 (2064-2C3) divided by 426.1 (2094-722) equals 0.643.

0.146 seconds times 0.643 equals 0.0939 seconds

Subtle factors render the ratio less than exact, especially with very small 
values, but your tests should prove to be in the ballpark.  Test by averaging 
several runs and let us know how it turns out.

db

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Charles Mills
Sent: Tuesday, July 17, 2012 9:53 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Help with elementary CPU speed question

I have gotten dragged into a CPU performance question; a field I know little 
about.

 

I run a test on a 2094-722. It is rated at 19778 SU/Second. The job consumes
.146 CPU seconds total.

 

I run the same job on a 2064-2C3. It is rated at 13378 SU/Second. All other 
things being roughly equal, should I expect that the job will consume 1.48
(19778/13378) times as much CPU time, or .216 CPU seconds?

 

Is my logic right, or am I off somewhere? I'm not worried about a millisecond 
or two; just the broad strokes.

 

Thanks,

Charles 


--
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

Re: Help with elementary CPU speed question

[Finch, Steve (ES - Mainframe)]

I would say that on the average the z9 is 1.48 times faster , but that number 
depends on what the program is doing.  The number could be 1.1 to 1.8 depending 
on what the batch program is doing.  It's the old - your mileage will vary 
comment

The purpose of PCR is to deal with the flux factor 

Steve Finch

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Charles Mills
Sent: Wednesday, July 18, 2012 2:46 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Help with elementary CPU speed question

Jon, thanks for the thoughtful reply. Much appreciated.

You say the z900 is 1/8 as fast (powerful, whatever, fill in your favorite 
word) as the z9. That's a combination of two factors, right? Each CPU on the z9 
is 1.48 times as fast as those on the z900, and in addition the -722 has 22 of 
them, while the -2C3 has only three, is that right? I am mostly interested at 
this moment in CPU time. I know it's not the only thing, and it's not the same 
thing as wall clock time, but it is what the company is going to be billed for 
so it is a (the?) critical factor at this moment. So I think my focusing on 
relative CPU speed rather than total "box power" (CPU's only, or CPU's and I/O) 
is correct at this time. Any thoughts?

Charles
-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Jon Butler
Sent: Wednesday, July 18, 2012 11:12 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Help with elementary CPU speed question

As has been pointed out, there are many IBM tools such as zPCR that you can 
download to help with this exercise.  The tools require either a good estimate 
or RMF data from the LPARs to give you an accurate comparison.  In running one 
job anything can happen to distort the figures.

However, I think a rough calculation without regard to the other work in the 
LPARs on the several CECs can give you an idea of what to expect.  If we make 
the assumption that both CECs are running a similar workloadnot bloody 
likely give the CEC's design difference, disk drives, I/O configs, WLM 
settings, OS version, etcbut using numbers from the latest MIPS ratings 
here is what you are up against:

z9/722 rated at 1226 MSU
z900/2C3 rated at 144 MSU

I'd guess your job is going to run 1226/144 or 8 times slower.  Let us know 
what happens.  Of course if the z9 is running at 95% and the z900 at 5%, your 
job may be faster on the older CEC

--
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

Re: Unsetting a JCL symbol.

[Bass, Walter W]

On 7/17/2012 3:47 PM, Tom Marchant wrote:
> 
> >The
> >reason your example does not work is because when lines 3 and 4 are
> >evaluated, &MYSYM has not yet been assigned any value, 
> therefore the JCL
> >processor does not yet consider it to be a symbol.
> 
> Right.  Paul provided that to show that your "solution" did not 
> solve the problem that he wanted to solve, as follows:
> 
> On 7/17/2012 3:08 PM, Paul Gilmartin wrote:
> >>
> >> Once a JCL symbol has been set, is there any way subsequently
> >> to restore it to exactly the state and behavior it had before it
> >> was set?
> 

Aha.  I get it now.

I failed to consider that the initial state of "not defined" was the
desired condition to revert to.  In fact, I had fully expected that a
reference to an uninitialized symbol on the right side of the SET
statement would cause a JCL error.  That it was instead treated as a
literal could perhaps be considered a violation of the "principle of
least astonishment".

Thanks for setting me straight.

Bill

This e-mail, including attachments, may include confidential and/or
proprietary information, and may be used only by the person or entity
to which it is addressed. If the reader of this e-mail is not the intended
recipient or his or her authorized agent, the reader is hereby notified
that any dissemination, distribution or copying of this e-mail is
prohibited. If you have received this e-mail in error, please notify the
sender by replying to this message and delete this e-mail immediately.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: REXX ISPF edit FIND failing

[Hardee, Chuck]

And I am on z/OS 1.13 and have the problem there so it's a current issue.

Charles (Chuck) Hardee
Senior Systems Engineer
Database Administration
Information Technology Services
Thermo Fisher Scientific
300 Industry Drive
Pittsburgh, PA 15275
Direct: 724-517-2633
FAX: 412-490-9230
chuck.har...@thermofisher.com

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Lizette Koehler
Sent: Wednesday, July 18, 2012 5:18 PM
To: IBM-MAIN@LISTSERV.UA.EDU
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 
>

I am z/OS V1.12.  I am using the F P'' ALL inside a member with your exact 
data.

If I use
F ALL p'DISP=SHR=DSN=$PDQ$ALC$UNVLIB$$UCMIN$'

It works

If I use
F ALL p'DISP=SHR=DSN=$PDQ$ALC$UNVLIB$$UCMIN)'


It works.  So not sure where the problem is.  I will test later with an ISPF 
macro.  So native F ALL P'' works.  Just need to check out the Macro side.


Lizette

Lizette

--
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

Re: REXX ISPF edit FIND failing

[John Mattson]

That's one of the very frustrating things about this problem. 
Almost EVERY variation of these ISREDIT FIND's work just fine as the 
'commands between the quotes' in TSO/ISPF. 
So, why don't they work the same way in ISREDIT?  Beats me, that's for 
sure. 



From:   Lizette Koehler 
To: IBM-MAIN@LISTSERV.UA.EDU
Date:   07/18/2012 02:18 PM
Subject:Re: REXX ISPF edit FIND failing
Sent by:IBM Mainframe Discussion List 



>
>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 
>

I am z/OS V1.12.  I am using the F P'' ALL inside a member with your 
exact data.

If I use
F ALL p'DISP=SHR=DSN=$PDQ$ALC$UNVLIB$$UCMIN$'

It works

If I use
F ALL p'DISP=SHR=DSN=$PDQ$ALC$UNVLIB$$UCMIN)'


It works.  So not sure where the problem is.  I will test later with an 
ISPF macro.  So native F ALL P'' works.  Just need to check out the 
Macro side.


Lizette

Lizette

--
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

Re: 6 Member Parallel Sysplex - timezone

[Mike Wood]

Jeff,
  I believe hsm runs using local times, so you could have data created on one 
LPAR migrated/deleted earlier/later on another LPAR in different time zone.

rmm has an option to use a common time (UTC/GMT) instead of local time, 
avoiding similar problems during retention/expiration.
See rmm books for use of UTC and TZ.

Mike Wood

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Moving JES2 spool volumes

[Skip Robinson]

(Replying to self.) I spent some time last week trying to test this 
function. Could not even get it to run. Finally used Google to track down 
a Q&A that mentioned a symptom I was seeing. Q&A pointed to OA36158, the 
$MSPL enabling code. Duh. It was RECEIVEd here but never installed. I 
complained via  SR that SIS search on '$MSPL' found three other APARs but 
not this one. IBM fixed it so that now SIS finds the fourth and most 
important APAR of all. Don't leave home without it. 

.
.
JO.Skip Robinson
SCE Infrastructure Technology Services
Electric Dragon Team Paddler 
SHARE MVS Program Co-Manager
626-302-7535 Office
323-715-0595 Mobile
jo.skip.robin...@sce.com



From:   Skip Robinson 
To: IBM-MAIN@LISTSERV.UA.EDU
Date:   07/11/2012 07:40 AM
Subject:Re: Moving JES2 spool volumes
Sent by:IBM Mainframe Discussion List 



I've been following the saga of draining/halting spool volumes. That was 
our preferred method in the past. In this go-around we're short on time 
(no opportunity to migrate a software change), and R13 is already in 
place. I figured that $MSPL might actually be less risky here than bumping 

up against a known problem with an ancient process. Wanted broader 
confirmation. Thanks to all who replied. 

.
.
JO.Skip Robinson
SCE Infrastructure Technology Services
Electric Dragon Team Paddler 
SHARE MVS Program Co-Manager
626-302-7535 Office
323-715-0595 Mobile
jo.skip.robin...@sce.com



From:   "Vernooij, CP - SPLXM" 
To: IBM-MAIN@LISTSERV.UA.EDU
Date:   07/10/2012 11:27 PM
Subject:Re: Moving JES2 spool volumes
Sent by:IBM Mainframe Discussion List 



Before doing any actions against spoolvolumes, have a look at this Red
Alert:
http://www14.software.ibm.com/support/customercare/sas/f/redAlerts/20120
629.html

Kees.

"Skip Robinson"  wrote in message
news:
...
> We need to move an R13 JES2 MAS onto new spool volumes. R13 introduced
the 
> $MSPL command to migrate/move spool dynamically. We have not used
$MSPL. 
> Any advice? 
> 



--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: CTC FICON DIRECTOR

[Arye Shemer]

Thank you guys for the information.

Arye.

On 18 July 2012 16:47, R.S.  wrote:

> W dniu 2012-07-17 17:03, Arye Shemer pisze:
> > Hello Forumers,
> >
> > I try to clarify for myself the following issue:
> >
> > Do I need FICON Director in order to connect two LPARs on the same CEC
> > using FICON CTC ?
>
> It depends.
> 1. You can use two FICON ports - as in ESCON CTC (note both ports are
> defined as FC, there is no CNC-CTC pair).
> 2. You can use *ONE* FICON port, connected to a switch
>
> > Please refer to documentation on the subject if possible.
> Search for FICON and CTC in redbooks, browse hardware documentation on
> Resourcelink.
>
>
> --
> Radoslaw Skorupka
> Lodz, Poland
>
>
>
>
>
>
>
>
> --
> Tre   tej wiadomo ci mo e zawiera  informacje prawnie chronione Banku
> przeznaczone wy  cznie do u ytku s u bowego adresata. Odbiorc  mo e by
>  jedynie jej adresat z wy  czeniem dost pu osób trzecich. Je eli nie jeste
>  adresatem niniejszej wiadomo ci lub pracownikiem upowa nionym do jej
> przekazania adresatowi, informujemy,  e jej rozpowszechnianie, kopiowanie,
> rozprowadzanie lub inne dzia anie o podobnym charakterze jest prawnie
> zabronione i mo e by  karalne. Je eli otrzyma e  t  wiadomo   omy kowo,
> prosimy niezw ocznie zawiadomi  nadawc  wysy aj c odpowied  oraz trwale
> usun   t  wiadomo   w  czaj c w to wszelkie jej kopie wydrukowane lub
> zapisane na dysku.
>
> This e-mail may contain legally privileged information of the Bank and is
> intended solely for business use of the addressee. This e-mail may only be
> received by the addressee and may not be disclosed to any third parties. If
> you are not the intended addressee of this e-mail or the employee
> authorised to forward it to the addressee, be advised that any
> dissemination, copying, distribution or any other similar activity is
> legally prohibited and may be punishable. If you received this e-mail by
> mistake please advise the sender immediately by using the reply facility in
> your e-mail software and delete permanently this e-mail including any
> copies of it either printed or saved to hard drive.
>
> BRE Bank SA, 00-950 Warszawa, ul. Senatorska 18, tel. +48 (22) 829 00 00,
> fax +48 (22) 829 00 33, www.brebank.pl, e-mail: i...@brebank.pl
> S d Rejonowy dla m. st. Warszawy XII Wydzia  Gospodarczy Krajowego
> Rejestru S dowego, nr rejestru przedsi biorców KRS 025237, NIP:
> 526-021-50-88.
> Wed ug stanu na dzie  01.01.2012 r. kapita  zak adowy BRE Banku SA (w ca o
> ci wp acony) wynosi 168.410.984 z otych.
>
>
> --
> 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

Re: REXX ISPF edit FIND failing

[Skip Robinson]

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
jo.skip.robin...@sce.com



From:   John Mattson 
To: IBM-MAIN@LISTSERV.UA.EDU
Date:   07/18/2012 01:34 PM
Subject:Re: REXX ISPF edit FIND failing
Sent by:IBM Mainframe Discussion List 



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 
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 lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: REXX ISPF edit FIND failing

[Dave Salt]

The FEX (Find EXpression) command, which is part of the extended edit features 
in SimpList, further enhances the power of picture strings. For example, square 
brackets can be used to signify an exact match on any ONE of the bracketed 
characters, as shown in this example: 

FEX gr[ae]yFinds the next line containing 'gray' or 'grey'
FEX b[aiu]gFinds any of the following strings:   bag   Bag   baG   BaG  
 big   Big   biG   BiG   bug   Bug   buG   BuG  

The ability to use square brackets means that picture string characters can be 
'escaped out'. In other words, picture string characters can represent a group 
of characters or the actual literal character, as shown by this example:
  
FEX #[#]# 

This command finds any numeric character followed by a number sign followed by 
any other numeric character; e.g. '7#3'. If the second number sign hadn't been 
enclosed in brackets it would have been treated as a picture string character 
and therefore would have found any 3 consecutive numbers; e.g. '526'.  As 
another example:

FEX A=#  Finds 'A' followed by any character followed by any number; 
e.g. 'A+7'

FEX A[=]#   Finds 'A' followed by an equal sign followed by any number; 
e.g. 'A=7'.

 
Dave Salt

SimpList(tm) - try it; you'll get it! 

http://www.mackinney.com/products/program-development/simplist.html  





> Date: Wed, 18 Jul 2012 13:48:10 -0700
> From: stars...@mindspring.com
> Subject: Re: REXX ISPF edit FIND failing
> To: IBM-MAIN@LISTSERV.UA.EDU
> 
> FYI.  From ISPF You can see that Picture Strings are powerful
> 
> A picture string is a quoted string that is preceded or followed by the  
> letter "P".  It can contain blanks, alphabetic and numeric characters
> which represent themselves, or any of the special characters listed  
> below, each of which represents a class of characters.   
> The special characters that can be used in a "from" picture string are:  
> =  - any character .
> - invalid characters   
> @  - alphabetic characters -  - non-numeric characters   
> #  - numeric characters<  - lower case alphabetics   
> $  - special characters>  - upper case alphabetics   
> ¬  - non-blank characters
> The special characters that can be used in a "to" picture string are:
> =  - any character <  - lower case alphabetics   
> >  - upper case alphabetics  
> (continued on next page) 
> 
> 
> Lizette
> 
> -Original Message-
> >From: John Mattson 
> >Sent: Jul 18, 2012 1:33 PM
> >To: IBM-MAIN@LISTSERV.UA.EDU
> >Subject: Re: REXX ISPF edit FIND failing
> >
> >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 
> >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 lists...@listserv.ua.edu with the message: INFO IBM-MAIN
   

Re: REXX ISPF edit FIND failing

[Lizette Koehler]

>
>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 
>

I am z/OS V1.12.  I am using the F P'' ALL inside a member with your exact 
data.

If I use
F ALL p'DISP=SHR=DSN=$PDQ$ALC$UNVLIB$$UCMIN$'

It works

If I use
F ALL p'DISP=SHR=DSN=$PDQ$ALC$UNVLIB$$UCMIN)'


It works.  So not sure where the problem is.  I will test later with an ISPF 
macro.  So native F ALL P'' works.  Just need to check out the Macro side.


Lizette

Lizette

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: REXX ISPF edit FIND failing

[Lizette Koehler]

FYI.  From ISPF You can see that Picture Strings are powerful

A picture string is a quoted string that is preceded or followed by the  
letter "P".  It can contain blanks, alphabetic and numeric characters
which represent themselves, or any of the special characters listed  
below, each of which represents a class of characters.   
The special characters that can be used in a "from" picture string are:  
=  - any character .  - invalid characters   
@  - alphabetic characters -  - non-numeric characters   
#  - numeric characters<  - lower case alphabetics   
$  - special characters>  - upper case alphabetics   
¬  - non-blank characters
The special characters that can be used in a "to" picture string are:
=  - any character <  - lower case alphabetics   
>  - upper case alphabetics  
(continued on next page) 


Lizette

-Original Message-
>From: John Mattson 
>Sent: Jul 18, 2012 1:33 PM
>To: IBM-MAIN@LISTSERV.UA.EDU
>Subject: Re: REXX ISPF edit FIND failing
>
>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 
>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 lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: REXX ISPF edit FIND failing

[John Mattson]

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 
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 lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: REXX ISPF edit FIND failing

[John Mattson]

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 lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Help with elementary CPU speed question

[Charles Mills]

> It makes no sense to try to calculate the CPU utilization on one system 
> compared to another by taking a ratio of the total throughput when 
> one has 22 processors and the other has 3.

Unless the programmer has done one heckuva job exploiting parallelization. 

Charles

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Tom Marchant
Sent: Wednesday, July 18, 2012 12:35 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Help with elementary CPU speed question

On Wed, 18 Jul 2012 13:12:06 -0500, Jon Butler wrote:

>...  using numbers from the latest MIPS ratings here is what 
>you are up against:
>
>z9/722 rated at 1226 MSU
>z900/2C3 rated at 144 MSU
>
>I'd guess your job is going to run 1226/144 or 8 times slower.

ROTFLMAO

MIPS?  Then you quote MSU?  If you are going to use LSPR data, 
why not quote ITR?  MSUs have been altered by IBM marketing to 
give the "technology dividend".

And you are totally ignorong the number of processors.  It makes no 
sense to try to calculate the CPU utilization on one system 
compared to another by taking a ratio of the total throughput when 
one has 22 processors and the other has 3.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Unsetting a JCL symbol.

[Tom Marchant]

On Wed, 18 Jul 2012 10:32:49 -0500, Bass, Walter W wrote:

>Note in your example that lines 3 and 4 are NOT followed by message
>IEFC653I as they would be if any symbol substitution took place.

Right

>The
>reason your example does not work is because when lines 3 and 4 are
>evaluated, &MYSYM has not yet been assigned any value, therefore the JCL
>processor does not yet consider it to be a symbol.

Right.  Paul provided that to show that your "solution" did not 
solve the problem that he wanted to solve, as follows:

On 7/17/2012 3:08 PM, Paul Gilmartin wrote:
>>
>> Once a JCL symbol has been set, is there any way subsequently
>> to restore it to exactly the state and behavior it had before it
>> was set?

-- 
Tom Marchant

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: BDAM READ with BLKREF of X'0'

[Binyamin Dissen]

On Wed, 18 Jul 2012 12:12:13 -0400 Thomas David Rivers 
wrote:

:>I'm debugging a program (no source), and trying to
:>figure out what BDAM does when the READ macro
:>is invoked without a BLKREF relative-block-address
:>specified.

:>This is an RBA-type BDAM, and I'm seeing a READ
:>where the BLKREF in the DECB is simply X'0'.

:>I thought the BLKREF field would point to a location
:>that contained the relative-block-address value.

:>So - what does BDAM do with such a thing - does it
:>read the "next" block (where next would be the one
:>after the current one.)  Or???

:>It doesn't seem to fail/ABEND in anyway... seems to
:>merrily read _something_ - just not sure what.

:>I've looked thru various IBM books, but can't seem to
:>find a definition of what happens when the READ
:>doesn't specify a BLKREF parm.  The BDAM READ
:>documentation doesn't seem to say its optional,
:>but I can slap together an example and leave it off...

:>I suppose my question boils down to:

:>   What does BDAM READ do if the BLKREF macro
:>   parameter is omitted?

What is the second parameter of the read?

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Help with elementary CPU speed question

[Tom Marchant]

On Wed, 18 Jul 2012 13:12:06 -0500, Jon Butler wrote:

>...  using numbers from the latest MIPS ratings here is what 
>you are up against:
>
>z9/722 rated at 1226 MSU
>z900/2C3 rated at 144 MSU
>
>I'd guess your job is going to run 1226/144 or 8 times slower.

ROTFLMAO

MIPS?  Then you quote MSU?  If you are going to use LSPR data, 
why not quote ITR?  MSUs have been altered by IBM marketing to 
give the "technology dividend".

And you are totally ignorong the number of processors.  It makes no 
sense to try to calculate the CPU utilization on one system 
compared to another by taking a ratio of the total throughput when 
one has 22 processors and the other has 3.

-- 
Tom Marchant

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: REXX ISPF edit FIND failing

[Lizette Koehler]

Charles,

Thanks for verifying.  Shows what can happen when you do it from memory.  the 
use of the = or $ to replace the . would be the correct answer. Don't know why 
I did not do that the first time.

Lizette



-Original Message-
>From: "Hardee, Chuck" 
>Sent: Jul 18, 2012 11:31 AM
>To: IBM-MAIN@LISTSERV.UA.EDU
>Subject: Re: REXX ISPF edit FIND failing
>
>You need to be careful with your picture string components.
>It didn't work with your suggested string below and in looking at the rules 
>for pictures, the "." (period) represents any non-displayable character. Since 
>a "." as it is used in the JCL example is a displayable character, when I 
>changed the "." in the picture string to be an "=" then I found the string.
>
>I used P'DISP=SHR=DSN=MSYS=UCMD=REMOTE$PDQR=$'
>
>
>Charles (Chuck) Hardee
>Senior Systems Engineer
>Database Administration
>Information Technology Services
>Thermo Fisher Scientific
>300 Industry Drive
>Pittsburgh, PA 15275
>Direct: 724-517-2633
>FAX: 412-490-9230
>chuck.har...@thermofisher.com
>
>
>-Original Message-
>From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On 
>Behalf Of Lizette Koehler
>Sent: Wednesday, July 18, 2012 1:49 PM
>To: IBM-MAIN@LISTSERV.UA.EDU
>Subject: Re: REXX ISPF edit FIND failing
>
>Personally I would use the ISPF Picture string instead of a physical line
>
>For example
>"ISREDIT F ALL 'DISP=SHR,DSN=MSYS.UCMD.REMOTE&PDQR.'  "
>
>would become
>"ISREDIT F ALL p'DISP=SHR=DSN=MSYS.UCMD.REMOTE$PDQR$'  "
>
>The equal signs equate to any char.
>The $ equate to any special char (& . , etc...)
>
>This might make it work better
>
>Lizette
>
>-Original Message-
>>From: John Mattson 
>>Sent: Jul 18, 2012 9:47 AM
>>To: IBM-MAIN@LISTSERV.UA.EDU
>>Subject: REXX ISPF edit FIND failing
>>
>>I have a little dataset which contains 
>>//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) 
>>//SYSINDD  DISP=SHR,DSN=&PDQ.ALC.UNVLIB(&UCMIN) 
>>X/MYSCRIPT DD  DISP=SHR,DSN=&PDQ.ALC.UNVLIB(&MY) 
>>
>>I have a little REXX which I want to "FIND" these strings 
>>/* REXX */ 
>>TRACE I 
>>Address ISPEXEC 
>>"ISREDIT MACRO (MEM) NOPROCESS" 
>>"CONTROL ERRORS RETURN" 
>>"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)'"
>>EXIT 
>>
>>The First Three FIND's work fine.  Starting from the fourth find, 
>>they all get RC=4, not found.  Even tho I can clearly see that the strings 
>>exist in the dataset.  What in the whirled is going on here?? Is there 
>>something "special" about two &'s in a string?  I have tried removing the 
>>second & from both the find and my dataset and the find still fails.  I am 
>>at wits end here. 
>>I have also tried "extracting" the actual finds like: F ALL 
>>'DISP=SHR,DSN=&PDQ.ALC.UNVLIB(&MY)'and executing them in TSO, and they all 
>>work. What is special here.  FYI, the final " is in col 71 
>>
>

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Unsetting a JCL symbol.

[Pommier, Rex R.]

Ahh, missed that part.  Thanks for the clarification.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Bass, Walter W
Sent: Wednesday, July 18, 2012 1:44 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Unsetting a JCL symbol.

Line 2 is the line I added to correct the prior example that failed.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Pommier, Rex R.
Sent: Wednesday, July 18, 2012 2:00 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Unsetting a JCL symbol.

But doesn't line 2 set MYSYM to 'INITVAL'?

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Bass, Walter W
Sent: Wednesday, July 18, 2012 10:33 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Unsetting a JCL symbol.

Paul,

Note in your example that lines 3 and 4 are NOT followed by message IEFC653I as 
they would be if any symbol substitution took place. The reason your example 
does not work is because when lines 3 and 4 are evaluated, &MYSYM has not yet 
been assigned any value, therefore the JCL processor does not yet consider it 
to be a symbol.

On lines 3 and 4 it is treated as a literal and &SAVESYM is set to the literal 
value "&MYSYM" rather than the value of the symbol &MYSYM.

If &MYSYM is assigned a value prior to line 3, it works as expected.

2 // SET MYSYM='INITVAL'
3 //BEFORE   EXEC  PGM=IEFBR14,PARM='&MYSYM.X'
  //*
  //* SAVE CURRENT VALUE OF MYSYM
  IEFC653I SUBSTITUTION JCL - PGM=IEFBR14,PARM='INITVALX'
4 // SET SAVESYM=&MYSYM
  //* SET MYSYM TO A NEW VALUE
  IEFC653I SUBSTITUTION JCL - SAVESYM=INITVAL
5 // SET MYSYM='NEWVAL'
6 //DURING   EXEC  PGM=IEFBR14,PARM='&MYSYM.X'
  //*
  //* RESTORE MYSYM
  IEFC653I SUBSTITUTION JCL - PGM=IEFBR14,PARM='NEWVALX'
7 // SET MYSYM=&SAVESYM
  IEFC653I SUBSTITUTION JCL - MYSYM=INITVAL
8 //AFTEREXEC  PGM=IEFBR14,PARM='&MYSYM.X'
  IEFC653I SUBSTITUTION JCL - PGM=IEFBR14,PARM='INITVALX'

Thanks,
Bill

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Paul Gilmartin
Sent: Tuesday, July 17, 2012 6:06 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Unsetting a JCL symbol.

On Tue, 17 Jul 2012 16:43:32 -0500, Bass, Walter W wrote:

>Try this ...
>
>//* SAVE CURRENT VALUE OF MYSYM
>// SET SAVESYM=&MYSYM
>//* SET MYSYM TO A NEW VALUE
>// SET MYSYM='NEWVAL'
>
>...
>//* RESTORE MYSYM
>// SET MYSYM=&SAVESYM
>
>Probably not the answer you wanted, but it works.
>
Actually, it doesn't work:

3 //BEFORE   EXEC  PGM=IEFBR14,PARM='&MYSYM.X'
  //*
  //* SAVE CURRENT VALUE OF MYSYM
4 // SET SAVESYM=&MYSYM
  //* SET MYSYM TO A NEW VALUE
5 // SET MYSYM='NEWVAL'
6 //DURING   EXEC  PGM=IEFBR14,PARM='&MYSYM.X'
  //*
  //* RESTORE MYSYM
  IEFC653I SUBSTITUTION JCL - PGM=IEFBR14,PARM='NEWVALX'
7 // SET MYSYM=&SAVESYM
  IEFC653I SUBSTITUTION JCL - MYSYM=&MYSYM
8 //AFTEREXEC  PGM=IEFBR14,PARM='&MYSYM.X'
  IEFC653I SUBSTITUTION JCL - PGM=IEFBR14,PARM='&MYSYMX'
9 //

... notice the difference between lines 3 and 8.

>Another possibility is to take advantage of the fact that symbols that
>are SET within a PROC automatically revert to their former value after
>the PROC terminates.
>
That one I believe.  Steve suggested it too.  But in open code, there seems to 
be no solution.  Symbols are initially in a Garden of Eden state (which John G. 
dislikes).  Once they leave they can never return.

-- gil

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

This e-mail, including attachments, may include confidential and/or proprietary 
information, and may be used only by the person or entity to which it is 
addressed. If the reader of this e-mail is not the intended recipient or his or 
her authorized agent, the reader is hereby notified that any dissemination, 
distribution or copying of this e-mail is prohibited. If you have received this 
e-mail in error, please notify the sender by replying to this message and 
delete this e-mail immediately.

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

The information contained in this e-mail may contain confidential and/or 
privileged information and is intended for the sole use of the intended 
recipient. If you are not the intended recipient, you are hereby notified that 
any unauthorized use, disclosure, distribution or copying of this communication 
is strictly prohibited and that you will be held responsible for any such 
unauthorized activity, including liability for any re

Re: Help with elementary CPU speed question

[Gibney, Dave]

Like it or not, most batch jobs are largely single CPU bound. They do not often 
multi-task. So I would suggest you use the ratio of the single processor 
numbers from LSPR.  Still there are many ways YMMV

Dave Gibney
Information Technology Services
Washington State University


> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU]
> On Behalf Of Charles Mills
> Sent: Wednesday, July 18, 2012 11:46 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Help with elementary CPU speed question
> 
> Jon, thanks for the thoughtful reply. Much appreciated.
> 
> You say the z900 is 1/8 as fast (powerful, whatever, fill in your favorite 
> word)
> as the z9. That's a combination of two factors, right? Each CPU on the z9 is
> 1.48 times as fast as those on the z900, and in addition the -722 has 22 of
> them, while the -2C3 has only three, is that right? I am mostly interested at
> this moment in CPU time. I know it's not the only thing, and it's not the same
> thing as wall clock time, but it is what the company is going to be billed 
> for so
> it is a (the?) critical factor at this moment. So I think my focusing on 
> relative
> CPU speed rather than total "box power" (CPU's only, or CPU's and I/O) is
> correct at this time. Any thoughts?
> 
> Charles
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU]
> On Behalf Of Jon Butler
> Sent: Wednesday, July 18, 2012 11:12 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Help with elementary CPU speed question
> 
> As has been pointed out, there are many IBM tools such as zPCR that you can
> download to help with this exercise.  The tools require either a good estimate
> or RMF data from the LPARs to give you an accurate comparison.  In running
> one job anything can happen to distort the figures.
> 
> However, I think a rough calculation without regard to the other work in the
> LPARs on the several CECs can give you an idea of what to expect.  If we make
> the assumption that both CECs are running a similar workloadnot bloody
> likely give the CEC's design difference, disk drives, I/O configs, WLM 
> settings,
> OS version, etcbut using numbers from the latest MIPS ratings here is what
> you are up against:
> 
> z9/722 rated at 1226 MSU
> z900/2C3 rated at 144 MSU
> 
> I'd guess your job is going to run 1226/144 or 8 times slower.  Let us know
> what happens.  Of course if the z9 is running at 95% and the z900 at 5%, your
> job may be faster on the older CEC
> 
> --
> 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

Re: REXX ISPF edit FIND failing

[Tom Ambros]

This is probably easier.

ISREDIT "SCAN OFF" 
ISREDIT "F ALL 'DISP=SHR,DSN=MSYS.UCMD.REMOTE&&PDQR'   "
ISREDIT "SCAN ON" 

Scan is initialized to ON when the macro starts so unconditionally 
changing it is probably OK. 

Thomas Ambros
Operating Systems and Connectivity Engineering
518-436-6433





From:   "Hardee, Chuck" 
To: IBM-MAIN@LISTSERV.UA.EDU
Date:   07/18/2012 14:35
Subject:Re: REXX ISPF edit FIND failing
Sent by:IBM Mainframe Discussion List 



You need to be careful with your picture string components.
It didn't work with your suggested string below and in looking at the 
rules for pictures, the "." (period) represents any non-displayable 
character. Since a "." as it is used in the JCL example is a displayable 
character, when I changed the "." in the picture string to be an "=" then 
I found the string.

I used P'DISP=SHR=DSN=MSYS=UCMD=REMOTE$PDQR=$'


Charles (Chuck) Hardee
Senior Systems Engineer
Database Administration
Information Technology Services
Thermo Fisher Scientific
300 Industry Drive
Pittsburgh, PA 15275
Direct: 724-517-2633
FAX: 412-490-9230
chuck.har...@thermofisher.com


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On 
Behalf Of Lizette Koehler
Sent: Wednesday, July 18, 2012 1:49 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: REXX ISPF edit FIND failing

Personally I would use the ISPF Picture string instead of a physical line

For example
"ISREDIT F ALL 'DISP=SHR,DSN=MSYS.UCMD.REMOTE&PDQR.' "

would become
"ISREDIT F ALL p'DISP=SHR=DSN=MSYS.UCMD.REMOTE$PDQR$' "

The equal signs equate to any char.
The $ equate to any special char (& . , etc...)

This might make it work better

Lizette

-Original Message-
>From: John Mattson 
>Sent: Jul 18, 2012 9:47 AM
>To: IBM-MAIN@LISTSERV.UA.EDU
>Subject: REXX ISPF edit FIND failing
>
>I have a little dataset which contains 
>//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) 
>//SYSINDD  DISP=SHR,DSN=&PDQ.ALC.UNVLIB(&UCMIN) 
>X/MYSCRIPT DD  DISP=SHR,DSN=&PDQ.ALC.UNVLIB(&MY) 
>
>I have a little REXX which I want to "FIND" these strings 
>/* REXX */ 
>TRACE I 
>Address ISPEXEC 
>"ISREDIT MACRO (MEM) NOPROCESS" 
>"CONTROL ERRORS RETURN" 
>"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)'"
>EXIT 
>
>The First Three FIND's work fine.  Starting from the fourth find, 

>they all get RC=4, not found.  Even tho I can clearly see that the 
strings 
>exist in the dataset.  What in the whirled is going on here?? Is there 
>something "special" about two &'s in a string?  I have tried removing the 

>second & from both the find and my dataset and the find still fails.  I 
am 
>at wits end here. 
>I have also tried "extracting" the actual finds like: F ALL 
>'DISP=SHR,DSN=&PDQ.ALC.UNVLIB(&MY)'and executing them in TSO, and they 
all 
>work. What is special here.  FYI, the final " is in col 71 
>

--
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.

Re: Enabling Broadband RSF

[Hal Merritt]

Try logging on as SERVICE or even SYSPROG. 
 
-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of ??? ?? ???
Sent: Tuesday, July 17, 2012 7:26 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Enabling Broadband RSF

I logged on as ACSADMIN

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Mary Anne Matyaz
Sent: Tuesday, July 17, 2012 3:17 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Enabling Broadband RSF

"I don’t have that option on my HMC.
What do I have to do to enable it?"

Assuming you went to "Console Actions" then "Hardware Management Console 
Settings", what ID are you logged on to the HMC as?

Mary Anne

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

לשימת לבך, בהתאם לנהלי החברה וזכויות החתימה בה, כל הצעה, התחייבות או מצג מטעם 
החברה, מחייבים מסמך נפרד וחתום על ידי מורשי החתימה של החברה, הנושא את לוגו 
החברה או שמה המודפס ובצירוף חותמת החברה. בהעדר מסמך כאמור (לרבות מסמך סרוק) 
המצורף להודעת דואר אלקטרוני זאת, אין לראות באמור בהודעה אלא משום טיוטה לדיון, 
ואין להסתמך עליה לביצוע פעולה עסקית או משפטית כלשהי.


Please note that in accordance with Malam's signatory rights, no offer, 
agreement, concession or representation is binding on the company, unless 
accompanied by a duly signed separate document (or a scanned version thereof), 
affixed with the company's seal.

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN
NOTICE: This electronic mail message and any files transmitted with it are 
intended
exclusively for the individual or entity to which it is addressed. The message, 
together with any attachment, may contain confidential and/or privileged 
information.
Any unauthorized review, use, printing, saving, copying, disclosure or 
distribution 
is strictly prohibited. If you have received this message in error, please 
immediately advise the sender by reply email and delete all copies.


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Help with elementary CPU speed question

[Charles Mills]

Jon, thanks for the thoughtful reply. Much appreciated.

You say the z900 is 1/8 as fast (powerful, whatever, fill in your favorite 
word) as the z9. That's a combination of two factors, right? Each CPU on the z9 
is 1.48 times as fast as those on the z900, and in addition the -722 has 22 of 
them, while the -2C3 has only three, is that right? I am mostly interested at 
this moment in CPU time. I know it's not the only thing, and it's not the same 
thing as wall clock time, but it is what the company is going to be billed for 
so it is a (the?) critical factor at this moment. So I think my focusing on 
relative CPU speed rather than total "box power" (CPU's only, or CPU's and I/O) 
is correct at this time. Any thoughts?

Charles
-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Jon Butler
Sent: Wednesday, July 18, 2012 11:12 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Help with elementary CPU speed question

As has been pointed out, there are many IBM tools such as zPCR that you can 
download to help with this exercise.  The tools require either a good estimate 
or RMF data from the LPARs to give you an accurate comparison.  In running one 
job anything can happen to distort the figures.

However, I think a rough calculation without regard to the other work in the 
LPARs on the several CECs can give you an idea of what to expect.  If we make 
the assumption that both CECs are running a similar workloadnot bloody 
likely give the CEC's design difference, disk drives, I/O configs, WLM 
settings, OS version, etcbut using numbers from the latest MIPS ratings 
here is what you are up against:

z9/722 rated at 1226 MSU
z900/2C3 rated at 144 MSU

I'd guess your job is going to run 1226/144 or 8 times slower.  Let us know 
what happens.  Of course if the z9 is running at 95% and the z900 at 5%, your 
job may be faster on the older CEC

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Unsetting a JCL symbol.

[Bass, Walter W]

Line 2 is the line I added to correct the prior example that failed. 

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Pommier, Rex R.
Sent: Wednesday, July 18, 2012 2:00 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Unsetting a JCL symbol.

But doesn't line 2 set MYSYM to 'INITVAL'?

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Bass, Walter W
Sent: Wednesday, July 18, 2012 10:33 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Unsetting a JCL symbol.

Paul,

Note in your example that lines 3 and 4 are NOT followed by message
IEFC653I as they would be if any symbol substitution took place. The
reason your example does not work is because when lines 3 and 4 are
evaluated, &MYSYM has not yet been assigned any value, therefore the JCL
processor does not yet consider it to be a symbol.

On lines 3 and 4 it is treated as a literal and &SAVESYM is set to the
literal value "&MYSYM" rather than the value of the symbol &MYSYM.

If &MYSYM is assigned a value prior to line 3, it works as expected.

2 // SET MYSYM='INITVAL'
3 //BEFORE   EXEC  PGM=IEFBR14,PARM='&MYSYM.X'
  //*
  //* SAVE CURRENT VALUE OF MYSYM
  IEFC653I SUBSTITUTION JCL - PGM=IEFBR14,PARM='INITVALX'
4 // SET SAVESYM=&MYSYM
  //* SET MYSYM TO A NEW VALUE
  IEFC653I SUBSTITUTION JCL - SAVESYM=INITVAL
5 // SET MYSYM='NEWVAL'
6 //DURING   EXEC  PGM=IEFBR14,PARM='&MYSYM.X'
  //*
  //* RESTORE MYSYM
  IEFC653I SUBSTITUTION JCL - PGM=IEFBR14,PARM='NEWVALX'
7 // SET MYSYM=&SAVESYM
  IEFC653I SUBSTITUTION JCL - MYSYM=INITVAL
8 //AFTEREXEC  PGM=IEFBR14,PARM='&MYSYM.X'
  IEFC653I SUBSTITUTION JCL - PGM=IEFBR14,PARM='INITVALX'

Thanks,
Bill

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Paul Gilmartin
Sent: Tuesday, July 17, 2012 6:06 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Unsetting a JCL symbol.

On Tue, 17 Jul 2012 16:43:32 -0500, Bass, Walter W wrote:

>Try this ...
>
>//* SAVE CURRENT VALUE OF MYSYM
>// SET SAVESYM=&MYSYM
>//* SET MYSYM TO A NEW VALUE
>// SET MYSYM='NEWVAL'
>
>...
>//* RESTORE MYSYM
>// SET MYSYM=&SAVESYM
>
>Probably not the answer you wanted, but it works.
>
Actually, it doesn't work:

3 //BEFORE   EXEC  PGM=IEFBR14,PARM='&MYSYM.X'
  //*
  //* SAVE CURRENT VALUE OF MYSYM
4 // SET SAVESYM=&MYSYM
  //* SET MYSYM TO A NEW VALUE
5 // SET MYSYM='NEWVAL'
6 //DURING   EXEC  PGM=IEFBR14,PARM='&MYSYM.X'
  //*
  //* RESTORE MYSYM
  IEFC653I SUBSTITUTION JCL - PGM=IEFBR14,PARM='NEWVALX'
7 // SET MYSYM=&SAVESYM
  IEFC653I SUBSTITUTION JCL - MYSYM=&MYSYM
8 //AFTEREXEC  PGM=IEFBR14,PARM='&MYSYM.X'
  IEFC653I SUBSTITUTION JCL - PGM=IEFBR14,PARM='&MYSYMX'
9 //

... notice the difference between lines 3 and 8.

>Another possibility is to take advantage of the fact that symbols that 
>are SET within a PROC automatically revert to their former value after 
>the PROC terminates.
>
That one I believe.  Steve suggested it too.  But in open code, there
seems to be no solution.  Symbols are initially in a Garden of Eden
state (which John G. dislikes).  Once they leave they can never return.

-- gil

--
For IBM-MAIN subscribe / signoff / archive access instructions, send
email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

This e-mail, including attachments, may include confidential and/or
proprietary information, and may be used only by the person or entity to
which it is addressed. If the reader of this e-mail is not the intended
recipient or his or her authorized agent, the reader is hereby notified
that any dissemination, distribution or copying of this e-mail is
prohibited. If you have received this e-mail in error, please notify the
sender by replying to this message and delete this e-mail immediately.

--
For IBM-MAIN subscribe / signoff / archive access instructions, send
email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

The information contained in this e-mail may contain confidential and/or
privileged information and is intended for the sole use of the intended
recipient. If you are not the intended recipient, you are hereby
notified that any unauthorized use, disclosure, distribution or copying
of this communication is strictly prohibited and that you will be held
responsible for any such unauthorized activity, including liability for
any resulting damages. As appropriate, such incident(s) may also be
reported to law enforcement. If you received this e-mail in error,
please reply to sender and destroy or delete the message and any
attachments. Thank you.

--
For IBM-MAIN subs

Re: Help with elementary CPU speed question

[Hal Merritt]

Short answer: most likely not. 

Slightly longer answer: although all CPU's wait at the same speed, they vary in 
most everything else. 



 
-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Charles Mills
Sent: Tuesday, July 17, 2012 8:53 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Help with elementary CPU speed question

I have gotten dragged into a CPU performance question; a field I know little 
about.

 

I run a test on a 2094-722. It is rated at 19778 SU/Second. The job consumes
.146 CPU seconds total.

 

I run the same job on a 2064-2C3. It is rated at 13378 SU/Second. All other 
things being roughly equal, should I expect that the job will consume 1.48
(19778/13378) times as much CPU time, or .216 CPU seconds?

 

Is my logic right, or am I off somewhere? I'm not worried about a millisecond 
or two; just the broad strokes.

 

Thanks,

Charles 


--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN
NOTICE: This electronic mail message and any files transmitted with it are 
intended
exclusively for the individual or entity to which it is addressed. The message, 
together with any attachment, may contain confidential and/or privileged 
information.
Any unauthorized review, use, printing, saving, copying, disclosure or 
distribution 
is strictly prohibited. If you have received this message in error, please 
immediately advise the sender by reply email and delete all copies.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: REXX ISPF edit FIND failing

[Hardee, Chuck]

You need to be careful with your picture string components.
It didn't work with your suggested string below and in looking at the rules for 
pictures, the "." (period) represents any non-displayable character. Since a 
"." as it is used in the JCL example is a displayable character, when I changed 
the "." in the picture string to be an "=" then I found the string.

I used P'DISP=SHR=DSN=MSYS=UCMD=REMOTE$PDQR=$'


Charles (Chuck) Hardee
Senior Systems Engineer
Database Administration
Information Technology Services
Thermo Fisher Scientific
300 Industry Drive
Pittsburgh, PA 15275
Direct: 724-517-2633
FAX: 412-490-9230
chuck.har...@thermofisher.com


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Lizette Koehler
Sent: Wednesday, July 18, 2012 1:49 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: REXX ISPF edit FIND failing

Personally I would use the ISPF Picture string instead of a physical line

For example
"ISREDIT F ALL 'DISP=SHR,DSN=MSYS.UCMD.REMOTE&PDQR.'  "

would become
"ISREDIT F ALL p'DISP=SHR=DSN=MSYS.UCMD.REMOTE$PDQR$'  "

The equal signs equate to any char.
The $ equate to any special char (& . , etc...)

This might make it work better

Lizette

-Original Message-
>From: John Mattson 
>Sent: Jul 18, 2012 9:47 AM
>To: IBM-MAIN@LISTSERV.UA.EDU
>Subject: REXX ISPF edit FIND failing
>
>I have a little dataset which contains 
>//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) 
>//SYSINDD  DISP=SHR,DSN=&PDQ.ALC.UNVLIB(&UCMIN) 
>X/MYSCRIPT DD  DISP=SHR,DSN=&PDQ.ALC.UNVLIB(&MY) 
>
>I have a little REXX which I want to "FIND" these strings 
>/* REXX */ 
>TRACE I 
>Address ISPEXEC 
>"ISREDIT MACRO (MEM) NOPROCESS" 
>"CONTROL ERRORS RETURN" 
>"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)'"
>EXIT 
>
>The First Three FIND's work fine.  Starting from the fourth find, 
>they all get RC=4, not found.  Even tho I can clearly see that the strings 
>exist in the dataset.  What in the whirled is going on here?? Is there 
>something "special" about two &'s in a string?  I have tried removing the 
>second & from both the find and my dataset and the find still fails.  I am 
>at wits end here. 
>I have also tried "extracting" the actual finds like: F ALL 
>'DISP=SHR,DSN=&PDQ.ALC.UNVLIB(&MY)'and executing them in TSO, and they all 
>work. What is special here.  FYI, the final " is in col 71 
>

--
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

Re: Help with elementary CPU speed question

[Jon Butler]

As has been pointed out, there are many IBM tools such as zPCR that you can 
download to help with this exercise.  The tools require either a good estimate 
or RMF data from the LPARs to give you an accurate comparison.  In running one 
job anything can happen to distort the figures.

However, I think a rough calculation without regard to the other work in the 
LPARs on the several CECs can give you an idea of what to expect.  If we make 
the assumption that both CECs are running a similar workloadnot bloody 
likely give the CEC's design difference, disk drives, I/O configs, WLM 
settings, OS version, etcbut using numbers from the latest MIPS ratings 
here is what you are up against:

z9/722 rated at 1226 MSU
z900/2C3 rated at 144 MSU

I'd guess your job is going to run 1226/144 or 8 times slower.  Let us know 
what happens.  Of course if the z9 is running at 95% and the z900 at 5%, your 
job may be faster on the older CEC

Remember, objects are always closer than they appear in the mirror, and your 
actual mileage will vary.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Unsetting a JCL symbol.

[Pommier, Rex R.]

But doesn't line 2 set MYSYM to 'INITVAL'?

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Bass, Walter W
Sent: Wednesday, July 18, 2012 10:33 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Unsetting a JCL symbol.

Paul,

Note in your example that lines 3 and 4 are NOT followed by message IEFC653I as 
they would be if any symbol substitution took place. The reason your example 
does not work is because when lines 3 and 4 are evaluated, &MYSYM has not yet 
been assigned any value, therefore the JCL processor does not yet consider it 
to be a symbol.

On lines 3 and 4 it is treated as a literal and &SAVESYM is set to the literal 
value "&MYSYM" rather than the value of the symbol &MYSYM.

If &MYSYM is assigned a value prior to line 3, it works as expected.

2 // SET MYSYM='INITVAL'
3 //BEFORE   EXEC  PGM=IEFBR14,PARM='&MYSYM.X'
  //*
  //* SAVE CURRENT VALUE OF MYSYM
  IEFC653I SUBSTITUTION JCL - PGM=IEFBR14,PARM='INITVALX'
4 // SET SAVESYM=&MYSYM
  //* SET MYSYM TO A NEW VALUE
  IEFC653I SUBSTITUTION JCL - SAVESYM=INITVAL
5 // SET MYSYM='NEWVAL'
6 //DURING   EXEC  PGM=IEFBR14,PARM='&MYSYM.X'
  //*
  //* RESTORE MYSYM
  IEFC653I SUBSTITUTION JCL - PGM=IEFBR14,PARM='NEWVALX'
7 // SET MYSYM=&SAVESYM
  IEFC653I SUBSTITUTION JCL - MYSYM=INITVAL
8 //AFTEREXEC  PGM=IEFBR14,PARM='&MYSYM.X'
  IEFC653I SUBSTITUTION JCL - PGM=IEFBR14,PARM='INITVALX'

Thanks,
Bill

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Paul Gilmartin
Sent: Tuesday, July 17, 2012 6:06 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Unsetting a JCL symbol.

On Tue, 17 Jul 2012 16:43:32 -0500, Bass, Walter W wrote:

>Try this ...
>
>//* SAVE CURRENT VALUE OF MYSYM
>// SET SAVESYM=&MYSYM
>//* SET MYSYM TO A NEW VALUE
>// SET MYSYM='NEWVAL'
>
>...
>//* RESTORE MYSYM
>// SET MYSYM=&SAVESYM
>
>Probably not the answer you wanted, but it works.
>
Actually, it doesn't work:

3 //BEFORE   EXEC  PGM=IEFBR14,PARM='&MYSYM.X'
  //*
  //* SAVE CURRENT VALUE OF MYSYM
4 // SET SAVESYM=&MYSYM
  //* SET MYSYM TO A NEW VALUE
5 // SET MYSYM='NEWVAL'
6 //DURING   EXEC  PGM=IEFBR14,PARM='&MYSYM.X'
  //*
  //* RESTORE MYSYM
  IEFC653I SUBSTITUTION JCL - PGM=IEFBR14,PARM='NEWVALX'
7 // SET MYSYM=&SAVESYM
  IEFC653I SUBSTITUTION JCL - MYSYM=&MYSYM
8 //AFTEREXEC  PGM=IEFBR14,PARM='&MYSYM.X'
  IEFC653I SUBSTITUTION JCL - PGM=IEFBR14,PARM='&MYSYMX'
9 //

... notice the difference between lines 3 and 8.

>Another possibility is to take advantage of the fact that symbols that
>are SET within a PROC automatically revert to their former value after
>the PROC terminates.
>
That one I believe.  Steve suggested it too.  But in open code, there seems to 
be no solution.  Symbols are initially in a Garden of Eden state (which John G. 
dislikes).  Once they leave they can never return.

-- gil

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

This e-mail, including attachments, may include confidential and/or proprietary 
information, and may be used only by the person or entity to which it is 
addressed. If the reader of this e-mail is not the intended recipient or his or 
her authorized agent, the reader is hereby notified that any dissemination, 
distribution or copying of this e-mail is prohibited. If you have received this 
e-mail in error, please notify the sender by replying to this message and 
delete this e-mail immediately.

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

The information contained in this e-mail may contain confidential and/or 
privileged information and is intended for the sole use of the intended 
recipient. If you are not the intended recipient, you are hereby notified that 
any unauthorized use, disclosure, distribution or copying of this communication 
is strictly prohibited and that you will be held responsible for any such 
unauthorized activity, including liability for any resulting damages. As 
appropriate, such incident(s) may also be reported to law enforcement. If you 
received this e-mail in error, please reply to sender and destroy or delete the 
message and any attachments. Thank you.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: REXX ISPF edit FIND failing

[Lizette Koehler]

Personally I would use the ISPF Picture string instead of a physical line

For example
"ISREDIT F ALL 'DISP=SHR,DSN=MSYS.UCMD.REMOTE&PDQR.'  "

would become
"ISREDIT F ALL p'DISP=SHR=DSN=MSYS.UCMD.REMOTE$PDQR$'  "

The equal signs equate to any char.
The $ equate to any special char (& . , etc...)

This might make it work better

Lizette

-Original Message-
>From: John Mattson 
>Sent: Jul 18, 2012 9:47 AM
>To: IBM-MAIN@LISTSERV.UA.EDU
>Subject: REXX ISPF edit FIND failing
>
>I have a little dataset which contains 
>//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) 
>//SYSINDD  DISP=SHR,DSN=&PDQ.ALC.UNVLIB(&UCMIN) 
>X/MYSCRIPT DD  DISP=SHR,DSN=&PDQ.ALC.UNVLIB(&MY) 
>
>I have a little REXX which I want to "FIND" these strings 
>/* REXX */ 
>TRACE I 
>Address ISPEXEC 
>"ISREDIT MACRO (MEM) NOPROCESS" 
>"CONTROL ERRORS RETURN" 
>"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)'"
>EXIT 
>
>The First Three FIND's work fine.  Starting from the fourth find, 
>they all get RC=4, not found.  Even tho I can clearly see that the strings 
>exist in the dataset.  What in the whirled is going on here?? Is there 
>something "special" about two &'s in a string?  I have tried removing the 
>second & from both the find and my dataset and the find still fails.  I am 
>at wits end here. 
>I have also tried "extracting" the actual finds like: F ALL 
>'DISP=SHR,DSN=&PDQ.ALC.UNVLIB(&MY)'and executing them in TSO, and they all 
>work. What is special here.  FYI, the final " is in col 71 
>

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: SV: REXX ISPF edit FIND failing - oops, forgot SCAN mode

[Tom Ambros]

Check out SCAN mode discussion in ISPF Edit and Edit Macros doc.  It has 
good instructions and example. 

Thomas Ambros
Operating Systems and Connectivity Engineering
518-436-6433





From:   Tom Ambros 
To: IBM-MAIN@LISTSERV.UA.EDU
Date:   07/18/2012 13:41
Subject:Re: SV: REXX ISPF edit FIND failing
Sent by:IBM Mainframe Discussion List 



Is it possible that if you code &PDQR as &&PDQR edit strips the first 
ampersand and looks for the string the way you want?  I have some code 
which does something similar with &SYSNAME variable in the started task 
JCL.   I change a string containing that variable during DR adjustments of 

the VTAM proc. 

Thomas Ambros
Operating Systems and Connectivity Engineering
518-436-6433





From:   Thomas Berg 
To: IBM-MAIN@LISTSERV.UA.EDU
Date:   07/18/2012 13:27
Subject:SV: REXX ISPF edit FIND failing
Sent by:IBM Mainframe Discussion List 



The problem is that ISPF/ISREDIT evaluates/substitutes any ISPF variable, 
which in this case is "&PDQR".
So:
ISREDIT F ALL 'DISP=SHR,DSN=MSYS.UCMD.REMOTE'" 
 is the same as
"ISREDIT F ALL 'DISP=SHR,DSN=MSYS.UCMD.REMOTE&PDQR'  "
 and is the same as 
"ISREDIT F ALL 'DISP=SHR,DSN=MSYS.UCMD.REMOTE&PDQR.' "

In the latter two cases (apparently) "&PDQR" resolves into "" (empty) and 
"&PDQR." also. (The dot "." is used as an end-of-variable-name marker, 
IIRC.)

In e g this:
"ISREDIT F ALL 'DISP=SHR,DSN=MSYS.UCMD.REMOTE&PDQR.(' "
- resolves to: "ISREDIT F ALL 'DISP=SHR,DSN=MSYS.UCMD.REMOTE(' "
wich is no to be found in the dataset.
 
Etc.



Regards,
Thomas Berg
___
Thomas Berg   Specialist   AM/SM&S   SWEDBANK AB (publ)



> -Ursprungligt meddelande-
> Från: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU]
> För John Mattson
> Skickat: den 18 juli 2012 18:48
> Till: IBM-MAIN@LISTSERV.UA.EDU
> Ämne: REXX ISPF edit FIND failing
> 
> I have a little dataset which contains
> //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)
> //SYSINDD  DISP=SHR,DSN=&PDQ.ALC.UNVLIB(&UCMIN)
> X/MYSCRIPT DD  DISP=SHR,DSN=&PDQ.ALC.UNVLIB(&MY)
> 
> I have a little REXX which I want to "FIND" these strings
> /* REXX */
> TRACE I
> Address ISPEXEC
> "ISREDIT MACRO (MEM) NOPROCESS"
> "CONTROL ERRORS RETURN"
> "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)'"
> EXIT
> 
> The First Three FIND's work fine.  Starting from the fourth
> find, they all get RC=4, not found.  Even tho I can clearly see that the
> strings exist in the dataset.  What in the whirled is going on here?? Is
> there something "special" about two &'s in a string?  I have tried
> removing the second & from both the find and my dataset and the find
> still fails.  I am at wits end here.
> I have also tried "extracting" the actual finds like: F ALL
> 'DISP=SHR,DSN=&PDQ.ALC.UNVLIB(&MY)'and executing them in TSO, and they
> all work. What is special here.  FYI, the final " is in col 71
> 
> --
> 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 service

Re: SV: REXX ISPF edit FIND failing

[Tom Ambros]

Is it possible that if you code &PDQR as &&PDQR edit strips the first 
ampersand and looks for the string the way you want?  I have some code 
which does something similar with &SYSNAME variable in the started task 
JCL.   I change a string containing that variable during DR adjustments of 
the VTAM proc. 

Thomas Ambros
Operating Systems and Connectivity Engineering
518-436-6433





From:   Thomas Berg 
To: IBM-MAIN@LISTSERV.UA.EDU
Date:   07/18/2012 13:27
Subject:SV: REXX ISPF edit FIND failing
Sent by:IBM Mainframe Discussion List 



The problem is that ISPF/ISREDIT evaluates/substitutes any ISPF variable, 
which in this case is "&PDQR".
So:
ISREDIT F ALL 'DISP=SHR,DSN=MSYS.UCMD.REMOTE'" 
 is the same as
"ISREDIT F ALL 'DISP=SHR,DSN=MSYS.UCMD.REMOTE&PDQR'  "
 and is the same as 
"ISREDIT F ALL 'DISP=SHR,DSN=MSYS.UCMD.REMOTE&PDQR.' "

In the latter two cases (apparently) "&PDQR" resolves into "" (empty) and 
"&PDQR." also. (The dot "." is used as an end-of-variable-name marker, 
IIRC.)

In e g this:
"ISREDIT F ALL 'DISP=SHR,DSN=MSYS.UCMD.REMOTE&PDQR.(' "
- resolves to: "ISREDIT F ALL 'DISP=SHR,DSN=MSYS.UCMD.REMOTE(' "
wich is no to be found in the dataset.
 
Etc.



Regards,
Thomas Berg
___
Thomas Berg   Specialist   AM/SM&S   SWEDBANK AB (publ)



> -Ursprungligt meddelande-
> Från: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU]
> För John Mattson
> Skickat: den 18 juli 2012 18:48
> Till: IBM-MAIN@LISTSERV.UA.EDU
> Ämne: REXX ISPF edit FIND failing
> 
> I have a little dataset which contains
> //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)
> //SYSINDD  DISP=SHR,DSN=&PDQ.ALC.UNVLIB(&UCMIN)
> X/MYSCRIPT DD  DISP=SHR,DSN=&PDQ.ALC.UNVLIB(&MY)
> 
> I have a little REXX which I want to "FIND" these strings
> /* REXX */
> TRACE I
> Address ISPEXEC
> "ISREDIT MACRO (MEM) NOPROCESS"
> "CONTROL ERRORS RETURN"
> "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)'"
> EXIT
> 
> The First Three FIND's work fine.  Starting from the fourth
> find, they all get RC=4, not found.  Even tho I can clearly see that the
> strings exist in the dataset.  What in the whirled is going on here?? Is
> there something "special" about two &'s in a string?  I have tried
> removing the second & from both the find and my dataset and the find
> still fails.  I am at wits end here.
> I have also tried "extracting" the actual finds like: F ALL
> 'DISP=SHR,DSN=&PDQ.ALC.UNVLIB(&MY)'and executing them in TSO, and they
> all work. What is special here.  FYI, the final " is in col 71
> 
> --
> 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

Re: REXX ISPF edit FIND failing

[Hardee, Chuck]

Uh, I don't think so.
You're thinking CLIST not REXX.
Try adding the statement: &PDQR="A"
Ahead of the first ISREDIT statement that uses it and you will get the error: 
 9 *-* &PDQR="A"   
 9 +++ &PDQR="A"   
IRX0035I Error running XMAC, line 9: Invalid expression
***

If you then change the &PDQR="A" to PDQR="A" and try it again:

 9 *-* PDQR="A"
   >L>   "A"   
10 *-* findstr = "DISP=SHR,DSN=MSYS.UCMD.REMOTE&PDQR.("
   >L>   "DISP=SHR,DSN=MSYS.UCMD.REMOTE&PDQR.("
11 *-* "ISREDIT F ALL C'"findstr"' 
  "
   >L>   "ISREDIT F ALL C'"
   >V>   "DISP=SHR,DSN=MSYS.UCMD.REMOTE&PDQR.("
   >O>   "ISREDIT F ALL C'DISP=SHR,DSN=MSYS.UCMD.REMOTE&PDQR.("
   >L>   "'   "
   >O>   "ISREDIT F ALL C'DISP=SHR,DSN=MSYS.UCMD.REMOTE&PDQR.('
   "   
   +++ RC(4) +++   
12 *-* "isredit f all x'"c2x("(")"' "  
   >L>   "isredit f all x'"
   >L>   "("   
   >F>   "4D"  
   >O>   "isredit f all x'4D"  
   >L>   "' "  
   >O>   "isredit f all x'4D' "
13 *-* TRACE N 
***

You will see in the trace that &PDQR was not substituted.
If this was a CLIST, I would agree with you, but this is REXX and REXX doesn't 
use "&" in it's variable names.


Charles (Chuck) Hardee
Senior Systems Engineer
Database Administration
Information Technology Services
Thermo Fisher Scientific
300 Industry Drive
Pittsburgh, PA 15275
Direct: 724-517-2633
FAX: 412-490-9230
chuck.har...@thermofisher.com


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Thomas Berg
Sent: Wednesday, July 18, 2012 1:27 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: SV: REXX ISPF edit FIND failing

The problem is that ISPF/ISREDIT evaluates/substitutes any ISPF variable, which 
in this case is "&PDQR".
So:
ISREDIT F ALL 'DISP=SHR,DSN=MSYS.UCMD.REMOTE'" 
 is the same as
"ISREDIT F ALL 'DISP=SHR,DSN=MSYS.UCMD.REMOTE&PDQR'  "
 and is the same as 
"ISREDIT F ALL 'DISP=SHR,DSN=MSYS.UCMD.REMOTE&PDQR.' "

In the latter two cases (apparently) "&PDQR" resolves into "" (empty) and 
"&PDQR." also. (The dot "." is used as an end-of-variable-name marker, IIRC.)

In e g this:
"ISREDIT F ALL 'DISP=SHR,DSN=MSYS.UCMD.REMOTE&PDQR.(' "
- resolves to: "ISREDIT F ALL 'DISP=SHR,DSN=MSYS.UCMD.REMOTE(' "
wich is no to be found in the dataset.
 
Etc.



Regards,
Thomas Berg
___
Thomas Berg   Specialist   AM/SM&S   SWEDBANK AB (publ)



> -Ursprungligt meddelande-
> Från: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU]
> För John Mattson
> Skickat: den 18 juli 2012 18:48
> Till: IBM-MAIN@LISTSERV.UA.EDU
> Ämne: REXX ISPF edit FIND failing
> 
> I have a little dataset which contains
> //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)
> //SYSINDD  DISP=SHR,DSN=&PDQ.ALC.UNVLIB(&UCMIN)
> X/MYSCRIPT DD  DISP=SHR,DSN=&PDQ.ALC.UNVLIB(&MY)
> 
> I have a little REXX which I want to "FIND" these strings
> /* REXX */
> TRACE I
> Address ISPEXEC
> "ISREDIT MACRO (MEM) NOPROCESS"
> "CONTROL ERRORS RETURN"
> "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)'"
> EXIT
> 
> The First Three FIND's work fine.  Starting from the fourth
> find, they all get RC=4, not found.  Even tho I can clearly see that the
> strings exist in the dataset.  What in the whirled is goin

Re: REXX ISPF edit FIND failing

[Hardee, Chuck]

I remembered what I did, however, I don't know if you will be able to use it 
John.

I was doing a much simpler command:  "ISREDIT FIND ALL '('" and it kept failing.

What I ended up doing was "ISREDIT FIND ALL X'"C2X("(")"'"
Basically, FIND ALL X'4D'

Chuck

Charles (Chuck) Hardee
Senior Systems Engineer
Database Administration
Information Technology Services
Thermo Fisher Scientific
300 Industry Drive
Pittsburgh, PA 15275
Direct: 724-517-2633
FAX: 412-490-9230
chuck.har...@thermofisher.com


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Hardee, Chuck
Sent: Wednesday, July 18, 2012 1:14 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: REXX ISPF edit FIND failing

I know this doesn't help, but I've hit this problem before but can't remember 
what I did to get around the problem.
The problem is specifically the left paren in the find string.

Is Dave Salt around? With his tool I'm sure he can answer this question. He had 
to have come across it at one time or another.


Charles (Chuck) Hardee
Senior Systems Engineer
Database Administration
Information Technology Services
Thermo Fisher Scientific
300 Industry Drive
Pittsburgh, PA 15275
Direct: 724-517-2633
FAX: 412-490-9230
chuck.har...@thermofisher.com


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Mark Zelden
Sent: Wednesday, July 18, 2012 1:07 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: REXX ISPF edit FIND failing

On Wed, 18 Jul 2012 11:58:48 -0500, Mark Zelden  wrote:

>
>Add "FIRST"  to the end of the find or a "TOP" command in-between the find.

Never mind... I didn't see the "ALL" in the find command.   I usually put that
at the end and missed it.  

--
Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS   
mailto:m...@mzelden.com
Mark's MVS Utilities: http://www.mzelden.com/mvsutil.html 
Systems Programming expert at http://expertanswercenter.techtarget.com/

--
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

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

SV: REXX ISPF edit FIND failing

[Thomas Berg]

The problem is that ISPF/ISREDIT evaluates/substitutes any ISPF variable, which 
in this case is "&PDQR".
So:
ISREDIT F ALL 'DISP=SHR,DSN=MSYS.UCMD.REMOTE'" 
 is the same as
"ISREDIT F ALL 'DISP=SHR,DSN=MSYS.UCMD.REMOTE&PDQR'  "
 and is the same as 
"ISREDIT F ALL 'DISP=SHR,DSN=MSYS.UCMD.REMOTE&PDQR.' "

In the latter two cases (apparently) "&PDQR" resolves into "" (empty) and 
"&PDQR." also. (The dot "." is used as an end-of-variable-name marker, IIRC.)

In e g this:
"ISREDIT F ALL 'DISP=SHR,DSN=MSYS.UCMD.REMOTE&PDQR.(' "
- resolves to: "ISREDIT F ALL 'DISP=SHR,DSN=MSYS.UCMD.REMOTE(' "
wich is no to be found in the dataset.
 
Etc.



Regards,
Thomas Berg
___
Thomas Berg   Specialist   AM/SM&S   SWEDBANK AB (publ)



> -Ursprungligt meddelande-
> Från: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU]
> För John Mattson
> Skickat: den 18 juli 2012 18:48
> Till: IBM-MAIN@LISTSERV.UA.EDU
> Ämne: REXX ISPF edit FIND failing
> 
> I have a little dataset which contains
> //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)
> //SYSINDD  DISP=SHR,DSN=&PDQ.ALC.UNVLIB(&UCMIN)
> X/MYSCRIPT DD  DISP=SHR,DSN=&PDQ.ALC.UNVLIB(&MY)
> 
> I have a little REXX which I want to "FIND" these strings
> /* REXX */
> TRACE I
> Address ISPEXEC
> "ISREDIT MACRO (MEM) NOPROCESS"
> "CONTROL ERRORS RETURN"
> "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)'"
> EXIT
> 
> The First Three FIND's work fine.  Starting from the fourth
> find, they all get RC=4, not found.  Even tho I can clearly see that the
> strings exist in the dataset.  What in the whirled is going on here?? Is
> there something "special" about two &'s in a string?  I have tried
> removing the second & from both the find and my dataset and the find
> still fails.  I am at wits end here.
> I have also tried "extracting" the actual finds like: F ALL
> 'DISP=SHR,DSN=&PDQ.ALC.UNVLIB(&MY)'and executing them in TSO, and they
> all work. What is special here.  FYI, the final " is in col 71
> 
> --
> 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

Re: REXX ISPF edit FIND failing

[Hardee, Chuck]

I know this doesn't help, but I've hit this problem before but can't remember 
what I did to get around the problem.
The problem is specifically the left paren in the find string.

Is Dave Salt around? With his tool I'm sure he can answer this question. He had 
to have come across it at one time or another.


Charles (Chuck) Hardee
Senior Systems Engineer
Database Administration
Information Technology Services
Thermo Fisher Scientific
300 Industry Drive
Pittsburgh, PA 15275
Direct: 724-517-2633
FAX: 412-490-9230
chuck.har...@thermofisher.com


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Mark Zelden
Sent: Wednesday, July 18, 2012 1:07 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: REXX ISPF edit FIND failing

On Wed, 18 Jul 2012 11:58:48 -0500, Mark Zelden  wrote:

>
>Add "FIRST"  to the end of the find or a "TOP" command in-between the find.

Never mind... I didn't see the "ALL" in the find command.   I usually put that
at the end and missed it.  

--
Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS   
mailto:m...@mzelden.com
Mark's MVS Utilities: http://www.mzelden.com/mvsutil.html 
Systems Programming expert at http://expertanswercenter.techtarget.com/

--
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

Re: REXX ISPF edit FIND failing

[Mark Zelden]

On Wed, 18 Jul 2012 11:58:48 -0500, Mark Zelden  wrote:

>
>Add "FIRST"  to the end of the find or a "TOP" command in-between the find.

Never mind... I didn't see the "ALL" in the find command.   I usually put that
at the end and missed it.  

--
Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS   
mailto:m...@mzelden.com
Mark's MVS Utilities: http://www.mzelden.com/mvsutil.html 
Systems Programming expert at http://expertanswercenter.techtarget.com/

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: REXX ISPF edit FIND failing

[Mark Zelden]

On Wed, 18 Jul 2012 09:47:35 -0700, John Mattson  
wrote:

>I have a little dataset which contains
>//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)
>//SYSINDD  DISP=SHR,DSN=&PDQ.ALC.UNVLIB(&UCMIN)
>X/MYSCRIPT DD  DISP=SHR,DSN=&PDQ.ALC.UNVLIB(&MY)
>
>I have a little REXX which I want to "FIND" these strings
>/* REXX */
>TRACE I
>Address ISPEXEC
>"ISREDIT MACRO (MEM) NOPROCESS"
>"CONTROL ERRORS RETURN"
>"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)'"
>EXIT
>
>The First Three FIND's work fine.  Starting from the fourth find,
>they all get RC=4, not found.  Even tho I can clearly see that the strings
>exist in the dataset.  What in the whirled is going on here?? Is there
>something "special" about two &'s in a string?  I have tried removing the
>second & from both the find and my dataset and the find still fails.  I am
>at wits end here.
>I have also tried "extracting" the actual finds like: F ALL
>'DISP=SHR,DSN=&PDQ.ALC.UNVLIB(&MY)'and executing them in TSO, and they all
>work. What is special here.  FYI, the final " is in col 71
>


Add "FIRST"  to the end of the find or a "TOP" command in-between the find.

If you used MACROSPY, you would see the cursor position in the spot
where the 4th one will fail.  

--
Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS   
mailto:m...@mzelden.com
Mark's MVS Utilities: http://www.mzelden.com/mvsutil.html 
Systems Programming expert at http://expertanswercenter.techtarget.com/

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

REXX ISPF edit FIND failing

[John Mattson]

I have a little dataset which contains 
//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) 
//SYSINDD  DISP=SHR,DSN=&PDQ.ALC.UNVLIB(&UCMIN) 
X/MYSCRIPT DD  DISP=SHR,DSN=&PDQ.ALC.UNVLIB(&MY) 

I have a little REXX which I want to "FIND" these strings 
/* REXX */ 
TRACE I 
Address ISPEXEC 
"ISREDIT MACRO (MEM) NOPROCESS" 
"CONTROL ERRORS RETURN" 
"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)'"
EXIT 

The First Three FIND's work fine.  Starting from the fourth find, 
they all get RC=4, not found.  Even tho I can clearly see that the strings 
exist in the dataset.  What in the whirled is going on here?? Is there 
something "special" about two &'s in a string?  I have tried removing the 
second & from both the find and my dataset and the find still fails.  I am 
at wits end here. 
I have also tried "extracting" the actual finds like: F ALL 
'DISP=SHR,DSN=&PDQ.ALC.UNVLIB(&MY)'and executing them in TSO, and they all 
work. What is special here.  FYI, the final " is in col 71 

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Yahoo Password Breach: 7 Lessons Learned - Security - Attacks/breaches - Informationweek

[Elardus Engelbrecht]

Graham Hobbs wrote:

>When someone uses the underscores between some words .. what does that mean?

EMPHASIS. It is one way to put reader's attention to that word(s) without using 
advanced formatting gizmos.

As others have noted, it is a way of [manual] formatting only usable by your 
tired eyes, not by whatever reader/formatter you're using.

Without formatting, how do you write something like these?:

1/3 (0.33) or use a shorter mathematical denotion for that.

4 times 4 = 4^2, you write a small 2 to the right of 4, (superscript and 
subscript)

Square root of say 10.

Steve also kindly showed how you write Boldfaced, Underscored and Italicized 
word(s).

And how do you write strikethrough and such formatting without using advanced 
word processing software?

My pet peeve: I hate it that the word ftp is automatically marked [1] as a 
hypertext link, where I just want mention that word as a verb, but that is just 
me... ;-D

Groete / Greetings
Elardus Engelbrecht

[1] - yes, I can reverse or disable that, but... 

Above text (and this sentence! ) was written in Plain Text as used on 
IBM-MAIN's web page - Send Message page.

One of these days, I want to play around with HTML part. But then not everyone 
can probably read what I wanted to write.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

BDAM READ with BLKREF of X'0'

[Thomas David Rivers]

I'm debugging a program (no source), and trying to
figure out what BDAM does when the READ macro
is invoked without a BLKREF relative-block-address
specified.

This is an RBA-type BDAM, and I'm seeing a READ
where the BLKREF in the DECB is simply X'0'.

I thought the BLKREF field would point to a location
that contained the relative-block-address value.

So - what does BDAM do with such a thing - does it
read the "next" block (where next would be the one
after the current one.)  Or???

It doesn't seem to fail/ABEND in anyway... seems to
merrily read _something_ - just not sure what.

I've looked thru various IBM books, but can't seem to
find a definition of what happens when the READ
doesn't specify a BLKREF parm.  The BDAM READ
documentation doesn't seem to say its optional,
but I can slap together an example and leave it off...

I suppose my question boils down to:

  What does BDAM READ do if the BLKREF macro
  parameter is omitted?

- Thanks -
  - Dave Rivers -

--
riv...@dignus.comWork: (919) 676-0847
Get your mainframe programming tools at http://www.dignus.com

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Unsetting a JCL symbol.

[Bass, Walter W]

Paul,

Note in your example that lines 3 and 4 are NOT followed by message
IEFC653I as they would be if any symbol substitution took place. The
reason your example does not work is because when lines 3 and 4 are
evaluated, &MYSYM has not yet been assigned any value, therefore the JCL
processor does not yet consider it to be a symbol.

On lines 3 and 4 it is treated as a literal and &SAVESYM is set to the
literal value "&MYSYM" rather than the value of the symbol &MYSYM.

If &MYSYM is assigned a value prior to line 3, it works as expected.

2 // SET MYSYM='INITVAL'  
3 //BEFORE   EXEC  PGM=IEFBR14,PARM='&MYSYM.X'
  //* 
  //* SAVE CURRENT VALUE OF MYSYM 
  IEFC653I SUBSTITUTION JCL - PGM=IEFBR14,PARM='INITVALX' 
4 // SET SAVESYM=&MYSYM   
  //* SET MYSYM TO A NEW VALUE
  IEFC653I SUBSTITUTION JCL - SAVESYM=INITVAL 
5 // SET MYSYM='NEWVAL'   
6 //DURING   EXEC  PGM=IEFBR14,PARM='&MYSYM.X'
  //* 
  //* RESTORE MYSYM   
  IEFC653I SUBSTITUTION JCL - PGM=IEFBR14,PARM='NEWVALX'  
7 // SET MYSYM=&SAVESYM   
  IEFC653I SUBSTITUTION JCL - MYSYM=INITVAL   
8 //AFTEREXEC  PGM=IEFBR14,PARM='&MYSYM.X'
  IEFC653I SUBSTITUTION JCL - PGM=IEFBR14,PARM='INITVALX' 

Thanks,
Bill

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Paul Gilmartin
Sent: Tuesday, July 17, 2012 6:06 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Unsetting a JCL symbol.

On Tue, 17 Jul 2012 16:43:32 -0500, Bass, Walter W wrote:

>Try this ...
>
>//* SAVE CURRENT VALUE OF MYSYM
>// SET SAVESYM=&MYSYM
>//* SET MYSYM TO A NEW VALUE
>// SET MYSYM='NEWVAL'
>
>...
>//* RESTORE MYSYM
>// SET MYSYM=&SAVESYM
>
>Probably not the answer you wanted, but it works.  
>
Actually, it doesn't work:

3 //BEFORE   EXEC  PGM=IEFBR14,PARM='&MYSYM.X'
  //* 
  //* SAVE CURRENT VALUE OF MYSYM 
4 // SET SAVESYM=&MYSYM   
  //* SET MYSYM TO A NEW VALUE
5 // SET MYSYM='NEWVAL'   
6 //DURING   EXEC  PGM=IEFBR14,PARM='&MYSYM.X'
  //* 
  //* RESTORE MYSYM   
  IEFC653I SUBSTITUTION JCL - PGM=IEFBR14,PARM='NEWVALX'  
7 // SET MYSYM=&SAVESYM   
  IEFC653I SUBSTITUTION JCL - MYSYM=&MYSYM
8 //AFTEREXEC  PGM=IEFBR14,PARM='&MYSYM.X'
  IEFC653I SUBSTITUTION JCL - PGM=IEFBR14,PARM='&MYSYMX'  
9 //  

... notice the difference between lines 3 and 8.

>Another possibility is to take advantage of the fact that symbols that 
>are SET within a PROC automatically revert to their former value after 
>the PROC terminates.
>
That one I believe.  Steve suggested it too.  But in open code, there
seems to be no solution.  Symbols are initially in a Garden of Eden
state (which John G. dislikes).  Once they leave they can never return.

-- gil

--
For IBM-MAIN subscribe / signoff / archive access instructions, send
email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

This e-mail, including attachments, may include confidential and/or
proprietary information, and may be used only by the person or entity
to which it is addressed. If the reader of this e-mail is not the intended
recipient or his or her authorized agent, the reader is hereby notified
that any dissemination, distribution or copying of this e-mail is
prohibited. If you have received this e-mail in error, please notify the
sender by replying to this message and delete this e-mail immediately.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: CTC FICON DIRECTOR

[R.S.]

W dniu 2012-07-17 17:03, Arye Shemer pisze:
> Hello Forumers,
> 
> I try to clarify for myself the following issue:
> 
> Do I need FICON Director in order to connect two LPARs on the same CEC
> using FICON CTC ?

It depends.
1. You can use two FICON ports - as in ESCON CTC (note both ports are
defined as FC, there is no CNC-CTC pair).
2. You can use *ONE* FICON port, connected to a switch

> Please refer to documentation on the subject if possible.
Search for FICON and CTC in redbooks, browse hardware documentation on
Resourcelink.


-- 
Radoslaw Skorupka
Lodz, Poland








--
Tre tej wiadomoci moe zawiera informacje prawnie chronione Banku 
przeznaczone wycznie do uytku subowego adresata. Odbiorc moe by jedynie 
jej adresat z wyczeniem dostpu osób trzecich. Jeeli nie jeste adresatem 
niniejszej wiadomoci lub pracownikiem upowanionym do jej przekazania 
adresatowi, informujemy, e jej rozpowszechnianie, kopiowanie, rozprowadzanie 
lub inne dziaanie o podobnym charakterze jest prawnie zabronione i moe by 
karalne. Jeeli otrzymae t wiadomo omykowo, prosimy niezwocznie 
zawiadomi nadawc wysyajc odpowied oraz trwale usun t wiadomo 
wczajc w to wszelkie jej kopie wydrukowane lub zapisane na dysku.

This e-mail may contain legally privileged information of the Bank and is 
intended solely for business use of the addressee. This e-mail may only be 
received by the addressee and may not be disclosed to any third parties. If you 
are not the intended addressee of this e-mail or the employee authorised to 
forward it to the addressee, be advised that any dissemination, copying, 
distribution or any other similar activity is legally prohibited and may be 
punishable. If you received this e-mail by mistake please advise the sender 
immediately by using the reply facility in your e-mail software and delete 
permanently this e-mail including any copies of it either printed or saved to 
hard drive. 

BRE Bank SA, 00-950 Warszawa, ul. Senatorska 18, tel. +48 (22) 829 00 00, fax 
+48 (22) 829 00 33, www.brebank.pl, e-mail: i...@brebank.pl
Sd Rejonowy dla m. st. Warszawy XII Wydzia Gospodarczy Krajowego Rejestru 
Sdowego, nr rejestru przedsibiorców KRS 025237, NIP: 526-021-50-88. 
Wedug stanu na dzie 01.01.2012 r. kapita zakadowy BRE Banku SA (w caoci 
wpacony) wynosi 168.410.984 zotych.


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Help with elementary CPU speed question

[John Gilmore]

Another problem with Peter Farley's formulation of this issue is his
use of the phrase "normally skilled professional application
programmer".  The question just what skills such a person should have
is controversial.  The question what skills they do in fact usually
have is less so.

A great figure in computing once observed that in his experience COBOL
applications programmers could be divided into two disjoint subsets.
There were those, he said, who did not know what binary search was;
and then there were those who did and were proud of it.

This of course is caricature.  I know applications programmers who are
good technicians.  But like all good caricature it exaggerates without
really misrepresenting.

John Gilmore, Ashland, MA 01721 - USA

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: How does multi-volume second extents work

[Vernooij, CP - SPLXM]

Or less than 16, if there is no more space on the volume for an extent.

Kees.

"O'Brien, David W.  [C] , NIH/CIT"  wrote in
message
news:..
.
> The situation you describe would be true for SMS using Guaranteed
space.
> 
> For non-SMS volumes you should be getting 16 extents on volume one
followed by 16 extents on volume2 for a PS file.
> 
> Regards,
> Dave O'Brien
> 
> -Original Message-
> From: Bill Ashton [mailto:bill00ash...@gmail.com] 
> Sent: Wednesday, July 18, 2012 8:52 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: How does multi-volume second extents work
> 
> These are not SMS-managed volumes..just plain old ordinary 3390s...
> Billy
> 
> On Wed, Jul 18, 2012 at 8:46 AM, Darth Keller
wrote:
> 
> >  I thought I knew this off the top of my head, but someone gave me a

> > problem
> > > that doesn't fit what I thought.
> > >
> > > Let's say I have a PS file allocated as CYL(2500,500), and it is
> > allocated
> > > to VOLSR1 and VOLSR2. Can someone point me to the doc that
explains
> > this,
> > > or can someone explain to me what happens when I need to take 
> > > secondary extents?
> > >
> > > For instance, I thought this would be the case:
> > > 1. Allocate first extent (2500) on VOLSR1 2. 2nd extent (2500) on 
> > > VOLSR2 3. 3rd (500) on VOLSR1
> > > 4 - ## (500) on VOLSR1 until 16 extents or the VOLSR1 has < 500C
> > available
> > > in 5 pieces, then continue on with VOLSR2.
> > > ## (500) on VOLSR2 until 16 extents or B37 abend if < 500C
available.
> > >
> > > I haven't done a lot with multi-volume files, so I might have this
> > wrong,
> > > and would welcome your straightening me out. Thanks!
> > >
> >
> >
> > So far no one's mention the Guaranteed Space parameter.  It seems to

> > me that part of what's discussed above apply when using GS (#1, 2, &
3).
> >
> > Time to dig out the manual if GS is a consideration.
> > dd keller
> >
> >
> >
> > This e-mail message and all attachments transmitted with it may 
> > contain legally privileged and/or confidential information intended 
> > solely for the use of the addressee(s). If the reader of this
message 
> > is not the intended recipient, you are hereby notified that any 
> > reading, dissemination, distribution, copying, forwarding or other
use 
> > of this message or its attachments is strictly prohibited. If you
have 
> > received this message in error, please notify the sender immediately

> > and delete this message and all copies and backups thereof. Thank
you.
> >
> >
--
> > For IBM-MAIN subscribe / signoff / archive access instructions, send

> > email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
> >
> 
> 
> 
> --
> Thank you and best regards,
> *Billy Ashton*
> 
> --
> 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
> 

For information, services and offers, please visit our web site: 
http://www.klm.com. This e-mail and any attachment may contain confidential and 
privileged material intended for the addressee only. If you are not the 
addressee, you are notified that no part of the e-mail or any attachment may be 
disclosed, copied or distributed, and that any other action related to this 
e-mail or attachment is strictly prohibited, and may be unlawful. If you have 
received this e-mail by error, please notify the sender immediately by return 
e-mail, and delete this message. 

Koninklijke Luchtvaart Maatschappij NV (KLM), its subsidiaries and/or its 
employees shall not be liable for the incorrect or incomplete transmission of 
this e-mail or any attachments, nor responsible for any delay in receipt. 
Koninklijke Luchtvaart Maatschappij N.V. (also known as KLM Royal Dutch 
Airlines) is registered in Amstelveen, The Netherlands, with registered number 
33014286



--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: How does multi-volume second extents work

[O'Brien, David W. (NIH/CIT) [C]]

The situation you describe would be true for SMS using Guaranteed space.

For non-SMS volumes you should be getting 16 extents on volume one followed by 
16 extents on volume2 for a PS file.

Regards,
Dave O'Brien

-Original Message-
From: Bill Ashton [mailto:bill00ash...@gmail.com] 
Sent: Wednesday, July 18, 2012 8:52 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: How does multi-volume second extents work

These are not SMS-managed volumes..just plain old ordinary 3390s...
Billy

On Wed, Jul 18, 2012 at 8:46 AM, Darth Keller wrote:

>  I thought I knew this off the top of my head, but someone gave me a 
> problem
> > that doesn't fit what I thought.
> >
> > Let's say I have a PS file allocated as CYL(2500,500), and it is
> allocated
> > to VOLSR1 and VOLSR2. Can someone point me to the doc that explains
> this,
> > or can someone explain to me what happens when I need to take 
> > secondary extents?
> >
> > For instance, I thought this would be the case:
> > 1. Allocate first extent (2500) on VOLSR1 2. 2nd extent (2500) on 
> > VOLSR2 3. 3rd (500) on VOLSR1
> > 4 - ## (500) on VOLSR1 until 16 extents or the VOLSR1 has < 500C
> available
> > in 5 pieces, then continue on with VOLSR2.
> > ## (500) on VOLSR2 until 16 extents or B37 abend if < 500C available.
> >
> > I haven't done a lot with multi-volume files, so I might have this
> wrong,
> > and would welcome your straightening me out. Thanks!
> >
>
>
> So far no one's mention the Guaranteed Space parameter.  It seems to 
> me that part of what's discussed above apply when using GS (#1, 2, & 3).
>
> Time to dig out the manual if GS is a consideration.
> dd keller
>
>
>
> This e-mail message and all attachments transmitted with it may 
> contain legally privileged and/or confidential information intended 
> solely for the use of the addressee(s). If the reader of this message 
> is not the intended recipient, you are hereby notified that any 
> reading, dissemination, distribution, copying, forwarding or other use 
> of this message or its attachments is strictly prohibited. If you have 
> received this message in error, please notify the sender immediately 
> and delete this message and all copies and backups thereof. Thank you.
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions, send 
> email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>



--
Thank you and best regards,
*Billy Ashton*

--
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

Re: How does multi-volume second extents work

[Bill Ashton]

These are not SMS-managed volumes..just plain old ordinary 3390s...
Billy

On Wed, Jul 18, 2012 at 8:46 AM, Darth Keller wrote:

>  I thought I knew this off the top of my head, but someone gave me a
> problem
> > that doesn't fit what I thought.
> >
> > Let's say I have a PS file allocated as CYL(2500,500), and it is
> allocated
> > to VOLSR1 and VOLSR2. Can someone point me to the doc that explains
> this,
> > or can someone explain to me what happens when I need to take secondary
> > extents?
> >
> > For instance, I thought this would be the case:
> > 1. Allocate first extent (2500) on VOLSR1
> > 2. 2nd extent (2500) on VOLSR2
> > 3. 3rd (500) on VOLSR1
> > 4 - ## (500) on VOLSR1 until 16 extents or the VOLSR1 has < 500C
> available
> > in 5 pieces, then continue on with VOLSR2.
> > ## (500) on VOLSR2 until 16 extents or B37 abend if < 500C available.
> >
> > I haven't done a lot with multi-volume files, so I might have this
> wrong,
> > and would welcome your straightening me out. Thanks!
> >
>
>
> So far no one's mention the Guaranteed Space parameter.  It seems to me
> that part of what's discussed above apply when using GS (#1, 2, & 3).
>
> Time to dig out the manual if GS is a consideration.
> dd keller
>
>
>
> This e-mail message and all attachments transmitted with it may
> contain legally privileged and/or confidential information intended
> solely for the use of the addressee(s). If the reader of this
> message is not the intended recipient, you are hereby notified that
> any reading, dissemination, distribution, copying, forwarding or
> other use of this message or its attachments is strictly
> prohibited. If you have received this message in error, please
> notify the sender immediately and delete this message and all
> copies and backups thereof. Thank you.
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>



-- 
Thank you and best regards,
*Billy Ashton*

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: How does multi-volume second extents work

[Darth Keller]

 I thought I knew this off the top of my head, but someone gave me a 
problem
> that doesn't fit what I thought.
>
> Let's say I have a PS file allocated as CYL(2500,500), and it is 
allocated
> to VOLSR1 and VOLSR2. Can someone point me to the doc that explains 
this,
> or can someone explain to me what happens when I need to take secondary
> extents?
>
> For instance, I thought this would be the case:
> 1. Allocate first extent (2500) on VOLSR1
> 2. 2nd extent (2500) on VOLSR2
> 3. 3rd (500) on VOLSR1
> 4 - ## (500) on VOLSR1 until 16 extents or the VOLSR1 has < 500C 
available
> in 5 pieces, then continue on with VOLSR2.
> ## (500) on VOLSR2 until 16 extents or B37 abend if < 500C available.
>
> I haven't done a lot with multi-volume files, so I might have this 
wrong,
> and would welcome your straightening me out. Thanks!
>


So far no one's mention the Guaranteed Space parameter.  It seems to me 
that part of what's discussed above apply when using GS (#1, 2, & 3).

Time to dig out the manual if GS is a consideration.
dd keller



This e-mail message and all attachments transmitted with it may
contain legally privileged and/or confidential information intended
solely for the use of the addressee(s). If the reader of this
message is not the intended recipient, you are hereby notified that
any reading, dissemination, distribution, copying, forwarding or
other use of this message or its attachments is strictly
prohibited. If you have received this message in error, please
notify the sender immediately and delete this message and all
copies and backups thereof. Thank you.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Help with elementary CPU speed question

[Shmuel Metz (Seymour J.)]

In
<985915eee6984740ae93f8495c624c6c21e5c49...@jscpcwexmaa1.bsg.ad.adp.com>,
on 07/17/2012
   at 12:04 PM, "Farley, Peter x23353" 
said:

>t SHOULD NOT be necessary to have "considerable statistical prowess"
>or have access to DCOLLECT output (which most normal application
>programmers DO NOT HAVE) or to have access to a statistical package
>like MXG or any other such beast in order to answer simple questions
>like "does machine X have enough CPU horsepower to run YYY instances
>of program ZZZ at the same time?" or "how much CPU and elapsed time
>will the new changes in program ZZZ consume when moved into
>production?".  These are questions that a normally skilled
>professional application programmer ought to be able to provide a
>reasonable answer to -- but we cannot, because "it depends...".

Yes, and the second law of thermodynamics is unfair. The universe is
what it is.

>I'm not advocating a return to the single-non-pipelined CPU days 
>of yore, just for SOMEONE (not me since I am obviously not 
>qualified) to come up with a REPEATABLE way to measure a 
>program's real performance with only one or two 
>production-level test runs.

You may not be advocating it, but that's what it would take.

-- 
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 Atid/2
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

Re: Email formatting (was: Yahoo Password Breach ...)

[Shmuel Metz (Seymour J.)]

In <4330217043601718.wa.paulgboulderaim@listserv.ua.edu>, on
07/17/2012
   at 11:33 AM, Paul Gilmartin  said:

>There's too much DWIM in that convention

No, there's too much DWYTIM[1] and not enough DWIM. I'd settle for
DWITYTDADTTSGM[2].

>I hate it when such busybody mailers corrupt my UNIX path names

I refer to such software as "Mollie Malones":

 She died of a faever,
 from which none could save her,
 and that was the end of sweet Mollie Malone

[1] Do what you thought I mean.

[2] Do what I told you to do and don't try to second guess me.

-- 
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 Atid/2
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

Re: DFSORT option NOBLKSET?

[David Betten]

I do not believe VLSHRT requires NOBLKSET.  I would try removing NOBLKSET
from the sort and try again.

Have a nice day,
Dave Betten
DFSMS Performance Engineer
IBM Corporation
email:  bet...@us.ibm.com
DFSORT/MVSontheweb at http://www.ibm.com/storage/dfsort/

IBM Mainframe Discussion List  wrote on
07/18/2012 07:48:25 AM:

> From: "O'Brien, David W. (NIH/CIT) [C]" 
> To: IBM-MAIN@listserv.ua.edu,
> Date: 07/18/2012 07:48 AM
> Subject: DFSORT option NOBLKSET?
> Sent by: IBM Mainframe Discussion List 
>
> We are in the process of migrating dasd and I thought I would
> convert from Mod-9s to Mod-27s as part of the process. We just had a
> sort blow up due to the application coding option NOBLKSET.
>
> CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R10 -
> SORT FIELDS=(39,40,CH,A)
> OPTION VLSHRT,DYNALLOC=(SYSDA,12),NOBLKSET
>
> ICE285A J BLOCKSET IS REQUIRED FOR WORK DATA SETS ON VOLUMES WITH
> MORE THAN 17476 CYLINDERS
>
> Fortunately the global option is BLKSET, so the general user
> community seems to be unaffected.
>
> User also specified VLSHRT which seems to require NOBLKSET.
>
> The application is CIMS. Are there any users of CIMS out there who
> could shed some light on why VLSHRT is required?
> Thank You,
> Dave O'Brien
>
> --
> 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

DFSORT option NOBLKSET?

[O'Brien, David W. (NIH/CIT) [C]]

We are in the process of migrating dasd and I thought I would convert from 
Mod-9s to Mod-27s as part of the process. We just had a sort blow up due to the 
application coding option NOBLKSET.

CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R10 -
SORT FIELDS=(39,40,CH,A)
OPTION VLSHRT,DYNALLOC=(SYSDA,12),NOBLKSET

ICE285A J BLOCKSET IS REQUIRED FOR WORK DATA SETS ON VOLUMES WITH MORE THAN 
17476 CYLINDERS

Fortunately the global option is BLKSET, so the general user community seems to 
be unaffected.

User also specified VLSHRT which seems to require NOBLKSET.

The application is CIMS. Are there any users of CIMS out there who could shed 
some light on why VLSHRT is required?
Thank You,
Dave O'Brien

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Yahoo Password Breach: 7 Lessons Learned - Security - Attacks/breaches - Informationweek

[John Gilmore]

The arguments that Timothy Sipples makes against Paul Gilmartin's


Of course, "turn on" implies commiting the CPU (micro)cycles to peform
the encryption


are, in their way, persuasive; but there is another, non-economic
argument that is even more persuasive to some IT managements: you are
exposing not just your company but your own jobs to grave danger.
Heads roll after each of these security-breach fiascos, and one of
them may be yours.

John Gilmore, Ashland, MA 01721 - USA



On 7/18/12, Timothy Sipples  wrote:
> Paul Gilmartin writes:
>>Of course, "turn on" implies commiting the CPU (micro)cycles to peform
>>the encryption.
>
> Yes it does. Google and Microsoft (to pick two examples) made the resource
> commitment years ago, when computing power cost a lot more, and their
> customers are far more secure.
>
> Training airline pilots costs money, too. Putting seat belts in automobiles
> costs money. Testing a new pharmaceutical costs money.
>
>>And, again, is that "LDAP" an LDAP client or an LDAP server.  If IT
>>management has decreed that IDs should be managed via LDAP
>>hosted on, e.g., a Linux server, z/OS needs not an LDAP server but
>>an LDAP client in order to play well with others.  With such a decision
>>a fait accompli, that management will be little moved by arguments
>>of the technical superiority of Tivoli.
>
> It's called Tivoli Directory Server for z/OS. Granted, software names
> aren't always perfect, but server means server. But yes, it also includes
> an LDAP client. I'll quote from IBM redbook SG24-7849:
>
> "The IBM Tivoli Directory Server for z/OS deliverable that ships with the
> base of z/OS provides a Version 3 LDAP client and server. The z/OS LDAP
> client contains C APIs and command line utilities used to add, delete,
> modify, rename, compare, and search entries in an LDAP directory."
>
> C APIs are, of course, callable from practically anything -- COBOL, Java,
> PL/I, Assembler, etc. (There are additional middleware options if you don't
> even want to do that.) So yes, your z/OS-based applications can access
> some/any other LDAP V3 server(s) for their authentication and/or
> authorization needs if that's the way your IT department wants to roll, via
> exits and/or directly. And that's base z/OS -- every z/OS licensee has that
> capability today, even if you don't have the z/OS Security Server (RACF).
>
> Here's the link to the redbook for more information:
>
> http://www.redbooks.ibm.com/redbooks/pdfs/sg247849.pdf
>
> You can also use Java as your LDAP client environment on z/OS if you
> prefer. Java (the IBM SDK) is also a no additional charge feature of base
> z/OS, and you can use JNDI methods to access LDAP servers (including the
> Tivoli Directory Server for z/OS).
>
> 
> Timothy Sipples
> Resident Enterprise Architect (Based in Singapore)
> E-Mail: timothy.sipp...@us.ibm.com
> --
> 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