Re: SNA CISCO ESCON router Chanel attach replacement

[R.S.]

W dniu 2014-03-07 08:05, Jose Munoz pisze:

Hi,

I have a CISCO SNA ESCON channel routers on a z890 and I'm migrating to zBC12 
(no ESCON) channels and I don't want to keep those CISCO routers. The SNA 
traffic on those routers are LU0/1/2/3 and APPC LU6.2.

Which alternative solutions we have on FICON  and/or OSA.
OSA in OSE mode. It has to be copper OSA (1000BASE-T, UTP ports). It can 
be Express3 (assuming BC12 accept I/O Drawer), Express4S or Express5S.

There are other options, but IMHO not worth your interest.

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

mBank S.A. z siedzib w Warszawie, ul. Senatorska 18, 00-950 Warszawa, www.mBank.pl, e-mail: kont...@mbank.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.2014 r. kapita zakadowy mBanku S.A. (w caoci wpacony) wynosi 168.696.052 zote.



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

SNA CISCO ESCON router Chanel attach replacement

[Jose Munoz]

Hi,

I have a CISCO SNA ESCON channel routers on a z890 and I'm migrating to zBC12 
(no ESCON) channels and I don't want to keep those CISCO routers. The SNA 
traffic on those routers are LU0/1/2/3 and APPC LU6.2.

Which alternative solutions we have on FICON  and/or OSA.


Regards
Jose Munoz
Senior zEnterprise Architect
E: jmunoz6...@gmail.com
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: where to get current module name and scanning tiot

[Micheal Butz]

ASCBXTCB->TCBJSTCB->TCBRBP->RBCDE->CDENAME 

Sent from my iPhone

> On Mar 6, 2014, at 11:18 PM, Donald Russell  wrote:
> 
> I'm writing some assembler code and need to get the name of the currently
> running load module, but where is that? I thought it may have been in the
> tcb, but I don't see anything in ikjtcb that looks like a module name. :-(
> Maybe some other block pointed to from the tcb?
> 
> I have no idea which control block has that, so I need some clues how to
> find my way to it
> 
> and... I also need to look in the tiot to check which dd names are in the
> job step
> 
> Am I reading the tiot macro correctly? There's a 1 byte length of each
> entry, and the tiot is as large as needed for all DD names in the job step?
> (I thought it was a fixed size, and then had some sort of extension block
> as needed, but I may be getting mixed up with JFCB or something)
> 
> So, would this be correct?
> 
> 
> lrl   r2,@tiot
> using tiot1,r2
> tiotLoop ds 0h
> cli   tioelngh,0  any more tiot entries?
> jeendTiotScango if none
>  ...
> sr   r1,r1
> ic   r1,tioelngh
> ar   r2,r1  point to next item
> j tiotLoop
> endTiotScan ds 0h
> 
> 
> Thanks very much. it's been a good number of years since I did mvs
> programming at this level.
> 
> Donald Russell
> 
> --
> 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

where to get current module name and scanning tiot

[Donald Russell]

I'm writing some assembler code and need to get the name of the currently
running load module, but where is that? I thought it may have been in the
tcb, but I don't see anything in ikjtcb that looks like a module name. :-(
Maybe some other block pointed to from the tcb?

I have no idea which control block has that, so I need some clues how to
find my way to it

and... I also need to look in the tiot to check which dd names are in the
job step

Am I reading the tiot macro correctly? There's a 1 byte length of each
entry, and the tiot is as large as needed for all DD names in the job step?
(I thought it was a fixed size, and then had some sort of extension block
as needed, but I may be getting mixed up with JFCB or something)

So, would this be correct?


 lrl   r2,@tiot
 using tiot1,r2
tiotLoop ds 0h
 cli   tioelngh,0  any more tiot entries?
 jeendTiotScango if none
  ...
 sr   r1,r1
 ic   r1,tioelngh
 ar   r2,r1  point to next item
 j tiotLoop
endTiotScan ds 0h


Thanks very much. it's been a good number of years since I did mvs
programming at this level.

Donald Russell

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

Re: [OT ] Mainframe memories

[William Donzelli]

> To commemorate the 50th anniversary of S/360 I wrote a blog that many of you 
> may have seen already but just in case you missed it:
>
> http://butmostlyaboutcats.blogspot.com/2014/03/mainframe-memories.html

Very nice, thank you.

One thing I noted was the bit about the colors - how each upgraded
system had to be a different color. You were probably one of the very
few shops that picked green and brown from IBM. These actually were
standard paint options for many systems during the late 1970s, but as
far as I can see, were almost completely unpopular.

--
Will

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

Re: RC 24 from ISRSUPC (Was 0C4 from TSOEXEC IEBCOMPR)

[Paul Gilmartin]

On Thu, 6 Mar 2014 21:42:39 -0500, Shmuel Metz (Seymour J.) wrote:

> on 03/06/2014  at 04:20 PM, Paul Gilmartin said:
>
>>So, in Rexx:
>>address TSO "call *(ISRSUPC) 'FILE'"
>
>That will work, but it's overkill. Why not use
>
>   address LINK ISRSUPC 'FILE'
>
>instead?
> 
Indeed.  I was trying not to stray too far from the OP's paradigm.
But what you suggest avoids the TSO prerequisite.

There are:
address LINK
address LINKPGM
address LINKMVS

The last is compatible with JCL "EXEC PGM=...".
The last two are compatible with Assembler CALL macro.

I'd use LINKMVS.

-- gil

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

[OT ] Mainframe memories

[Neale Ferguson]

Cross-posted to IBM-VM, IBM-MAIN and LINUX-390

To commemorate the 50th anniversary of S/360 I wrote a blog that many of you 
may have seen already but just in case you missed it:

http://butmostlyaboutcats.blogspot.com/2014/03/mainframe-memories.html

Neale

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

Re: Validation of a resource name

[David Crayford]

I recall about 10 years ago a colleague told me a story about being sent 
out to firefight a problem for a customer who had recently web enabled a 
CICS application. The customer was worried because there was a dramatic 
reduction in the number of transactions being processed per day, 85% 
less. It turned out the users of the old green screen app used to fill 
out a field and press "enter" repeatedly to navigate around the screen, 
prompted by validation messages. The web app that replaced the green 
screen did all of it's simple validation in JavaScript on the client, so 
didn't need to run a server side transaction. When you consider the $$$ 
paid for mainframe MIPS that 85% reduction seems mighty attractive.



On 6/03/2014 10:04 PM, Charles Mills wrote:

Very much a development judgment call.

On the one hand a client can often do a much more user-friendly job of
validation and error message generation. Also better performance if the
server or the communication link is slow.

On the other hand (1) all "security" has to be on the server or someone may
write their own client and get around it; and (2) you run the risk of
rejecting something in the client that is actually valid on the server --
for example if the server is enhanced in some way down the road before you
can enhance the client.

Charles

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of David Crayford
Sent: Wednesday, March 05, 2014 10:21 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Validation of a resource name

On 6/03/2014 2:11 PM, Arthur T. wrote:

On 5 Mar 2014 10:05:58 -0800, in bit.listserv.ibm-main
(Message-ID:) jan.je...@gmail.com (jan de decker) wrote:


I am building a small web application that interfaces with RACF.

On the client side I only have the IBM default supplied classes.

I want validate as much as possible on the client before sending it
to the server.

  Never do validation on the client side.  Someone might decide to
write their own client, or something else silly, just to get by
restrictions.  It's especially important not to trust client-side
*security* validation.


That depends on what you're validating. If it's just syntax for a class
name then validating on the client is surely better than pinging it off
to a server.

--
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: Validation of a resource name

[Shmuel Metz (Seymour J.)]

In
,
on 03/06/2014
   at 05:36 PM, Tony Harminc  said:

>Clearly there's a need to avoid SQL injection and such, but still the
>range of valid characters surprises, e.g. these are valid, but will
>be rejected by virtually all web sites:

>Tom&de...@example.com
>Bob&Carol+Ted&al...@example.com
>Paddy.O'furnit...@example.com .

Well, the second is clearly immoral! I wonder which other valid
characters they reject?

   atext   =   ALPHA / DIGIT /; Printable US-ASCII
   "!" / "#" /;  characters not including
   "$" / "%" /;  specials.  Used for
atoms.
   "&" / "'" /
   "*" / "+" /
   "-" / "/" /
   "=" / "?" /
   "^" / "_" /
   "`" / "{" /
   "|" / "}" /
   "~"

>3) Respond with "you are wrong - get your email address fixed" (I
>love this one!)

Tell them to RTFRFC (5322 Internet Message Format, 3.2.3.  Atom), if
the know how.
 
-- 
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 ISO position; see  
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: RC 24 from ISRSUPC (Was 0C4 from TSOEXEC IEBCOMPR)

[Shmuel Metz (Seymour J.)]

In <9380636879776208.wa.paulgboulderaim@listserv.ua.edu>, on
03/06/2014
   at 04:20 PM, Paul Gilmartin  said:

>So, in Rexx:
>address TSO "call *(ISRSUPC) 'FILE'"

That will work, but it's overkill. Why not use

   address LINK ISRSUPC 'FILE'

instead?
 
-- 
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 ISO position; see  
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: RC 24 from ISRSUPC (Was 0C4 from TSOEXEC IEBCOMPR)

[Shmuel Metz (Seymour J.)]

In
,
on 03/06/2014
   at 10:01 PM, "Hansen, Dave L - Eagan, MN" 
said:

> address TSO "alloc fi(newdd) da('A3ZP.PROD.CICS("pgm")') shr reu"

> address TSO "alloc fi(olddd) da('A3WD.APPROD3.CICS("pgm")') shr reu"  

What about the rest of the allocations?
 
-- 
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 ISO position; see  
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: Where is status saved for LOCAL LOCK'd code?

[Ngafei Huang]

Very vague but I seem to remember if an interrupt have occurred (and it should 
have since this is suspend lock) while holding local lock, status should be 
saved in area pointed to buy ASSBIHSA of holder address space.


-Original Message-
From: David Cole 
To: IBM-MAIN 
Sent: Thu, Mar 6, 2014 5:09 pm
Subject: Where is status saved for LOCAL LOCK'd code?


I have a question. Recently, I was using z/XDC to watch the flow of 
execution of some task in a different aspace. At one point, that code 
acquired the Local Lock and then fell into a closed, tight execution 
loop ("B *" actually - I guess that's as tight as it gets.)

But watching this thing from another aspace, I could not tell where 
the execution loop was!

Normally, I would look at the resume PSW from the newest RB/XSB on 
the running TCB, but in this case the LLOCK was held, so the RB 
information was ancient history.

So my question is, when the LOCAL LOCK is held and a the aspace that 
holds it is spinning, and I'm looking in from the outside, where do I 
look to to find that aspace's current PSW and registers?


(Eventually, we took a dump and looked in the System Trace and found 
the loop from recorded interrupt addresses, but I'd like to be able 
to figure this out live... without having to resort to a dump.)

TIA,
Dave Cole

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

[Shmuel Metz (Seymour J.)]

In
,
on 03/06/2014
   at 11:10 AM, Mark Pace  said:

>According to the output it is going to SMPSNAP.

Then it's not a system requested dump. Presumably you have a problem
with SMP/E and will need the output to report it.
 
-- 
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 ISO position; see  
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: 0C4 from TSOEXEC IEBCOMPR

[Shmuel Metz (Seymour J.)]

In
,
on 03/06/2014
   at 03:43 PM, "Hansen, Dave L - Eagan, MN" 
said:

>I would like to automate comparing a bunch of FONT libs.

 1. the SuperC panels have an option to generate a batch job.
Use it and look at the generated JCL

 2. What did you allocate before invoking ISRSUPC?

 3. What is in your EXEC? You only gave the failing line.

>I tried "TSOEXEC ISRSUPC" in my EXEC. 

Why? It's for commands.
 
-- 
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 ISO position; see  
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: NODUMP

[Ted MacNEIL]

Actually, wouldn't you say the production of the dump rather than the 
suppression of such?

-
-teD
-
  Original Message  
From: Mark Pace
Sent: Thursday, March 6, 2014 14:52
To: IBM-MAIN@LISTSERV.UA.EDU
Reply To: IBM Mainframe Discussion List
Subject: Re: NODUMP

Good news/bad news. Good news, I fixed the problem, so no dump. Bad
news, I don't know if adding the DD DUMMY would have done the trick.


On Thu, Mar 6, 2014 at 11:17 AM, Burrell, C. Todd (CDC/OCOO/OCIO/ITSO)
(CTR)  wrote:

> That should do the trick. Give it a shot and tell the group if that does
> not work...
>
> Todd Burrell, PMP, ITIL Expert, CISSP | Project Manager | ITSO AHB |
> Centers for Disease Control and Prevention (CDC)
> Contractor - HP Enterprise Services | 1600 Clifton Rd, Building 21, MS
> D24, RM 1300 | Atlanta, GA 30338 | 404-971-7275 (Blackberry) 
> 404-723-2017(Mobile) |
> z...@cdc.gov
>
>
> THIS COMMUNICATION MAY CONTAIN CONFIDENTIAL AND/OR OTHERWISE PROPRIETARY
> MATERIAL and is for use only by the intended recipient. If you received
> this in error, please notify the sender and delete the communication from
> all computers.
>
>
>
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of Mark Pace
> Sent: Thursday, March 06, 2014 11:10 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: NODUMP
>
> According to the output it is going to SMPSNAP.
>
> JESMSGLG JES2
> JESJCL JES2
> JESYSMSG JES2
> SMPOUT SMPER1
> SMPRPT SMPER1
> SYSPRINT SMPER1
> SMPSNAP SMPER1
>
> So would a
> //SMPSNAP DD DUMMY
> remove the dump?
>
>
> On Thu, Mar 6, 2014 at 11:07 AM, Burrell, C. Todd (CDC/OCOO/OCIO/ITSO)
> (CTR)  wrote:
>
> > Can't you just do something in the JCL like this:
> >
> > //SYSMDUMP DD DUMMY
> > //SYSUDUMP DD DUMMY
> >
> > Not sure which DD it is going to, but if you dummy it you should not
> > see a dump?
> >
> > Todd Burrell, PMP, ITIL Expert, CISSP | Project Manager | ITSO AHB |
> > Centers for Disease Control and Prevention (CDC) Contractor - HP
> > Enterprise Services | 1600 Clifton Rd, Building 21, MS D24, RM 1300 |
> > Atlanta, GA 30338 | 404-971-7275 (Blackberry) 404-723-2017(Mobile) |
> > z...@cdc.gov
> >
> >
> > THIS COMMUNICATION MAY CONTAIN CONFIDENTIAL AND/OR OTHERWISE
> > PROPRIETARY MATERIAL and is for use only by the intended recipient. If
> > you received this in error, please notify the sender and delete the
> > communication from all computers.
> >
> >
> > -Original Message-
> > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU]
> > On Behalf Of Mark Pace
> > Sent: Thursday, March 06, 2014 11:02 AM
> > To: IBM-MAIN@LISTSERV.UA.EDU
> > Subject: NODUMP
> >
> > Is there an equivalent of VSE // OPTION NODUMP ?
> >
> > I have a job that fails and produces a huge dump. I don't want the dump.
> > Is there a way to suppress the dump being created? I searched the JCL
> > reference but don't see anything.
> >
> > --
> > The postings on this site are my own and don't necessarily represent
> > Mainline's positions or opinions
> >
> > Mark D Pace
> > Senior Systems Engineer
> > Mainline Information Systems
> >
> > --
> > 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
> >
>
>
>
> --
> The postings on this site are my own and don't necessarily represent
> Mainline's positions or opinions
>
> Mark D Pace
> Senior Systems Engineer
> Mainline Information Systems
>
> --
> 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
>



-- 
The postings on this site are my own and don't necessarily represent
Mainline's positions or opinions

Mark D Pace
Senior Systems Engineer
Mainline Information Systems

--
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: RC 24 from ISRSUPC (Was 0C4 from TSOEXEC IEBCOMPR)

[Farley, Peter x23353]

Dave, I don't see an ALLOC for DD SYSPRINT in the ISRSUPC code.  Note the text 
of the error for that RC=24 seems to agree:

RC 24 is ERROR.  I/O Error writing to the **output listing file**   
(emphasis mine)

HTH

Peter

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Hansen, Dave L - Eagan, MN
Sent: Thursday, March 06, 2014 5:02 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: RC 24 from ISRSUPC (Was 0C4 from TSOEXEC IEBCOMPR)

Dear Group,

   Ok, I got IEBCOMPR to work:

"ALLOC FI(SYSUT1) DA('PMSBDH.VPS.LRS.AFP.V2R10.FDEFLIB') SHR"
"ALLOC FI(SYSUT2) DA('VPS.LRS.VPS.V2R10.FDEFLIB') SHR"
"ALLOC DD(SYSPRINT) DA(*) REU"
"ALLOC DD(SYSIN) RECFM(F B) LRECL(80) NEW REU"
QUEUE " COMPARE TYPORG=PO"
"EXECIO" queued() "DISKW SYSIN (FINIS"
"CALL *(IEBCOMPR)"
CC=RC
if cc <> 0 Then Do
SAY "IEBCOMPR FAILED FOR AFP.V2R10.FDEFLIB"
...
"FREE FI(SYSUT1 SYSUT2 SYSIN SYSPRINT)"

   With IEBCOMPR I look for a RC of 0.



   I found this site:  
http://computer-programming-forum.com/38-rexx/35af2e8f164fb280.htm and this 
EXEC:

/*   test si version prod et approd identique  */ 
say "Test si version PROD et APPROD identique "   
 address TSO "alloc fi(newdd) da('A3ZP.PROD.CICS("pgm")') shr reu" 
 address TSO "alloc fi(olddd) da('A3WD.APPROD3.CICS("pgm")') shr reu" 
 address tso "call *(isrsupc)" 
 if rc =  0 then   
   do 
 say "version identique." 
   end 
   else   
   do 
 say "! VERSION PROD APPROD DIFFERENTES !" 
 exit 
   end

   Mostly this just hangs for me, but once I did get an RC of 24. In the 
ISPF User's Guide it says RC 24 is ERROR.  I/O Error writing to the output 
listing file.  

Q).  Does this Example need some more work?  

  


   I found some doc that said ISRSUPC was documented in the ISPF User guide. 
Vol 2.  I have been looking for where the KEYWORDS are listed for ISRSSUPC.  In 
appendix A they list some stuff.

   It says: "The keywords and parameters are:"
  "CTYPE Specifies the compare type.  The parameter can be one 
of the SuperC compare types (File, Line, Word, or Byte).  To call the 
Search-For program, use CTYPE(SRCH)".
  "PROCESS  Specifies the process options"
   OK, I want ISRSUPC to use a CTYPE of FILE to do a file level compare.


   I tried:

  "CALL *(ISRSUPC)" "FILE"
INVALID KEYWORD, FILE

  "CALL *(ISRSUPC)" "CTYPE(FILE)"
INVALID KEYWORD, CTYPE(FILE)FILE

   I saw PGM=ISRSUPC),PARM=(DELTAL,LINECMP,'','').  So I tried:

 "CALL *(ISRSUPC) FILECMP"
INVALID KEYWORD, FILECMP


Q).  Where are the Keyword and Parameters for SUPERC (aka ISRSUPC) found?


   Thanks again,  Dave

  

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Sri h Kolusu
Sent: Thursday, March 06, 2014 12:29 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: 0C4 from TSOEXEC IEBCOMPR

Q. Do IEBCOMPR and ISRSUPC both support alternate DDName lists?)

Paul,

I do believe IEBCOMPR can be invoked using alternate DDname list(example shown 
below), but with ISRSUPC I get RC of 24

/* REXX - Invoke IEBCOMPR With alternate DDnames.   */ 
"ALLOC FI(PDS1) DA('KOLUSU.PMR66403.JCL') SHR" 
"ALLOC FI(PDS2) DA('KOLUSU.PMR66403.JCL') SHR" 
"ALLOC DD(REP) DA(*) REU" 
"ALLOC DD(CTL) NEW REU RECFM(F B) LRECL(80)" 
QUEUE "  COMPARE TYPORG=PO " 
"EXECIO "QUEUED()" DISKW CTL (FINIS" 
PROG   = 'IEBCOMPR' 
PARM   = ''   /* STANDARD PARM, AS FROM JCL   */
DDLIST = COPIES('00'X,8) ||,  /* DDNAME  1 OVERRIDE: SYSLIN   */
 COPIES('00'X,8) ||,  /* DDNAME  2 OVERRIDE:  N/A */
 COPIES('00'X,8) ||,  /* DDNAME  3 OVERRIDE: SYSLMOD  */
 COPIES('00'X,8) ||,  /* DDNAME  4 OVERRIDE: SYSLIB   */
 LEFT('CTL',  8) ||,  /* DDNAME  5 OVERRIDE: SYSIN*/
 LEFT('REP',  8) ||,  /* DDNAME  6 OVERRIDE: SYSPRINT */
 COPIES('00'X,8) ||,  /* DDNAME  7 OVERRIDE: SYSPUNCH */
 LEFT('PDS1', 8) ||,  /* DDNAME  8 OVERRIDE: SYSUT1   */
 LEFT('PDS2', 8) ||,  /* DDNAME  9 OVERRIDE: SYSUT2   */
 COPIES('00'X,8) ||,  /* DDNAME 10 OVERRIDE: SYSUT3   */
 COPIES('00'X,8) ||,  /* DDNAME 11 OVERRIDE: SYSUT4   */
 COPIES('00'X,8) ||,  /* DDNAME 12 OVERRIDE: SYSTERM  */
 COPIES('00'X,8) ||,  /* DDNAME 13 OVERRIDE:  N/A */
 COPIES('00'X,8)  /* DDNAME 14 OVERRIDE: SYSCIN   */
ADDRESS 'LINKMVS

Re: RC 24 from ISRSUPC (Was 0C4 from TSOEXEC IEBCOMPR)

[Sri h Kolusu]

Dave,

Here is a rexx exec to invoke ISRSUPC in rexx

/* REXX */ 
ADDRESS TSO 
"ALLOC FI(NEWDD) DA('PMSBDH.VPS.LRS.AFP.V2R10.FDEFLIB') SHR" 
"ALLOC FI(OLDDD) DA('VPS.LRS.VPS.V2R10.FDEFLIB') SHR" 
"ALLOC DD(OUTDD) DA(*) REU" 
"ALLOC F(SYSIN) DUMMY REUSE" 
"CALL *(ISRSUPC) 'FILECMP,DELTAL'" 
"FREE FI(NEWDD OLDDD SYSIN OUTDD)" 


Check this link for SUPERC reference

http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ISPZU290/A.0?


Kolusu

IBM Mainframe Discussion List  wrote on 
03/06/2014 02:01:36 PM:

> From: "Hansen, Dave L - Eagan, MN" 
> To: IBM-MAIN@listserv.ua.edu, 
> Date: 03/06/2014 02:02 PM
> Subject: RC 24 from ISRSUPC (Was 0C4 from TSOEXEC IEBCOMPR)
> Sent by: IBM Mainframe Discussion List 
> 
> Dear Group,
> 
>Ok, I got IEBCOMPR to work:
> 
> "ALLOC FI(SYSUT1) DA('PMSBDH.VPS.LRS.AFP.V2R10.FDEFLIB') SHR"
> "ALLOC FI(SYSUT2) DA('VPS.LRS.VPS.V2R10.FDEFLIB') SHR"
> "ALLOC DD(SYSPRINT) DA(*) REU"
> "ALLOC DD(SYSIN) RECFM(F B) LRECL(80) NEW REU"
> QUEUE " COMPARE TYPORG=PO"
> "EXECIO" queued() "DISKW SYSIN (FINIS"
> "CALL *(IEBCOMPR)"
> CC=RC
> if cc <> 0 Then Do
> SAY "IEBCOMPR FAILED FOR AFP.V2R10.FDEFLIB"
> ...
> "FREE FI(SYSUT1 SYSUT2 SYSIN SYSPRINT)"
> 
>With IEBCOMPR I look for a RC of 0.
> 
> 
> 
>I found this site:  http://computer-programming-forum.com/38-
> rexx/35af2e8f164fb280.htm and this EXEC:
> 
> /*   test si version prod et approd identique  */  
> say "Test si version PROD et APPROD identique "  
>  address TSO "alloc fi(newdd) da('A3ZP.PROD.CICS("pgm")') shr reu"  
>  address TSO "alloc fi(olddd) da('A3WD.APPROD3.CICS("pgm")') shr reu"  
>  address tso "call *(isrsupc)"  
>  if rc =  0 then  
>do  
>  say "version identique."  
>end  
>else  
>do  
>  say "! VERSION PROD APPROD DIFFERENTES !"  
>  exit  
>end
> 
>Mostly this just hangs for me, but once I did get an RC of 24. 
> In the ISPF User's Guide it says RC 24 is ERROR.  I/O Error writing 
> to the output listing file. 
> 
> Q).  Does this Example need some more work? 
> 
> 
> 
> 
>I found some doc that said ISRSUPC was documented in the ISPF 
> User guide. Vol 2.  I have been looking for where the KEYWORDS are 
> listed for ISRSSUPC.  In appendix A they list some stuff.
> 
>It says: "The keywords and parameters are:"
>   "CTYPE Specifies the compare type.  The parameter 
> can be one of the SuperC compare types (File, Line, Word, or Byte). 
> To call the Search-For program, use CTYPE(SRCH)".
>   "PROCESS  Specifies the process options"
>OK, I want ISRSUPC to use a CTYPE of FILE to do a file level compare.
> 
> 
>I tried:
> 
>   "CALL *(ISRSUPC)" "FILE"
> INVALID KEYWORD, FILE
> 
>   "CALL *(ISRSUPC)" "CTYPE(FILE)"
> INVALID KEYWORD, CTYPE(FILE)FILE
> 
>I saw PGM=ISRSUPC),PARM=(DELTAL,LINECMP,'','').  So I tried:
> 
>  "CALL *(ISRSUPC) FILECMP"
> INVALID KEYWORD, FILECMP
> 
> 
> Q).  Where are the Keyword and Parameters for SUPERC (aka ISRSUPC) 
found?
> 
> 
>Thanks again,  Dave
> 
> 
> 
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU
> ] On Behalf Of Sri h Kolusu
> Sent: Thursday, March 06, 2014 12:29 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: 0C4 from TSOEXEC IEBCOMPR
> 
> Q. Do IEBCOMPR and ISRSUPC both support alternate DDName lists?)
> 
> Paul,
> 
> I do believe IEBCOMPR can be invoked using alternate DDname list
> (example shown below), but with ISRSUPC I get RC of 24
> 
> /* REXX - Invoke IEBCOMPR With alternate DDnames.   */ 
> "ALLOC FI(PDS1) DA('KOLUSU.PMR66403.JCL') SHR" 
> "ALLOC FI(PDS2) DA('KOLUSU.PMR66403.JCL') SHR" 
> "ALLOC DD(REP) DA(*) REU" 
> "ALLOC DD(CTL) NEW REU RECFM(F B) LRECL(80)" 
> QUEUE "  COMPARE TYPORG=PO " 
> "EXECIO "QUEUED()" DISKW CTL (FINIS" 
> PROG   = 'IEBCOMPR' 
> PARM   = ''   /* STANDARD PARM, AS FROM JCL   */
> DDLIST = COPIES('00'X,8) ||,  /* DDNAME  1 OVERRIDE: SYSLIN   */
>  COPIES('00'X,8) ||,  /* DDNAME  2 OVERRIDE:  N/A */
>  COPIES('00'X,8) ||,  /* DDNAME  3 OVERRIDE: SYSLMOD  */
>  COPIES('00'X,8) ||,  /* DDNAME  4 OVERRIDE: SYSLIB   */
>  LEFT('CTL',  8) ||,  /* DDNAME  5 OVERRIDE: SYSIN*/
>  LEFT('REP',  8) ||,  /* DDNAME  6 OVERRIDE: SYSPRINT */
>  COPIES('00'X,8) ||,  /* DDNAME  7 OVERRIDE: SYSPUNCH */
>  LEFT('PDS1', 8) ||,  /* DDNAME  8 OVERRIDE: SYSUT1   */
>  LEFT('PDS2', 8) ||,  /* DDNAME  9 OVERRIDE: SYSUT2   */
>  COPIES('00'X,8) ||,  /* DDNAME 10 OVERRIDE: SYSUT3   */
>  COPIES('00'X,8) ||,  /* DDNAME 11 OVERRIDE: SYSUT4   */
>  COPIES('00'X,8) ||,  /* DDNAME 12 OVERRIDE: SYSTERM  */
>  COPIES('00'X,8) ||,  /* DDNAME 13 OVERRIDE:  N/A */
>  COPIES('00'X,8)  /* DDNAME 14 OVERRIDE: SYSCIN   */
> ADDRESS 'LINKMVS' PROG 'PARM DDLIST' 
> "FREE FI(PDS1 PDS2 CTL REP)" 
> EXIT RC 
> 
> Sri Hari

Re: NODUMP

[John Gilmore]

Perhaps worth noting explicitly is that Skip Robinson's SLIP
suppresses the preparation of the dump, while the DD DUMMY only
suppresses its output; and for such dumps this is a significant
difference.

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: Validation of a resource name

[Tony Harminc]

On 6 March 2014 09:04, Charles Mills  wrote:
> (2) you run the risk of rejecting something in the client that is
actually valid on the server --
> for example if the server is enhanced in some way down the road before
you can enhance the client.

And surely the most ubiquitous (and egregious) of these is the over strict
"validation" of email addresses, found on web pages everywhere.

I once thought these sites were all using the same bad Javascript example
from somewhere, but though there are plenty with identical code, there are
also at least a dozen common variations and countless independent (and at
least as wrong) ones out there.

Clearly there's a need to avoid SQL injection and such, but still the range
of valid characters surprises, e.g. these are valid, but will be rejected
by virtually all web sites:

Tom&de...@example.com
Bob&Carol+Ted&al...@example.com
Paddy.O'furnit...@example.com .

My experience in dealing with non compliant web sites (you know sometimes
you get on a mission for a bit, even knowing it's ultimately futile?) is
that most of them:

1) ignore me completely
2) Respond with a "we are looking into it", followed by nothing.
3) Respond with "you are wrong - get your email address fixed" (I love this
one!)
or some combination.

I convinced  (contest on a cereal box - don't
ask) to fix
one of their email pages, which they did very promptly. However they had
some equally bogus secondary validation (still client-side), and they then
responded with (2), and eventually with (3). Even their "contact us" page
won't accept a valid address. Why people want to annoy their customers so
much is beyond me.

On the other hand I got an excellent response from a place that designs
sites for charities - they thanked me for my input, apologized, fixed it
almost immediately, wrote back to tell me in detail what they'd done, and
contacted all their charity customers to tell them about the problem and
that they'd be updating their sites. Amazing.

One good approach for those who really don't believe an address can contain
character  (and/or think that RFCs are some obsolete suggestions from
the early days of the net) is to send them an email from an address
containing it. Their email client will handle it fine in- and out-bound,
even if it's MS Outlook or Notes or some similar corporate thing

Well, sorry - it's not quite Friday here.

Tony H.

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

Re: RC 24 from ISRSUPC (Was 0C4 from TSOEXEC IEBCOMPR)

[Paul Gilmartin]

On Thu, 6 Mar 2014 22:01:36 +, Hansen, Dave L - Eagan wrote:
>
>   I found this site:  
> http://computer-programming-forum.com/38-rexx/35af2e8f164fb280.htm and this 
> EXEC:
>  
> address tso "call *(isrsupc)" 
> if rc =  0 then   
>   do 
> say "version identique." 
>   end 
>   else   
>   do 
> say "! VERSION PROD APPROD DIFFERENTES !" 
> exit 
>   end


>   I found some doc that said ISRSUPC was documented in the ISPF User guide. 
> Vol 2.  I have been looking for where the KEYWORDS are listed for ISRSSUPC.  
> In appendix A they list some stuff.
>
>   It says: "The keywords and parameters are:"
>  "CTYPE Specifies the compare type.  The parameter can be one 
> of the SuperC compare types (File, Line, Word, or Byte).  To call the 
> Search-For program, use CTYPE(SRCH)".
>  "PROCESS  Specifies the process options"
>   OK, I want ISRSUPC to use a CTYPE of FILE to do a file level compare.
>
>
>   I tried:
>
>  "CALL *(ISRSUPC)" "FILE"
>INVALID KEYWORD, FILE
>
I suspect that's a TSO message.  For example:

 READY 
call *(IEFBR14)  whatever 
 IKJ56712I INVALID KEYWORD, WHATEVE
 IKJ56703A REENTER THIS OPERAND -

but:

 READY 
call *(IEFBR14) 'whatever'
 READY 

(You really should PROFILE MSGID to get more information.)

So, in Rexx:
address TSO "call *(ISRSUPC) 'FILE'"

(I think.)

-- gil

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

Where is status saved for LOCAL LOCK'd code?

[David Cole]

I have a question. Recently, I was using z/XDC to watch the flow of 
execution of some task in a different aspace. At one point, that code 
acquired the Local Lock and then fell into a closed, tight execution 
loop ("B *" actually - I guess that's as tight as it gets.)


But watching this thing from another aspace, I could not tell where 
the execution loop was!


Normally, I would look at the resume PSW from the newest RB/XSB on 
the running TCB, but in this case the LLOCK was held, so the RB 
information was ancient history.


So my question is, when the LOCAL LOCK is held and a the aspace that 
holds it is spinning, and I'm looking in from the outside, where do I 
look to to find that aspace's current PSW and registers?



(Eventually, we took a dump and looked in the System Trace and found 
the loop from recorded interrupt addresses, but I'd like to be able 
to figure this out live... without having to resort to a dump.)


TIA,
Dave Cole

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

RC 24 from ISRSUPC (Was 0C4 from TSOEXEC IEBCOMPR)

[Hansen, Dave L - Eagan, MN]

Dear Group,

   Ok, I got IEBCOMPR to work:

"ALLOC FI(SYSUT1) DA('PMSBDH.VPS.LRS.AFP.V2R10.FDEFLIB') SHR"
"ALLOC FI(SYSUT2) DA('VPS.LRS.VPS.V2R10.FDEFLIB') SHR"
"ALLOC DD(SYSPRINT) DA(*) REU"
"ALLOC DD(SYSIN) RECFM(F B) LRECL(80) NEW REU"
QUEUE " COMPARE TYPORG=PO"
"EXECIO" queued() "DISKW SYSIN (FINIS"
"CALL *(IEBCOMPR)"
CC=RC
if cc <> 0 Then Do
SAY "IEBCOMPR FAILED FOR AFP.V2R10.FDEFLIB"
...
"FREE FI(SYSUT1 SYSUT2 SYSIN SYSPRINT)"

   With IEBCOMPR I look for a RC of 0.



   I found this site:  
http://computer-programming-forum.com/38-rexx/35af2e8f164fb280.htm and this 
EXEC:

/*   test si version prod et approd identique  */ 
say "Test si version PROD et APPROD identique "   
 address TSO "alloc fi(newdd) da('A3ZP.PROD.CICS("pgm")') shr reu" 
 address TSO "alloc fi(olddd) da('A3WD.APPROD3.CICS("pgm")') shr reu" 
 address tso "call *(isrsupc)" 
 if rc =  0 then   
   do 
 say "version identique." 
   end 
   else   
   do 
 say "! VERSION PROD APPROD DIFFERENTES !" 
 exit 
   end

   Mostly this just hangs for me, but once I did get an RC of 24. In the 
ISPF User's Guide it says RC 24 is ERROR.  I/O Error writing to the output 
listing file.  

Q).  Does this Example need some more work?  

  


   I found some doc that said ISRSUPC was documented in the ISPF User guide. 
Vol 2.  I have been looking for where the KEYWORDS are listed for ISRSSUPC.  In 
appendix A they list some stuff.

   It says: "The keywords and parameters are:"
  "CTYPE Specifies the compare type.  The parameter can be one 
of the SuperC compare types (File, Line, Word, or Byte).  To call the 
Search-For program, use CTYPE(SRCH)".
  "PROCESS  Specifies the process options"
   OK, I want ISRSUPC to use a CTYPE of FILE to do a file level compare.


   I tried:

  "CALL *(ISRSUPC)" "FILE"
INVALID KEYWORD, FILE

  "CALL *(ISRSUPC)" "CTYPE(FILE)"
INVALID KEYWORD, CTYPE(FILE)FILE

   I saw PGM=ISRSUPC),PARM=(DELTAL,LINECMP,'','').  So I tried:

 "CALL *(ISRSUPC) FILECMP"
INVALID KEYWORD, FILECMP


Q).  Where are the Keyword and Parameters for SUPERC (aka ISRSUPC) found?


   Thanks again,  Dave

  

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Sri h Kolusu
Sent: Thursday, March 06, 2014 12:29 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: 0C4 from TSOEXEC IEBCOMPR

Q. Do IEBCOMPR and ISRSUPC both support alternate DDName lists?)

Paul,

I do believe IEBCOMPR can be invoked using alternate DDname list(example shown 
below), but with ISRSUPC I get RC of 24

/* REXX - Invoke IEBCOMPR With alternate DDnames.   */ 
"ALLOC FI(PDS1) DA('KOLUSU.PMR66403.JCL') SHR" 
"ALLOC FI(PDS2) DA('KOLUSU.PMR66403.JCL') SHR" 
"ALLOC DD(REP) DA(*) REU" 
"ALLOC DD(CTL) NEW REU RECFM(F B) LRECL(80)" 
QUEUE "  COMPARE TYPORG=PO " 
"EXECIO "QUEUED()" DISKW CTL (FINIS" 
PROG   = 'IEBCOMPR' 
PARM   = ''   /* STANDARD PARM, AS FROM JCL   */
DDLIST = COPIES('00'X,8) ||,  /* DDNAME  1 OVERRIDE: SYSLIN   */
 COPIES('00'X,8) ||,  /* DDNAME  2 OVERRIDE:  N/A */
 COPIES('00'X,8) ||,  /* DDNAME  3 OVERRIDE: SYSLMOD  */
 COPIES('00'X,8) ||,  /* DDNAME  4 OVERRIDE: SYSLIB   */
 LEFT('CTL',  8) ||,  /* DDNAME  5 OVERRIDE: SYSIN*/
 LEFT('REP',  8) ||,  /* DDNAME  6 OVERRIDE: SYSPRINT */
 COPIES('00'X,8) ||,  /* DDNAME  7 OVERRIDE: SYSPUNCH */
 LEFT('PDS1', 8) ||,  /* DDNAME  8 OVERRIDE: SYSUT1   */
 LEFT('PDS2', 8) ||,  /* DDNAME  9 OVERRIDE: SYSUT2   */
 COPIES('00'X,8) ||,  /* DDNAME 10 OVERRIDE: SYSUT3   */
 COPIES('00'X,8) ||,  /* DDNAME 11 OVERRIDE: SYSUT4   */
 COPIES('00'X,8) ||,  /* DDNAME 12 OVERRIDE: SYSTERM  */
 COPIES('00'X,8) ||,  /* DDNAME 13 OVERRIDE:  N/A */
 COPIES('00'X,8)  /* DDNAME 14 OVERRIDE: SYSCIN   */
ADDRESS 'LINKMVS' PROG 'PARM DDLIST' 
"FREE FI(PDS1 PDS2 CTL REP)" 
EXIT RC 

Sri Hari Kolusu
DFSORT Development
IBM Corporation
Email: skol...@us.ibm.com
Phone: 408-927-2187 Tie Line: 457-2187

IBM Mainframe Discussion List  wrote on
03/06/2014 09:34:58 AM:

> From: Paul Gilmartin 
> To: IBM-MAIN@listserv.ua.edu,
> Date: 03/06/2014 09:35 AM
> Subject: Re: 0C4 from TSOEXEC IEBCOMPR Sent by: IBM Mainframe 
> Discussion List 
> 
> On Thu, 6 Mar 2014 09:20:56 -0800, Sri h Kolusu wrote:
> 
> >Hansen,
> >
> >T

Re: NODUMP

[Skip Robinson]

It's pretty common in many shops to maintain SLIP traps to suppress dumps 
for most x37 abends. A dump is rarely helpful for such abends, since the 
cause is obvious from the abend code. For example, in IEASLP00 we have 
several SLIP traps like this:

SL SET,C=B37,ID=XB37,A=(NOSVCD,NOSYSU),END 

.
.
J.O.Skip Robinson
Southern California Edison Company
Electric Dragon Team Paddler 
SHARE MVS Program Co-Manager
626-302-7535 Office
323-715-0595 Mobile
jo.skip.robin...@sce.com



From:   Mark Pace 
To: IBM-MAIN@LISTSERV.UA.EDU, 
Date:   03/06/2014 11:31 AM
Subject:Re: NODUMP
Sent by:IBM Mainframe Discussion List 



I kept getting a B37 space error doing a RECEIVE.
IEC030I B37-04,IFG0554A,RCVPDO,SMPER1,SYSUT4,VIO ,  ,
SYS14065.T101319.RA000.RCVPDO.R0100114

I thought I was having a problem with the DSSPACE parameter, and adjusting
it was making no difference.  Finally I changed the DDDEF for SYSUT4 and
that solved the problem.

Newbies.  :)


On Thu, Mar 6, 2014 at 2:12 PM, Elardus Engelbrecht <
elardus.engelbre...@sita.co.za> wrote:

> Gibney, Dave wrote:
>
> >I would favor the fix the problem approach over the suppress the
> diagnostics approach.
>
> Indeed, because I find this statement from Mark D Pace very worrying:
>
> "I have a job that fails and produces a huge dump."
>
> What is the problem with that job? Did something changed before the job
> failed? Add your usual questions and dumps/traces here for diagnostics.
>
> But then I see: "Good news, I fixed the problem, so no dump."
>
> Mark, could you be kind to tell us, if you can, what the problem was and
> what fix you did?
>
>
> Rex Pommier wrote:
>
> >So break it again!  We want to know!!  :-)
>
> Yes! Agreed! For us to know and for the OP to earn some easy overtime
> money ... ;-)
>
> Groete / Greetings
> Elardus Engelbrecht

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

Got z/OSMF V2.1? Got z/OS migration help!

[Marna WALLE]

We made available today something that you may be interested in...

The z/OS V2.1 Migration book has been ported into a z/OSMF Workflow.  What does 
this mean? It means that you can now use a z/OSMF workflow to obtain and manage 
your z/OS V2.1 migration information.  PDFs and InfoCenter have got nothing on 
this workflow - we've got something altogether better here!  (Thank goodness 
about that.)

Yes, it does need z/OSMF V2.1 for the workflow function, but I have ulterior 
motives for doing a z/OS V2.1 migration workflow which needs z/OSMF V2.1.  I'm 
looking long distance here, and need to make a first step.  


You can find the download and all the fine information here:  
http://ibm.co/NYyNM8   No logon needed. 
-Marna WALLE
z/OS Installation
IBM Poughkeepsie

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

Re: IDCAMS if-else

[Micheal Butz]

To run a clist

I add a step //CHECK EXEC PGM=IKJEFT01
//SYSTSIN DD * 
  PR0C 0
 Etc 


Sent from my iPhone

> On Mar 6, 2014, at 5:24 AM, Elardus Engelbrecht 
>  wrote:
> 
> Micheal Butz wrote:
> 
>> I have 2 files and would lime to see If one or both or none exist
>> I am using IDCAMS if-else sequence With a command of print for this
>> However I am always coming up with a cc of 0 in the jcl for this step
> 
> Ok. I have followed this thread where CM Poncolet and Paul Gilmartin tried to 
> help you to relieve yourself from 'torture yourself'.
> 
> May I suggest that you try something else to check whether a dataset (not 
> file) exists and whether it is empty or not?
> 
> Crude, dirty, short and sweet CLIST to see whether your dataset exists or not:
> 
> PROC 0   
>  IF &SYSDSN('.JCL') = OK THEN   +
>   DO
>WRITE DATASET FOUND  
>SET &RC = 0  
>   END   
>  ELSE  +
>   DO
>WRITE DATA SET NOT FOUND 
>SET &RC = 4  
>   END   
> 
> DFSORT to see whether a dataset is EMPTY or not:
> 
>  COUNT FROM(SYS1.EMPTY.YES.NO.PERHAPS) EMPTY  gives RC=12 (or RC=04 if 
> specified)
> 
> Of course there are many other ways to check your DSN and quantity of 
> records. I think you should see it in IBM-MAIN archives.
> 
> Use your RC to selectively run your IDCAMS print step(s).
> 
> HTH!
> 
> Groete / Greetings
> Elardus Engelbrecht
> 
> --
> 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: zAware certificate need on RACF

[Motles, Luis]

My understanding is that you do not need the AT-TLS setup to view the zAware 
data through the GUI, while you do need the AT-TLS setup, and therefore the 
certificate, to retrieve the zAware data programmatically from the server.

Luis

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Jake anderson
Sent: Thursday, March 06, 2014 12:54 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: zAware certificate need on RACF

Hello,

Cross Posted on IBM MAIN and RACF-L

Are there anyone who has set AT-TLS for zAware on Z/OS. I have been
referring a RED book on enabling at-tls but I am not able to understand the
need of importing zAware certificates to RACF. If my Understanding is
correct zAware does not have any interaction with RACF DB. Since zAware
acts as an LPAR and gets the Z/OS image information via Logstream.

Could someone enlighten me the need of zAware certificate on RACF DB ? How
this is going to be useful for the zAware Users ?

z/OS : 2.1

Jake

--
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: Validation of a resource name

[Shmuel Metz (Seymour J.)]

In <6.2.1.2.2.20140306010915.04ff1f00@127.0.0.1>, on 03/06/2014
   at 01:11 AM, "Arthur T."  said:

>Never do validation on the client side.

ITYM never do validation only on the client side. Theres nothing wrong
with validation on the client side as long as the server revalidates.
 
-- 
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 ISO position; see  
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: NODUMP

[Mark Pace]

I kept getting a B37 space error doing a RECEIVE.
IEC030I B37-04,IFG0554A,RCVPDO,SMPER1,SYSUT4,VIO ,  ,
SYS14065.T101319.RA000.RCVPDO.R0100114

I thought I was having a problem with the DSSPACE parameter, and adjusting
it was making no difference.  Finally I changed the DDDEF for SYSUT4 and
that solved the problem.

Newbies.  :)


On Thu, Mar 6, 2014 at 2:12 PM, Elardus Engelbrecht <
elardus.engelbre...@sita.co.za> wrote:

> Gibney, Dave wrote:
>
> >I would favor the fix the problem approach over the suppress the
> diagnostics approach.
>
> Indeed, because I find this statement from Mark D Pace very worrying:
>
> "I have a job that fails and produces a huge dump."
>
> What is the problem with that job? Did something changed before the job
> failed? Add your usual questions and dumps/traces here for diagnostics.
>
> But then I see: "Good news, I fixed the problem, so no dump."
>
> Mark, could you be kind to tell us, if you can, what the problem was and
> what fix you did?
>
>
> Rex Pommier wrote:
>
> >So break it again!  We want to know!!  :-)
>
> Yes! Agreed! For us to know and for the OP to earn some easy overtime
> money ... ;-)
>
> Groete / Greetings
> Elardus Engelbrecht
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>



-- 
The postings on this site are my own and don't necessarily represent
Mainline's positions or opinions

Mark D Pace
Senior Systems Engineer
Mainline Information Systems

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

Re: IDCAMS if-else

[CM Poncelet]

No problem at all. I have a large collection of 'alternative spellings' 
... which I hope to auction on ebay 


Elardus Engelbrecht wrote:


Elardus Engelbrecht wrote:

 


... where CM Poncolet ...
   



Damn! Sorry, CM Poncelet for my unintended typo.

Please accept my apology.

Groete / Greetings
Elardus Engelbrecht

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

[Elardus Engelbrecht]

Gibney, Dave wrote:

>I would favor the fix the problem approach over the suppress the diagnostics 
>approach.

Indeed, because I find this statement from Mark D Pace very worrying:

"I have a job that fails and produces a huge dump."

What is the problem with that job? Did something changed before the job failed? 
Add your usual questions and dumps/traces here for diagnostics. 

But then I see: "Good news, I fixed the problem, so no dump." 

Mark, could you be kind to tell us, if you can, what the problem was and what 
fix you did?


Rex Pommier wrote:

>So break it again!  We want to know!!  :-)

Yes! Agreed! For us to know and for the OP to earn some easy overtime money ... 
;-)

Groete / Greetings
Elardus Engelbrecht

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

Re: RECATALOG

[Mark Pace]

Thank you all for the information.

DEFINE CL (NAME(cluster) VOLUME(volser) LINEAR RECATALOG

Did the trick.


On Thu, Mar 6, 2014 at 1:49 PM, Staller, Allan wrote:

> If the clusters are not currently defined, no problem. DEFINE CL
> (NAME(cluster) VOLUME(volser) LINEAR RECATALOG). (All ZFS's are Linear
> VSAM).
>
> If they are currently defined, there are 2 solutions to this:
>
> 1) Move the HLQ (presumably OMVS) to a UCAT and provide uniqueness at
> qualifier 2  or "lower level" qualifiers. I use the LLQ.
> Remember to modify BPXPRM** to include the files/mountpoints.
>
> 2) Alter the files to SYS1. This will allow RECATALOG to function. Only
> datasets with SYS1 or PAGE as the HLQ can be handled w/DEFINE RECATALOG.
> Step one may have to be performed as  temporary measure to get from here
> to there.
>
> The SERVERPAC does create the ZFS's w/ALLOC, however this can also be done
> in JCL. (sample below).
>
> //DEFINE   EXEC   PGM=IDCAMS
> //SYSPRINT DD SYSOUT=X
> //SYSINDD *
>   DEFINE CLUSTER (NAME(clustername  ) -
>LINEAR CYL(x 0)  SHAREOPTIONS(3,3)  -
>...   -
>   ))
> //* Format VSAM Linear Data Set as ZFS Multiple File System Aggregate
> //TMP  EXEC   PGM=IOEAGFMT,REGION=0M,
> // PARM=('-aggregate clustername-compat -size 900720 -grow xx')
> //*STEPLIB DD DISP=SHR,DSN=hlq.SIOELMOD<--LOADLIB FOR ZFS if not
> in LNKLST/LPALST
> //SYSPRINT DD   SYSOUT=X
> //STDOUT   DD   SYSOUT=X
>
>
> HTH,
>
> 
> I have a copy of a DASD volume that contains some OMVS (ZFS) filesystems.
> I realized that I cannot use ISPF 3.4 to catalog the dataset.  I get a
> VSAM DATA SET error.  Looking in at DFSMS AMS I find a RECATALOG option for
> a couple of DEFINEs.  But the ZFS files are created via ALLOC and not a
> DEFINE CLUSTER.  The ALLOC does not appear to have a RECATALOG option.
>
> Is there a way to get these OMVS/ZFS files cataloged?
> 
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>



-- 
The postings on this site are my own and don't necessarily represent
Mainline's positions or opinions

Mark D Pace
Senior Systems Engineer
Mainline Information Systems

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

Re: RECATALOG

[Staller, Allan]

If the clusters are not currently defined, no problem. DEFINE CL (NAME(cluster) 
VOLUME(volser) LINEAR RECATALOG). (All ZFS's are Linear VSAM).

If they are currently defined, there are 2 solutions to this:

1) Move the HLQ (presumably OMVS) to a UCAT and provide uniqueness at qualifier 
2  or "lower level" qualifiers. I use the LLQ. 
Remember to modify BPXPRM** to include the files/mountpoints.

2) Alter the files to SYS1. This will allow RECATALOG to function. Only 
datasets with SYS1 or PAGE as the HLQ can be handled w/DEFINE RECATALOG. 
Step one may have to be performed as  temporary measure to get from here to 
there.

The SERVERPAC does create the ZFS's w/ALLOC, however this can also be done in 
JCL. (sample below).

//DEFINE   EXEC   PGM=IDCAMS
//SYSPRINT DD SYSOUT=X  
//SYSINDD * 
  DEFINE CLUSTER (NAME(clustername  ) - 
   LINEAR CYL(x 0)  SHAREOPTIONS(3,3)  -
   ...   -   
  ))
//* Format VSAM Linear Data Set as ZFS Multiple File System Aggregate   
//TMP  EXEC   PGM=IOEAGFMT,REGION=0M,   
// PARM=('-aggregate clustername-compat -size 900720 -grow xx') 
//*STEPLIB DD DISP=SHR,DSN=hlq.SIOELMOD<--LOADLIB FOR ZFS if not in 
LNKLST/LPALST 
//SYSPRINT DD   SYSOUT=X
//STDOUT   DD   SYSOUT=X


HTH,


I have a copy of a DASD volume that contains some OMVS (ZFS) filesystems.
I realized that I cannot use ISPF 3.4 to catalog the dataset.  I get a VSAM 
DATA SET error.  Looking in at DFSMS AMS I find a RECATALOG option for a couple 
of DEFINEs.  But the ZFS files are created via ALLOC and not a DEFINE CLUSTER.  
The ALLOC does not appear to have a RECATALOG option.

Is there a way to get these OMVS/ZFS files cataloged?


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

Re: RECATALOG

[Pommier, Rex]

Mark,

You should be able to use the DEF RECATALOG.  With the RECATALOG, IDCAMS will 
look at the dataset on the DASD volume and build the catalog entries for the 
dataset.  

Rex

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Mark Pace
Sent: Thursday, March 06, 2014 12:32 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: RECATALOG

I have a copy of a DASD volume that contains some OMVS (ZFS) filesystems.
I realized that I cannot use ISPF 3.4 to catalog the dataset.  I get a VSAM
DATA SET error.  Looking in at DFSMS AMS I find a RECATALOG option for a
couple of DEFINEs.  But the ZFS files are created via ALLOC and not a
DEFINE CLUSTER.  The ALLOC does not appear to have a RECATALOG option.

Is there a way to get these OMVS/ZFS files cataloged?

-- 
The postings on this site are my own and don't necessarily represent
Mainline's positions or opinions

Mark D Pace
Senior Systems Engineer
Mainline Information Systems

--
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 message is confidential, protected from 
disclosure and may be legally privileged.  If the reader of this message is not 
the intended recipient or an employee or agent responsible for delivering this 
message to the intended recipient, you are hereby notified that any disclosure, 
distribution, copying, or any action taken or action omitted in reliance on it, 
is strictly prohibited and may be unlawful.  If you have received this 
communication in error, please notify us immediately by replying to this 
message and destroy the material in its entirety, whether in electronic or hard 
copy format.  Thank you.

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

Re: RECATALOG

[Paul Peplinski]

Define cluster name(dataset.name) recatalog nixd)  ?

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

Re: NODUMP

[Gibney, Dave]

I would favor the fix the problem approach over the suppress the diagnostics 
approach.

> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU]
> On Behalf Of Pommier, Rex
> Sent: Thursday, March 06, 2014 9:16 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: NODUMP
> 
> So break it again!  We want to know!!  :-)
> 
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU]
> On Behalf Of Mark Pace
> Sent: Thursday, March 06, 2014 10:59 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: NODUMP
> 
> Good news/bad news.   Good news, I fixed the problem, so no dump.  Bad
> news,  I don't know if adding the DD DUMMY would have done the trick.
> 
> 
> On Thu, Mar 6, 2014 at 11:17 AM, Burrell, C. Todd (CDC/OCOO/OCIO/ITSO)
> (CTR)  wrote:
> 
> > That should do the trick.  Give it a shot and tell the group if that
> > does not work...
> >
> > Todd Burrell, PMP, ITIL Expert, CISSP | Project Manager | ITSO AHB |
> > Centers for Disease Control and Prevention (CDC) Contractor - HP
> > Enterprise Services | 1600 Clifton Rd, Building 21, MS D24, RM 1300 |
> > Atlanta, GA 30338 | 404-971-7275 (Blackberry) 404-723-2017(Mobile) |
> > z...@cdc.gov
> >
> >
> > THIS COMMUNICATION MAY CONTAIN CONFIDENTIAL AND/OR
> OTHERWISE
> > PROPRIETARY MATERIAL and is for use only by the intended recipient. If
> > you received this in error, please notify the sender and delete the
> > communication from all computers.
> >
> >
> >
> > -Original Message-
> > From: IBM Mainframe Discussion List [mailto:IBM-
> m...@listserv.ua.edu]
> > On Behalf Of Mark Pace
> > Sent: Thursday, March 06, 2014 11:10 AM
> > To: IBM-MAIN@LISTSERV.UA.EDU
> > Subject: Re: NODUMP
> >
> > According to the output it is going to SMPSNAP.
> >
> > JESMSGLG JES2
> > JESJCL   JES2
> > JESYSMSG JES2
> > SMPOUT   SMPER1
> > SMPRPT   SMPER1
> > SYSPRINT SMPER1
> > SMPSNAP  SMPER1
> >
> > So would a
> > //SMPSNAP DD DUMMY
> > remove the dump?
> >
> >
> > On Thu, Mar 6, 2014 at 11:07 AM, Burrell, C. Todd (CDC/OCOO/OCIO/ITSO)
> > (CTR)  wrote:
> >
> > > Can't you just do something in the JCL like this:
> > >
> > > //SYSMDUMP DD DUMMY
> > > //SYSUDUMP DD DUMMY
> > >
> > > Not sure which DD it is going to, but if you dummy it you should not
> > > see a dump?
> > >
> > > Todd Burrell, PMP, ITIL Expert, CISSP | Project Manager | ITSO AHB |
> > > Centers for Disease Control and Prevention (CDC) Contractor - HP
> > > Enterprise Services | 1600 Clifton Rd, Building 21, MS D24, RM 1300
> > > | Atlanta, GA 30338 | 404-971-7275 (Blackberry) 404-723-2017(Mobile)
> > > | z...@cdc.gov
> > >
> > >
> > > THIS COMMUNICATION MAY CONTAIN CONFIDENTIAL AND/OR
> OTHERWISE
> > > PROPRIETARY MATERIAL and is for use only by the intended recipient.
> > > If you received this in error, please notify the sender and delete
> > > the communication from all computers.
> > >
> > >
> > > -Original Message-
> > > From: IBM Mainframe Discussion List
> > > [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Mark Pace
> > > Sent: Thursday, March 06, 2014 11:02 AM
> > > To: IBM-MAIN@LISTSERV.UA.EDU
> > > Subject: NODUMP
> > >
> > > Is there an equivalent of VSE // OPTION NODUMP  ?
> > >
> > > I have a job that fails and produces a huge dump.  I don't want the dump.
> > > Is there a way to suppress the dump being created?  I searched the
> > > JCL
> 
> The information contained in this message is confidential, protected from
> disclosure and may be legally privileged.  If the reader of this message is 
> not
> the intended recipient or an employee or agent responsible for delivering this
> message to the intended recipient, you are hereby notified that any
> disclosure, distribution, copying, or any action taken or action omitted in
> reliance on it, is strictly prohibited and may be unlawful.  If you have 
> received
> this communication in error, please notify us immediately by replying to this
> message and destroy the material in its entirety, whether in electronic or
> hard copy format.  Thank you.
> 
> --
> 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

RECATALOG

[Mark Pace]

I have a copy of a DASD volume that contains some OMVS (ZFS) filesystems.
I realized that I cannot use ISPF 3.4 to catalog the dataset.  I get a VSAM
DATA SET error.  Looking in at DFSMS AMS I find a RECATALOG option for a
couple of DEFINEs.  But the ZFS files are created via ALLOC and not a
DEFINE CLUSTER.  The ALLOC does not appear to have a RECATALOG option.

Is there a way to get these OMVS/ZFS files cataloged?

-- 
The postings on this site are my own and don't necessarily represent
Mainline's positions or opinions

Mark D Pace
Senior Systems Engineer
Mainline Information Systems

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

Re: 0C4 from TSOEXEC IEBCOMPR

[Sri h Kolusu]

Q. Do IEBCOMPR and ISRSUPC both support alternate DDName lists?)

Paul,

I do believe IEBCOMPR can be invoked using alternate DDname list(example 
shown below), but with ISRSUPC I get RC of 24

/* REXX - Invoke IEBCOMPR With alternate DDnames.   */ 
"ALLOC FI(PDS1) DA('KOLUSU.PMR66403.JCL') SHR" 
"ALLOC FI(PDS2) DA('KOLUSU.PMR66403.JCL') SHR" 
"ALLOC DD(REP) DA(*) REU" 
"ALLOC DD(CTL) NEW REU RECFM(F B) LRECL(80)" 
QUEUE "  COMPARE TYPORG=PO " 
"EXECIO "QUEUED()" DISKW CTL (FINIS" 
PROG   = 'IEBCOMPR' 
PARM   = ''   /* STANDARD PARM, AS FROM JCL   */
DDLIST = COPIES('00'X,8) ||,  /* DDNAME  1 OVERRIDE: SYSLIN   */
 COPIES('00'X,8) ||,  /* DDNAME  2 OVERRIDE:  N/A */
 COPIES('00'X,8) ||,  /* DDNAME  3 OVERRIDE: SYSLMOD  */
 COPIES('00'X,8) ||,  /* DDNAME  4 OVERRIDE: SYSLIB   */
 LEFT('CTL',  8) ||,  /* DDNAME  5 OVERRIDE: SYSIN*/
 LEFT('REP',  8) ||,  /* DDNAME  6 OVERRIDE: SYSPRINT */
 COPIES('00'X,8) ||,  /* DDNAME  7 OVERRIDE: SYSPUNCH */
 LEFT('PDS1', 8) ||,  /* DDNAME  8 OVERRIDE: SYSUT1   */
 LEFT('PDS2', 8) ||,  /* DDNAME  9 OVERRIDE: SYSUT2   */
 COPIES('00'X,8) ||,  /* DDNAME 10 OVERRIDE: SYSUT3   */
 COPIES('00'X,8) ||,  /* DDNAME 11 OVERRIDE: SYSUT4   */
 COPIES('00'X,8) ||,  /* DDNAME 12 OVERRIDE: SYSTERM  */
 COPIES('00'X,8) ||,  /* DDNAME 13 OVERRIDE:  N/A */
 COPIES('00'X,8)  /* DDNAME 14 OVERRIDE: SYSCIN   */
ADDRESS 'LINKMVS' PROG 'PARM DDLIST' 
"FREE FI(PDS1 PDS2 CTL REP)" 
EXIT RC 

Sri Hari Kolusu
DFSORT Development
IBM Corporation
Email: skol...@us.ibm.com
Phone: 408-927-2187 Tie Line: 457-2187

IBM Mainframe Discussion List  wrote on 
03/06/2014 09:34:58 AM:

> From: Paul Gilmartin 
> To: IBM-MAIN@listserv.ua.edu, 
> Date: 03/06/2014 09:35 AM
> Subject: Re: 0C4 from TSOEXEC IEBCOMPR
> Sent by: IBM Mainframe Discussion List 
> 
> On Thu, 6 Mar 2014 09:20:56 -0800, Sri h Kolusu wrote:
> 
> >Hansen,
> >
> >The following REXX will invoke IEBCOMPR
> >
> >/* REXX */
> >ADDRESS TSO
> >"ALLOC FI(SYSUT1) DA('Your.PDS1.To.Compare') SHR"
> >"ALLOC FI(SYSUT2) DA('Your.PDS2.To.Compare') SHR"
> >"ALLOC DD(SYSPRINT) DA(*) REU"
> >"ALLOC DD(SYSIN) NEW REU RECFM(F B) LRECL(80)"
> >QUEUE "  COMPARE TYPORG=PO "
> >"EXECIO "QUEUED()" DISKW SYSIN (FINIS"
> >"CALL *(IEBCOMPR)"
> >"FREE FI(SYSUT1 SYSUT2 SYSIN SYSPRINT)"
> > 
> (I use BPXWDYN() and "address LINKMVS" to avoid a TSO prerequisite.
> Often, I use RTDDN(name) and an alternate DDName list to avoid
> collision with existing allocations.  Do IEBCOMPR and ISRSUPC both
> support alternate DDName lists?)
> 
> -- gil
> 
> --
> 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: OC4 from TSOEXEC IEBCOMPR

[Terry Sambrooks]

Hi Dave,

Following on from the earlier comments the attached is a REXX snippet I used
for the ISPF Search facility but a similar approach should work with compare
I would have thought.

/* REXX */  
/* Allocate the library to be searched - NEWDD */   
"ALLOC DA('VERE301.LOADLIB') SHR F(NEWDD)"  
/* Allocate the search listing - OUTDD */   
"ALLOC NEW DELETE F(OUTDD) LRECL(133) BLKSIZE(1330) RECFM(F B)",
   "SPACE(1 1) TRACKS DA(SEARCH.LIST)"  
/* Build the search arguments on   - SYSIN */   
srcha.0 = 2 
srcha.1 = "SRCHFOR  '2004'" 
srcha.2 = "SELECT COB00"
"ALLOC NEW DELETE F(SYSIN) LRECL(80) BLKSIZE(800) RECFM(F B)",  
   "SPACE(1 1) TRACKS"  
"EXECIO * DISKW SYSIN (STEM srcha. FINIS"   
/* Execute Search-For ISPF 3.14 */  
"CALL *(ISRSUPC) 'SRCHCMP,''ANYC''' "   
/* View search results  */  
Address ISPEXEC "VIEW DATASET(SEARCH.LIST)" 
  Exit  

Kind Regards - Terry
 
Director
KMS-IT Limited
228 Abbeydale Road South
Dore
Sheffield
S17 3LA
UK
 
Reg : 3767263
 
Outgoing e-mails have been scanned, but it is the recipients responsibility
to ensure their anti-virus software is up to date.
 
 


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

Re: SSD in DFSMS

[R.S.]

Lizette,
Thank you, that an example I was looking for.

However another question came to my mind: why mixed SG?
Yes, I can put both SSD and "regular" volumes to one SG, but I can also 
create two separate storage groups. Why mixed SG is better?

What are the pro's and con's?

Remarks:
1. Separate Storage Groups are IMHO the only solution for distinction of 
SATA, FC10k, FC15k, etc. disks. Of course when you care about performance.
2. FAST VP and similar facilities makes the above mechanism not 
applicable, unusable.
3. I don't know details, but z/OS 2.1 introduced some new "tiering" 
facilities, I think it's kind of "FAST VP" at system level. It can be 
interesting.


Regards

--
Radoslaw Skorupka
Lodz, Poland







W dniu 2014-03-06 15:42, Lizette Koehler pisze:

I currently have 2 VMAX 20Ks.  I have a my SSD separated to specific pools.

I do have one mixed pool (SSD and Spinning).  This is a response I got when
I posted this question:

  


If a Storage Group contains a mix of SSD and HDD volumes, to divert datasets
on HDD volumes, assign them a Storage Class with these attributes:
  DIRECT MSR  = 1
  DIRECT BIAS = R
  Do not specify any values for SEQUENTIAL MSR or
BIAS.   *

To direct storage allocation away from SSD, specify a DataClass with:
  
  DIRECT MSR = 10

  DIRECT BIAS = R

In case of HSM restore, dataset will be allocated depending on its SMS
attributes


So, you can separate datasets in a mixed pool by creating classes in DATA
and STORAGE with FAST and SLOW attributes.


HTH
Lizette



-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of R.S.
Sent: Thursday, March 06, 2014 7:33 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: SSD in DFSMS

W dniu 2014-03-06 15:19, Lizette Koehler pisze:

What hardware are you using  SSD in?

IBM DS8???
EMC VMAX or DMX
HDS

If you have a VMAX 40K then the product FAST VP probably will replace
the need for you to tune the SSD in HSM.

If you have a DS8870 then Protect Tier or Fast Tier may replace the
need to manage the SSD.

The Hardware Storage Arrays are now taking over moving data that is
"hot" to faster devices without HSM or the user knowing it is occurring.


It's VMAX (first model), however my quesion was rather general, just to

learn.

I'm aware of FAST VP or similar features, but we're not using it.

--
Radoslaw Skorupka
Lodz, Poland



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





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

mBank S.A. z siedzib w Warszawie, ul. Senatorska 18, 00-950 Warszawa, www.mBank.pl, e-mail: kont...@mbank.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.2014 r. kapita zakadowy mBanku S.A. (w caoci wpacony) wynosi 168.696.052 zote.



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

Re: IDCAMS if-else

[Paul Gilmartin]

On Wed, 5 Mar 2014 18:21:34 -0500, Micheal Butz wrote:
>
>I have 2 files and would li[k]e to see
>If one or both or none exist
>
>I am using IDCAMS if-else sequence
> 
An alternative if TSO is available is to use LISTDSI which (I think)
returns "tracks used" in a variable.  Requires that the data sets be
on DASD and catalogued.

Or run LISTDS and scrape tracks used from its output.

Damn!  Why does OS/360 make things so difficult which should be
easy!?

-- gil

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

Re: 0C4 from TSOEXEC IEBCOMPR

[Paul Gilmartin]

On Thu, 6 Mar 2014 09:20:56 -0800, Sri h Kolusu wrote:

>Hansen,
>
>The following REXX will invoke IEBCOMPR
>
>/* REXX */
>ADDRESS TSO
>"ALLOC FI(SYSUT1) DA('Your.PDS1.To.Compare') SHR"
>"ALLOC FI(SYSUT2) DA('Your.PDS2.To.Compare') SHR"
>"ALLOC DD(SYSPRINT) DA(*) REU"
>"ALLOC DD(SYSIN) NEW REU RECFM(F B) LRECL(80)"
>QUEUE "  COMPARE TYPORG=PO "
>"EXECIO "QUEUED()" DISKW SYSIN (FINIS"
>"CALL *(IEBCOMPR)"
>"FREE FI(SYSUT1 SYSUT2 SYSIN SYSPRINT)"
> 
(I use BPXWDYN() and "address LINKMVS" to avoid a TSO prerequisite.
Often, I use RTDDN(name) and an alternate DDName list to avoid
collision with existing allocations.  Do IEBCOMPR and ISRSUPC both
support alternate DDName lists?)

-- gil

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

Re: 0C4 from TSOEXEC IEBCOMPR

[Paul Gilmartin]

On Thu, 6 Mar 2014 15:43:22 +, Hansen, Dave L - Eagan, MN wrote:
>
>  My trace ===> 30 *-* "ISPEXEC SELECT PGM(ISRSUPC)"
>>L>   "ISPEXEC SELECT PGM(ISRSUPC)"
> 
Eek!

I've always just ALLOCATEd a couple DDNames and done "address LINKMVS ISRSUPC".
(It may need a control file).  Works outside ISPF environment.

Caution:  RC indicates failure if the data sets match; success if they don't 
match
(it's all subjective).

-- gil

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

Re: 0C4 from TSOEXEC IEBCOMPR

[Sri h Kolusu]

Hansen,

The following REXX will invoke IEBCOMPR

/* REXX */ 
ADDRESS TSO 
"ALLOC FI(SYSUT1) DA('Your.PDS1.To.Compare') SHR" 
"ALLOC FI(SYSUT2) DA('Your.PDS2.To.Compare') SHR" 
"ALLOC DD(SYSPRINT) DA(*) REU" 
"ALLOC DD(SYSIN) NEW REU RECFM(F B) LRECL(80)" 
QUEUE "  COMPARE TYPORG=PO " 
"EXECIO "QUEUED()" DISKW SYSIN (FINIS" 
"CALL *(IEBCOMPR)" 
"FREE FI(SYSUT1 SYSUT2 SYSIN SYSPRINT)" 

Thanks,
Kolusu

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

Re: NODUMP

[Pommier, Rex]

So break it again!  We want to know!!  :-)

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Mark Pace
Sent: Thursday, March 06, 2014 10:59 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: NODUMP

Good news/bad news.   Good news, I fixed the problem, so no dump.  Bad
news,  I don't know if adding the DD DUMMY would have done the trick.


On Thu, Mar 6, 2014 at 11:17 AM, Burrell, C. Todd (CDC/OCOO/OCIO/ITSO)
(CTR)  wrote:

> That should do the trick.  Give it a shot and tell the group if that does
> not work...
>
> Todd Burrell, PMP, ITIL Expert, CISSP | Project Manager | ITSO AHB |
> Centers for Disease Control and Prevention (CDC)
> Contractor - HP Enterprise Services | 1600 Clifton Rd, Building 21, MS
> D24, RM 1300 | Atlanta, GA 30338 | 404-971-7275 (Blackberry) 
> 404-723-2017(Mobile) |
> z...@cdc.gov
>
>
> THIS COMMUNICATION MAY CONTAIN CONFIDENTIAL AND/OR OTHERWISE PROPRIETARY
> MATERIAL and is for use only by the intended recipient. If you received
> this in error, please notify the sender and delete the communication from
> all computers.
>
>
>
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of Mark Pace
> Sent: Thursday, March 06, 2014 11:10 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: NODUMP
>
> According to the output it is going to SMPSNAP.
>
> JESMSGLG JES2
> JESJCL   JES2
> JESYSMSG JES2
> SMPOUT   SMPER1
> SMPRPT   SMPER1
> SYSPRINT SMPER1
> SMPSNAP  SMPER1
>
> So would a
> //SMPSNAP DD DUMMY
> remove the dump?
>
>
> On Thu, Mar 6, 2014 at 11:07 AM, Burrell, C. Todd (CDC/OCOO/OCIO/ITSO)
> (CTR)  wrote:
>
> > Can't you just do something in the JCL like this:
> >
> > //SYSMDUMP DD DUMMY
> > //SYSUDUMP DD DUMMY
> >
> > Not sure which DD it is going to, but if you dummy it you should not
> > see a dump?
> >
> > Todd Burrell, PMP, ITIL Expert, CISSP | Project Manager | ITSO AHB |
> > Centers for Disease Control and Prevention (CDC) Contractor - HP
> > Enterprise Services | 1600 Clifton Rd, Building 21, MS D24, RM 1300 |
> > Atlanta, GA 30338 | 404-971-7275 (Blackberry) 404-723-2017(Mobile) |
> > z...@cdc.gov
> >
> >
> > THIS COMMUNICATION MAY CONTAIN CONFIDENTIAL AND/OR OTHERWISE
> > PROPRIETARY MATERIAL and is for use only by the intended recipient. If
> > you received this in error, please notify the sender and delete the
> > communication from all computers.
> >
> >
> > -Original Message-
> > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU]
> > On Behalf Of Mark Pace
> > Sent: Thursday, March 06, 2014 11:02 AM
> > To: IBM-MAIN@LISTSERV.UA.EDU
> > Subject: NODUMP
> >
> > Is there an equivalent of VSE // OPTION NODUMP  ?
> >
> > I have a job that fails and produces a huge dump.  I don't want the dump.
> > Is there a way to suppress the dump being created?  I searched the JCL

The information contained in this message is confidential, protected from 
disclosure and may be legally privileged.  If the reader of this message is not 
the intended recipient or an employee or agent responsible for delivering this 
message to the intended recipient, you are hereby notified that any disclosure, 
distribution, copying, or any action taken or action omitted in reliance on it, 
is strictly prohibited and may be unlawful.  If you have received this 
communication in error, please notify us immediately by replying to this 
message and destroy the material in its entirety, whether in electronic or hard 
copy format.  Thank you.

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

Re: NODUMP

[Mark Pace]

Good news/bad news.   Good news, I fixed the problem, so no dump.  Bad
news,  I don't know if adding the DD DUMMY would have done the trick.


On Thu, Mar 6, 2014 at 11:17 AM, Burrell, C. Todd (CDC/OCOO/OCIO/ITSO)
(CTR)  wrote:

> That should do the trick.  Give it a shot and tell the group if that does
> not work...
>
> Todd Burrell, PMP, ITIL Expert, CISSP | Project Manager | ITSO AHB |
> Centers for Disease Control and Prevention (CDC)
> Contractor - HP Enterprise Services | 1600 Clifton Rd, Building 21, MS
> D24, RM 1300 | Atlanta, GA 30338 | 404-971-7275 (Blackberry) 
> 404-723-2017(Mobile) |
> z...@cdc.gov
>
>
> THIS COMMUNICATION MAY CONTAIN CONFIDENTIAL AND/OR OTHERWISE PROPRIETARY
> MATERIAL and is for use only by the intended recipient. If you received
> this in error, please notify the sender and delete the communication from
> all computers.
>
>
>
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of Mark Pace
> Sent: Thursday, March 06, 2014 11:10 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: NODUMP
>
> According to the output it is going to SMPSNAP.
>
> JESMSGLG JES2
> JESJCL   JES2
> JESYSMSG JES2
> SMPOUT   SMPER1
> SMPRPT   SMPER1
> SYSPRINT SMPER1
> SMPSNAP  SMPER1
>
> So would a
> //SMPSNAP DD DUMMY
> remove the dump?
>
>
> On Thu, Mar 6, 2014 at 11:07 AM, Burrell, C. Todd (CDC/OCOO/OCIO/ITSO)
> (CTR)  wrote:
>
> > Can't you just do something in the JCL like this:
> >
> > //SYSMDUMP DD DUMMY
> > //SYSUDUMP DD DUMMY
> >
> > Not sure which DD it is going to, but if you dummy it you should not
> > see a dump?
> >
> > Todd Burrell, PMP, ITIL Expert, CISSP | Project Manager | ITSO AHB |
> > Centers for Disease Control and Prevention (CDC) Contractor - HP
> > Enterprise Services | 1600 Clifton Rd, Building 21, MS D24, RM 1300 |
> > Atlanta, GA 30338 | 404-971-7275 (Blackberry) 404-723-2017(Mobile) |
> > z...@cdc.gov
> >
> >
> > THIS COMMUNICATION MAY CONTAIN CONFIDENTIAL AND/OR OTHERWISE
> > PROPRIETARY MATERIAL and is for use only by the intended recipient. If
> > you received this in error, please notify the sender and delete the
> > communication from all computers.
> >
> >
> > -Original Message-
> > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU]
> > On Behalf Of Mark Pace
> > Sent: Thursday, March 06, 2014 11:02 AM
> > To: IBM-MAIN@LISTSERV.UA.EDU
> > Subject: NODUMP
> >
> > Is there an equivalent of VSE // OPTION NODUMP  ?
> >
> > I have a job that fails and produces a huge dump.  I don't want the dump.
> > Is there a way to suppress the dump being created?  I searched the JCL
> > reference but don't see anything.
> >
> > --
> > The postings on this site are my own and don't necessarily represent
> > Mainline's positions or opinions
> >
> > Mark D Pace
> > Senior Systems Engineer
> > Mainline Information Systems
> >
> > --
> > 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
> >
>
>
>
> --
> The postings on this site are my own and don't necessarily represent
> Mainline's positions or opinions
>
> Mark D Pace
> Senior Systems Engineer
> Mainline Information Systems
>
> --
> 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
>



-- 
The postings on this site are my own and don't necessarily represent
Mainline's positions or opinions

Mark D Pace
Senior Systems Engineer
Mainline Information Systems

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

Re: IDCAMS if-else

[Sri h Kolusu]

Greg,

You can actually use ICETOOL operator MODE to skip checking the second 
file if the first file is empty

//STEP0100 EXEC PGM=ICETOOL 
//TOOLMSG  DD SYSOUT=* 
//DFSMSG   DD SYSOUT=* 
//IN1  DD * 
//IN2  DD * 
//TOOLIN   DD * 
  MODE STOP 
  COUNT FROM(IN1) EMPTY RC8 
  COUNT FROM(IN2) EMPTY RC4 
//* 

If IN1 is empty then the second COUNT operator will not RUN

However I do think OP wanted to check even if the file did not exist. So 
if the files to be checked do not exist the above job will end with a JCL 
error.  With IDCAMS you can pass the filename via sysin cards and they do 
not result in JCL error if the files do NOT exist. So here is a JCL that 
OP can use 

//**
//* RC = 08 IF FILEA AND FILEB ARE EMPTY   *
//* RC = 04 IF FILEA HAS ATLEAST 1 RECORD AND FILEB IS EMPTY   *
//* RC = 12 IF FILEA NOR FILEB DOES NOT EXIST  *
//**
//STEP0100 EXEC PGM=IDCAMS 
//SYSPRINT DD SYSOUT=* 
//SYSINDD * 
  PRINT INDATASET('FileA') COUNT (1) 
  IF LASTCC NE 0 THEN DO 
 PRINT INDATASET('FileB') COUNT (1) 
 IF LASTCC NE 0 THEN SET LASTCC=8 
 ELSE SET LASTCC = 4 
 END 
  ELSE 
 PRINT INDATASET('FileB') COUNT (1) 
 IF LASTCC NE 0 THEN SET LASTCC=4 
 END 
  END 
//* 

Thanks, 
Kolusu
DFSORT Development
IBM Corporation



From:   Greg Shirey 
To: IBM-MAIN@listserv.ua.edu, 
Date:   03/06/2014 06:39 AM
Subject:Re: IDCAMS if-else
Sent by:IBM Mainframe Discussion List 



As an alternative, you can use ICETOOL, if you have it, to test for an 
empty data set. 

The text below is from IBM's Smart DFSORT Tricks: 

For example, in the following ICETOOL job, the EMPTY operand of COUNT is 
used to stop STEP2 from being
executed if the IN data set is empty. ICETOOL sets RC=8 (because the RC8 
operand is specified) if the IN data
set is empty, or RC=0 if the IN data set is not empty. ICETOOL only reads 
one record to determine if the data set
is empty or not empty, regardless of how many records there are in the 
data set.

//STEP1 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN DD DSN=...
//TOOLIN DD *
* SET RC=8 IF THE 'IN' DATA SET IS EMPTY, OR
* SET RC=0 IF THE 'IN' DATA SET IS NOT EMPTY
COUNT FROM(IN) EMPTY RC8
/*
// IF STEP1.RC = 0 THEN
//*** STEP2 WILL RUN IF 'IN' IS NOT EMPTY
//*** STEP2 WILL NOT RUN IF 'IN' IS EMPTY
//STEP2 EXEC ...
...
// ENDIF

HTH,
Greg Shirey
Ben E. Keith Company 

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On 
Behalf Of Micheal Butz
Sent: Wednesday, March 05, 2014 5:22 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: IDCAMS if-else

I have 2 files and would lime to see
If one or both or none exist

I am using IDCAMS if-else sequence
With a command of print for this

However I am always coming up with a cc of 0 in the jcl for this step 

E.G.
Let's say filea is empty so is fileb
  Print indataset(filea) count (1)
If lastcc ne 0 then do
Print indataset(fileb) count (1)
   If lastcc = 0 then set lastcc = 8
  Else
Set lastcc = 0
End
Else do
 Print indataset(fileb) count(1)
  If lastcc ne 0 then
   Set lastcc = 4
End

I always cone up with a 0 for the IDCAMS job step when it should be in the 
case of 2 empty file 8 Sent from my iPhone

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

[Skip Robinson]

If this is a chronic problem and never want to see a dump, I suggest a 
z/OS SLIP trap:

SL SET,ID=four-chars,J=job-name,A=NODUMP

Other variations for ACTION: 
IGNORE/NODUMP/NOSUP/NOSVCD/NOSYSA/NOSYSU/NOSYSM 

 

 
.
.
J.O.Skip Robinson
Southern California Edison Company
Electric Dragon Team Paddler 
SHARE MVS Program Co-Manager
626-302-7535 Office
323-715-0595 Mobile
jo.skip.robin...@sce.com



From:   Lizette Koehler 
To: IBM-MAIN@LISTSERV.UA.EDU, 
Date:   03/06/2014 08:23 AM
Subject:Re: NODUMP
Sent by:IBM Mainframe Discussion List 



You can add the //SMPNAP DD DUMMY or remove the entry from SMP/E

Lizette


> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of Mark Pace
> Sent: Thursday, March 06, 2014 9:10 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: NODUMP
> 
> According to the output it is going to SMPSNAP.
> 
> JESMSGLG JES2
> JESJCL   JES2
> JESYSMSG JES2
> SMPOUT   SMPER1
> SMPRPT   SMPER1
> SYSPRINT SMPER1
> SMPSNAP  SMPER1
> 
> So would a
> //SMPSNAP DD DUMMY
> remove the dump?
> 
> 
> On Thu, Mar 6, 2014 at 11:07 AM, Burrell, C. Todd (CDC/OCOO/OCIO/ITSO)
> (CTR)  wrote:
> 
> > Can't you just do something in the JCL like this:
> >
> > //SYSMDUMP DD DUMMY
> > //SYSUDUMP DD DUMMY
> >
> > Not sure which DD it is going to, but if you dummy it you should not
> > see a dump?
> >
> > Todd Burrell, PMP, ITIL Expert, CISSP | Project Manager | ITSO AHB |
> > Centers for Disease Control and Prevention (CDC) Contractor - HP
> > Enterprise Services | 1600 Clifton Rd, Building 21, MS D24, RM 1300 |
> > Atlanta, GA 30338 | 404-971-7275 (Blackberry) 404-723-2017(Mobile) |
> > z...@cdc.gov
> >
> >
> > THIS COMMUNICATION MAY CONTAIN CONFIDENTIAL AND/OR
> OTHERWISE
> > PROPRIETARY MATERIAL and is for use only by the intended recipient. If
> > you received this in error, please notify the sender and delete the
> > communication from all computers.
> >
> >
> > -Original Message-
> > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU]
> > On Behalf Of Mark Pace
> > Sent: Thursday, March 06, 2014 11:02 AM
> > To: IBM-MAIN@LISTSERV.UA.EDU
> > Subject: NODUMP
> >
> > Is there an equivalent of VSE // OPTION NODUMP  ?
> >
> > I have a job that fails and produces a huge dump.  I don't want the
dump.
> > Is there a way to suppress the dump being created?  I searched the JCL
> > reference but don't see anything.
> >
> > --
> > The postings on this site are my own and don't necessarily represent
> > Mainline's positions or opinions
> >
> > Mark D Pace
> > Senior Systems Engineer
> > Mainline Information Systems
> >


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

Re: NODUMP

[Lizette Koehler]

You can add the //SMPNAP DD DUMMY or remove the entry from SMP/E

Lizette


> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of Mark Pace
> Sent: Thursday, March 06, 2014 9:10 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: NODUMP
> 
> According to the output it is going to SMPSNAP.
> 
> JESMSGLG JES2
> JESJCL   JES2
> JESYSMSG JES2
> SMPOUT   SMPER1
> SMPRPT   SMPER1
> SYSPRINT SMPER1
> SMPSNAP  SMPER1
> 
> So would a
> //SMPSNAP DD DUMMY
> remove the dump?
> 
> 
> On Thu, Mar 6, 2014 at 11:07 AM, Burrell, C. Todd (CDC/OCOO/OCIO/ITSO)
> (CTR)  wrote:
> 
> > Can't you just do something in the JCL like this:
> >
> > //SYSMDUMP DD DUMMY
> > //SYSUDUMP DD DUMMY
> >
> > Not sure which DD it is going to, but if you dummy it you should not
> > see a dump?
> >
> > Todd Burrell, PMP, ITIL Expert, CISSP | Project Manager | ITSO AHB |
> > Centers for Disease Control and Prevention (CDC) Contractor - HP
> > Enterprise Services | 1600 Clifton Rd, Building 21, MS D24, RM 1300 |
> > Atlanta, GA 30338 | 404-971-7275 (Blackberry) 404-723-2017(Mobile) |
> > z...@cdc.gov
> >
> >
> > THIS COMMUNICATION MAY CONTAIN CONFIDENTIAL AND/OR
> OTHERWISE
> > PROPRIETARY MATERIAL and is for use only by the intended recipient. If
> > you received this in error, please notify the sender and delete the
> > communication from all computers.
> >
> >
> > -Original Message-
> > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU]
> > On Behalf Of Mark Pace
> > Sent: Thursday, March 06, 2014 11:02 AM
> > To: IBM-MAIN@LISTSERV.UA.EDU
> > Subject: NODUMP
> >
> > Is there an equivalent of VSE // OPTION NODUMP  ?
> >
> > I have a job that fails and produces a huge dump.  I don't want the
dump.
> > Is there a way to suppress the dump being created?  I searched the JCL
> > reference but don't see anything.
> >
> > --
> > The postings on this site are my own and don't necessarily represent
> > Mainline's positions or opinions
> >
> > Mark D Pace
> > Senior Systems Engineer
> > Mainline Information Systems
> >

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

Re: NODUMP

[Burrell, C. Todd (CDC/OCOO/OCIO/ITSO) (CTR)]

That should do the trick.  Give it a shot and tell the group if that does not 
work...  

Todd Burrell, PMP, ITIL Expert, CISSP | Project Manager | ITSO AHB | Centers 
for Disease Control and Prevention (CDC)
Contractor - HP Enterprise Services | 1600 Clifton Rd, Building 21, MS D24, RM 
1300 | Atlanta, GA 30338 | 404-971-7275 (Blackberry) 404-723-2017 (Mobile) | 
z...@cdc.gov


THIS COMMUNICATION MAY CONTAIN CONFIDENTIAL AND/OR OTHERWISE PROPRIETARY 
MATERIAL and is for use only by the intended recipient. If you received this in 
error, please notify the sender and delete the communication from all computers.



-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Mark Pace
Sent: Thursday, March 06, 2014 11:10 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: NODUMP

According to the output it is going to SMPSNAP.

JESMSGLG JES2
JESJCL   JES2
JESYSMSG JES2
SMPOUT   SMPER1
SMPRPT   SMPER1
SYSPRINT SMPER1
SMPSNAP  SMPER1

So would a
//SMPSNAP DD DUMMY
remove the dump?


On Thu, Mar 6, 2014 at 11:07 AM, Burrell, C. Todd (CDC/OCOO/OCIO/ITSO)
(CTR)  wrote:

> Can't you just do something in the JCL like this:
>
> //SYSMDUMP DD DUMMY
> //SYSUDUMP DD DUMMY
>
> Not sure which DD it is going to, but if you dummy it you should not 
> see a dump?
>
> Todd Burrell, PMP, ITIL Expert, CISSP | Project Manager | ITSO AHB | 
> Centers for Disease Control and Prevention (CDC) Contractor - HP 
> Enterprise Services | 1600 Clifton Rd, Building 21, MS D24, RM 1300 | 
> Atlanta, GA 30338 | 404-971-7275 (Blackberry) 404-723-2017(Mobile) | 
> z...@cdc.gov
>
>
> THIS COMMUNICATION MAY CONTAIN CONFIDENTIAL AND/OR OTHERWISE 
> PROPRIETARY MATERIAL and is for use only by the intended recipient. If 
> you received this in error, please notify the sender and delete the 
> communication from all computers.
>
>
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] 
> On Behalf Of Mark Pace
> Sent: Thursday, March 06, 2014 11:02 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: NODUMP
>
> Is there an equivalent of VSE // OPTION NODUMP  ?
>
> I have a job that fails and produces a huge dump.  I don't want the dump.
> Is there a way to suppress the dump being created?  I searched the JCL 
> reference but don't see anything.
>
> --
> The postings on this site are my own and don't necessarily represent 
> Mainline's positions or opinions
>
> Mark D Pace
> Senior Systems Engineer
> Mainline Information Systems
>
> --
> 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
>



--
The postings on this site are my own and don't necessarily represent Mainline's 
positions or opinions

Mark D Pace
Senior Systems Engineer
Mainline Information Systems

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

[Burrell, C. Todd (CDC/OCOO/OCIO/ITSO) (CTR)]

Can't you just do something in the JCL like this:

//SYSMDUMP DD DUMMY
//SYSUDUMP DD DUMMY

Not sure which DD it is going to, but if you dummy it you should not see a dump?

Todd Burrell, PMP, ITIL Expert, CISSP | Project Manager | ITSO AHB | Centers 
for Disease Control and Prevention (CDC)
Contractor - HP Enterprise Services | 1600 Clifton Rd, Building 21, MS D24, RM 
1300 | Atlanta, GA 30338 | 404-971-7275 (Blackberry) 404-723-2017 (Mobile) | 
z...@cdc.gov


THIS COMMUNICATION MAY CONTAIN CONFIDENTIAL AND/OR OTHERWISE PROPRIETARY 
MATERIAL and is for use only by the intended recipient. If you received this in 
error, please notify the sender and delete the communication from all computers.


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Mark Pace
Sent: Thursday, March 06, 2014 11:02 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: NODUMP

Is there an equivalent of VSE // OPTION NODUMP  ?

I have a job that fails and produces a huge dump.  I don't want the dump.
Is there a way to suppress the dump being created?  I searched the JCL 
reference but don't see anything.

--
The postings on this site are my own and don't necessarily represent Mainline's 
positions or opinions

Mark D Pace
Senior Systems Engineer
Mainline Information Systems

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

[Mark Pace]

According to the output it is going to SMPSNAP.

JESMSGLG JES2
JESJCL   JES2
JESYSMSG JES2
SMPOUT   SMPER1
SMPRPT   SMPER1
SYSPRINT SMPER1
SMPSNAP  SMPER1

So would a
//SMPSNAP DD DUMMY
remove the dump?


On Thu, Mar 6, 2014 at 11:07 AM, Burrell, C. Todd (CDC/OCOO/OCIO/ITSO)
(CTR)  wrote:

> Can't you just do something in the JCL like this:
>
> //SYSMDUMP DD DUMMY
> //SYSUDUMP DD DUMMY
>
> Not sure which DD it is going to, but if you dummy it you should not see a
> dump?
>
> Todd Burrell, PMP, ITIL Expert, CISSP | Project Manager | ITSO AHB |
> Centers for Disease Control and Prevention (CDC)
> Contractor - HP Enterprise Services | 1600 Clifton Rd, Building 21, MS
> D24, RM 1300 | Atlanta, GA 30338 | 404-971-7275 (Blackberry) 
> 404-723-2017(Mobile) |
> z...@cdc.gov
>
>
> THIS COMMUNICATION MAY CONTAIN CONFIDENTIAL AND/OR OTHERWISE PROPRIETARY
> MATERIAL and is for use only by the intended recipient. If you received
> this in error, please notify the sender and delete the communication from
> all computers.
>
>
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of Mark Pace
> Sent: Thursday, March 06, 2014 11:02 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: NODUMP
>
> Is there an equivalent of VSE // OPTION NODUMP  ?
>
> I have a job that fails and produces a huge dump.  I don't want the dump.
> Is there a way to suppress the dump being created?  I searched the JCL
> reference but don't see anything.
>
> --
> The postings on this site are my own and don't necessarily represent
> Mainline's positions or opinions
>
> Mark D Pace
> Senior Systems Engineer
> Mainline Information Systems
>
> --
> 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
>



-- 
The postings on this site are my own and don't necessarily represent
Mainline's positions or opinions

Mark D Pace
Senior Systems Engineer
Mainline Information Systems

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

NODUMP

[Mark Pace]

Is there an equivalent of VSE // OPTION NODUMP  ?

I have a job that fails and produces a huge dump.  I don't want the dump.
Is there a way to suppress the dump being created?  I searched the JCL
reference but don't see anything.

-- 
The postings on this site are my own and don't necessarily represent
Mainline's positions or opinions

Mark D Pace
Senior Systems Engineer
Mainline Information Systems

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

Re: 0C4 from TSOEXEC IEBCOMPR

[Hansen, Dave L - Eagan, MN]

Terry,

   Thank you for your update.  I am changing course away from IEBCOMPR and 
moving towards ISRSUPC.  I found our ISPF SAMPLIB that has ISRSCLST and 
ISRSPROC.  I would like to automate comparing a bunch of FONT libs.

   Our ISPF LOAD lib has ISRSUPC.  I tried "TSOEXEC ISRSUPC" in my EXEC.  It 
just hung.  I looked at what was required and I thought with the defaults that 
maybe something would complete.

   OK, I can do this.  I'll just call ISPF from my EXEC.  I tried "ISPEXEC 
SELECT PGM(ISRSUPC)".  I've done some panels, but I have not done much with 
calling ISPF programs.  This also just hung.

  My trace ===> 30 *-* "ISPEXEC SELECT PGM(ISRSUPC)"
>L>   "ISPEXEC SELECT PGM(ISRSUPC)"

   It looks like the example ISRSCLST.  But I didn't pass LISTING, CTYPE, or 
PROCESS.  They should default.


Q).  Both calls to ISRSUPC just hang.  Is there something in the environment I 
have not taken into consideration I need to setup?  Can ISRSUPC be called from 
either TSOEXEC and ISPEXEC?


  Thanks again for your insight,  Dave 



-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Terry Sambrooks
Sent: Thursday, March 06, 2014 2:14 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: 0C4 from TSOEXEC IEBCOMPR

Hi Dave,

Acknowledging that an example for comparing two PDSEs may existing in the z/OS 
V1R12.0 DFSMSdfp Utilities (SC26-7414-07) manual.

When I last looked at IEBCOMPR in the utilities manual, I notice the very first 
paragraph is "Recommendation: Use the SuperC utility instead of IEBCOMPR. 
SuperC is part of ISPF/PDF and the High Level Assembler Toolkit Feature. SuperC 
can be processed in the foreground as well as in batch and its report is more 
useful."

IEBCOMPR was never brilliant as it would stop after 10 consecutive errors, 
which is easily induced if a record is deleted from a file.

Kind Regards - Terry
 
Director
KMS-IT Limited
228 Abbeydale Road South
Dore
Sheffield
S17 3LA
UK
 
Reg : 3767263
 
Outgoing e-mails have been scanned, but it is the recipients responsibility to 
ensure their anti-virus software is up to date.
 
 


--
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: SSD in DFSMS

[Lizette Koehler]

I currently have 2 VMAX 20Ks.  I have a my SSD separated to specific pools.

I do have one mixed pool (SSD and Spinning).  This is a response I got when
I posted this question:

 

If a Storage Group contains a mix of SSD and HDD volumes, to divert datasets
on HDD volumes, assign them a Storage Class with these attributes: 
 DIRECT MSR  = 1 
 DIRECT BIAS = R 
 Do not specify any values for SEQUENTIAL MSR or
BIAS.   *

To direct storage allocation away from SSD, specify a DataClass with:  
 
 DIRECT MSR = 10 
 DIRECT BIAS = R 

In case of HSM restore, dataset will be allocated depending on its SMS
attributes


So, you can separate datasets in a mixed pool by creating classes in DATA
and STORAGE with FAST and SLOW attributes.


HTH
Lizette


> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of R.S.
> Sent: Thursday, March 06, 2014 7:33 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: SSD in DFSMS
> 
> W dniu 2014-03-06 15:19, Lizette Koehler pisze:
> > What hardware are you using  SSD in?
> >
> > IBM DS8???
> > EMC VMAX or DMX
> > HDS
> >
> > If you have a VMAX 40K then the product FAST VP probably will replace
> > the need for you to tune the SSD in HSM.
> >
> > If you have a DS8870 then Protect Tier or Fast Tier may replace the
> > need to manage the SSD.
> >
> > The Hardware Storage Arrays are now taking over moving data that is
> > "hot" to faster devices without HSM or the user knowing it is occurring.
> >
> It's VMAX (first model), however my quesion was rather general, just to
learn.
> I'm aware of FAST VP or similar features, but we're not using it.
> 
> --
> Radoslaw Skorupka
> Lodz, Poland
> 
> 

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

Re: Validation of a resource name

[John Gilmore]

David has, I think, already made the necessary distinction.  He had
substantive, as opposed to format/syntax validation in mind.  There is
no objection to enforcing a syntactic requirement early that it will
anyway be enforced later.

There is the question whether one should bother, and the answer to it
is contextual.

I sometimes, for example, write macro-definition mnotes explicating
errors that the assembler would diagnose anyway but too summarily or
using terminology that would be opaque to non-programmer users.  In
general, though, redundant checks are problematic, not just wasteful.
They require that error-prone collateral changes be made in too many
places when a constraint is relaxed.

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: IDCAMS if-else

[Greg Shirey]

As an alternative, you can use ICETOOL, if you have it, to test for an empty 
data set.  

The text below is from IBM's Smart DFSORT Tricks:  

For example, in the following ICETOOL job, the EMPTY operand of COUNT is used 
to stop STEP2 from being
executed if the IN data set is empty. ICETOOL sets RC=8 (because the RC8 
operand is specified) if the IN data
set is empty, or RC=0 if the IN data set is not empty. ICETOOL only reads one 
record to determine if the data set
is empty or not empty, regardless of how many records there are in the data set.

//STEP1 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN DD DSN=...
//TOOLIN DD *
* SET RC=8 IF THE 'IN' DATA SET IS EMPTY, OR
* SET RC=0 IF THE 'IN' DATA SET IS NOT EMPTY
COUNT FROM(IN) EMPTY RC8
/*
// IF STEP1.RC = 0 THEN
//*** STEP2 WILL RUN IF 'IN' IS NOT EMPTY
//*** STEP2 WILL NOT RUN IF 'IN' IS EMPTY
//STEP2 EXEC ...
...
// ENDIF

HTH,
Greg Shirey
Ben E. Keith Company 

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Micheal Butz
Sent: Wednesday, March 05, 2014 5:22 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: IDCAMS if-else

I have 2 files and would lime to see
If one or both or none exist

I am using IDCAMS if-else sequence
With a command of print for this

However I am always coming up with a cc of 0 in the jcl for this step 

E.G.
Let's say filea is empty so is fileb
  Print indataset(filea) count (1)
If lastcc ne 0 then do
Print indataset(fileb) count (1)
   If lastcc = 0 then set lastcc = 8
  Else
Set lastcc = 0
End
Else do
 Print indataset(fileb) count(1)
  If lastcc ne 0 then
   Set lastcc = 4
End

I always cone up with a 0 for the IDCAMS job step when it should be in the case 
of 2 empty file 8 Sent from my iPhone

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

Re: SSD in DFSMS

[R.S.]

W dniu 2014-03-06 15:19, Lizette Koehler pisze:

What hardware are you using  SSD in?

IBM DS8???
EMC VMAX or DMX
HDS

If you have a VMAX 40K then the product FAST VP probably will replace the
need for you to tune the SSD in HSM.

If you have a DS8870 then Protect Tier or Fast Tier may replace the need to
manage the SSD.

The Hardware Storage Arrays are now taking over moving data that is "hot" to
faster devices without HSM or the user knowing it is occurring.

It's VMAX (first model), however my quesion was rather general, just to 
learn.

I'm aware of FAST VP or similar features, but we're not using it.

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

mBank S.A. z siedzib w Warszawie, ul. Senatorska 18, 00-950 Warszawa, www.mBank.pl, e-mail: kont...@mbank.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.2014 r. kapita zakadowy mBanku S.A. (w caoci wpacony) wynosi 168.696.052 zote.



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

Re: zAware certificate need on RACF

[Joel C. Ewing]

On 03/05/2014 11:53 PM, Jake anderson wrote:
> Hello,
>
> Cross Posted on IBM MAIN and RACF-L
>
> Are there anyone who has set AT-TLS for zAware on Z/OS. I have been
> referring a RED book on enabling at-tls but I am not able to understand the
> need of importing zAware certificates to RACF. If my Understanding is
> correct zAware does not have any interaction with RACF DB. Since zAware
> acts as an LPAR and gets the Z/OS image information via Logstream.
>
> Could someone enlighten me the need of zAware certificate on RACF DB ? How
> this is going to be useful for the zAware Users ?
>
> z/OS : 2.1
>
> Jake
>
If zAware requires configuration for AT-TLS, that says it is using
encrypted TCP/IP connections to the z/OS images, and it would be TCP/IP
on those z/OS images that would be using the certificates in RACF to
validate that connection, not zAware directly.   Now as to whether
setting up AT-TLS support for zAware is always required, of that I have
no idea.  Perhaps there would be cases where existing network security
for the communication path might make that redundant.

-- 
Joel C. Ewing,Bentonville, AR   jcew...@acm.org 

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

Re: SSD in DFSMS

[Lizette Koehler]

What hardware are you using  SSD in?

IBM DS8???
EMC VMAX or DMX
HDS

If you have a VMAX 40K then the product FAST VP probably will replace the
need for you to tune the SSD in HSM.

If you have a DS8870 then Protect Tier or Fast Tier may replace the need to
manage the SSD.

The Hardware Storage Arrays are now taking over moving data that is "hot" to
faster devices without HSM or the user knowing it is occurring.

Lizette


> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of R.S.
> Sent: Thursday, March 06, 2014 7:11 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: SSD in DFSMS
> 
> W dniu 2014-03-06 08:45, Vernooij, CP (SPLXM) - KLM pisze:
> > I remembered having heard or read this and the first Google hit was:
> > http://pic.dhe.ibm.com/infocenter/zos/v1r12/index.jsp?topic=%2Fcom.ibm
> > .zos.r12.idas200%2Fs2082.htm
> > Is this what you are looking for?
> Well, yes and no.
> Yes, this is some (the only?) documentation which covers SSD support in
DFSMS.
> No - it lacks of recommendation, discussion, samples, etc.
> 
> BTW: Don't you think the table documents fiction? This is from z/OS 1.12,
quite up
> to date. However the table covers ancient devices, AFAIK the oldest one is
from
> 1975. How can I connect it? How can I use the information?
> Not to mention, that even 2105 or 2107 could mean completely different
devices
> from performance point of view. There is completely no wise reason to
assume that
> 2105 has given performance characteristics.
> 
> --
> Radoslaw Skorupka
> Lodz, Poland
> 
> P.S. Thank you for pointing that!
> 
> 

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

Re: SSD in DFSMS

[R.S.]

W dniu 2014-03-06 08:45, Vernooij, CP (SPLXM) - KLM pisze:

I remembered having heard or read this and the first Google hit was:
http://pic.dhe.ibm.com/infocenter/zos/v1r12/index.jsp?topic=%2Fcom.ibm.zos.r12.idas200%2Fs2082.htm
Is this what you are looking for?

Well, yes and no.
Yes, this is some (the only?) documentation which covers SSD support in 
DFSMS. No - it lacks of recommendation, discussion, samples, etc.


BTW: Don't you think the table documents fiction? This is from z/OS 
1.12, quite up to date. However the table covers ancient devices, AFAIK 
the oldest one is from 1975. How can I connect it? How can I use the 
information?
Not to mention, that even 2105 or 2107 could mean completely different 
devices from performance point of view. There is completely no wise 
reason to assume that 2105 has given performance characteristics.


--
Radoslaw Skorupka
Lodz, Poland

P.S. Thank you for pointing that!





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

mBank S.A. z siedzib w Warszawie, ul. Senatorska 18, 00-950 Warszawa, www.mBank.pl, e-mail: kont...@mbank.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.2014 r. kapita zakadowy mBanku S.A. (w caoci wpacony) wynosi 168.696.052 zote.



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

Re: Validation of a resource name

[Charles Mills]

Very much a development judgment call.

On the one hand a client can often do a much more user-friendly job of
validation and error message generation. Also better performance if the
server or the communication link is slow.

On the other hand (1) all "security" has to be on the server or someone may
write their own client and get around it; and (2) you run the risk of
rejecting something in the client that is actually valid on the server --
for example if the server is enhanced in some way down the road before you
can enhance the client.

Charles

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of David Crayford
Sent: Wednesday, March 05, 2014 10:21 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Validation of a resource name

On 6/03/2014 2:11 PM, Arthur T. wrote:
> On 5 Mar 2014 10:05:58 -0800, in bit.listserv.ibm-main
> (Message-ID: gmail.com>) jan.je...@gmail.com (jan de decker) wrote:
>
>> I am building a small web application that interfaces with RACF.
>>
>> On the client side I only have the IBM default supplied classes.
>>
>> I want validate as much as possible on the client before sending it 
>> to the server.
>
>  Never do validation on the client side.  Someone might decide to 
> write their own client, or something else silly, just to get by 
> restrictions.  It's especially important not to trust client-side
> *security* validation.
>

That depends on what you're validating. If it's just syntax for a class 
name then validating on the client is surely better than pinging it off 
to a server.

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

Re: IDCAMS if-else

[John Eells]

Micheal Butz wrote:

Hi,

I have 2 files and would lime to see
If one or both or none exist

I am using IDCAMS if-else sequence
With a command of print for this



For an extensive, working example of using conditional logic in IDCAMS, 
see the ALLOCDS job in ServerPac if you installed z/OS that way.


--
John Eells
z/OS Technical Marketing
IBM Poughkeepsie
ee...@us.ibm.com

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

Re: IDCAMS if-else

[Elardus Engelbrecht]

Elardus Engelbrecht wrote:

>... where CM Poncolet ...

Damn! Sorry, CM Poncelet for my unintended typo.

Please accept my apology.

Groete / Greetings
Elardus Engelbrecht

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

Re: IDCAMS if-else

[Elardus Engelbrecht]

Micheal Butz wrote:

>I have 2 files and would lime to see If one or both or none exist
>I am using IDCAMS if-else sequence With a command of print for this
>However I am always coming up with a cc of 0 in the jcl for this step

Ok. I have followed this thread where CM Poncolet and Paul Gilmartin tried to 
help you to relieve yourself from 'torture yourself'.

May I suggest that you try something else to check whether a dataset (not file) 
exists and whether it is empty or not?

Crude, dirty, short and sweet CLIST to see whether your dataset exists or not:

PROC 0   
  IF &SYSDSN('.JCL') = OK THEN   +
   DO
WRITE DATASET FOUND  
SET &RC = 0  
   END   
  ELSE  +
   DO
WRITE DATA SET NOT FOUND 
SET &RC = 4  
   END   

DFSORT to see whether a dataset is EMPTY or not:

  COUNT FROM(SYS1.EMPTY.YES.NO.PERHAPS) EMPTY  gives RC=12 (or RC=04 if 
specified)

Of course there are many other ways to check your DSN and quantity of records. 
I think you should see it in IBM-MAIN archives.

Use your RC to selectively run your IDCAMS print step(s).

HTH!

Groete / Greetings
Elardus Engelbrecht

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

Re: ISPF Storage Protection

[Thomas Berg]

> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU]
> On Behalf Of Tom Marchant
> Sent: Wednesday, March 05, 2014 8:23 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: ISPF Storage Protection
> 
> On Wed, 5 Mar 2014 07:10:11 -0800, dpewen :
> 
> >I added two functions to the svc:
> >1. to turn on the APF-auth bit in the job step TCB
> >2. to turn off the APF-auth bit in the job step TCB
> >
> >This allows me to issue the MODESET svc successfully.
> 
> Congratulations! You have made it easy for any program to do anything on
> every system that has your product.

Yes, I'm also very impressed by this development, an amazing program, could 
think of a myriad of uses! 
;)


Best Regards,
Thomas Berg
 
Thomas BergSpecialistzOS/RQM/AMSwedbank AB (Publ)

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

Re: SSD in DFSMS

[Ron Hawkins]

Radoslaw,

I always thought that HDP or Eazytier would render this feature useless, but
who knows.

There was a Share presentation two years ago by the development team that
talked about this and some of the details of the mechanism.

My recollection is that a Storage Class with an MSR of 3ms would put volumes
on an SSD at the front of the first Eligible Device List. If EDL 1 fails you
are back to volume freespace as the primary selection criterion.

I believe there is an SSD indicator in the RDC, but like I said, I don't
know how this would work for Dynamic Tiering as the volume pages could be
spread across SSD, SAS, and a virtualized midrange box.

Ron

> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU]
> On Behalf Of R.S.
> Sent: Wednesday, March 05, 2014 11:24 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: [IBM-MAIN] SSD in DFSMS
> 
> z/OS 1.13
> 
> AFAIK, IBM provides some interface that allow to choose SSD in DFSMS
> routines. Actually the only information I found is MSR parameter in
Storage
> Class. I would like to read more about it, maybe some examples of
> implementations.
> 
> Where can I find more information about DFSMS and SSD ?
> 
> --
> 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
> authorized 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.
> 
> mBank S.A. z siedzibą w Warszawie, ul. Senatorska 18, 00-950 Warszawa,
> www.mBank.pl, e-mail: kont...@mbank.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.2014 r. kapitał zakładowy mBanku
> S.A. (w całości wpłacony) wynosi 168.696.052 złote.
> 
> 
> --
> 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: 0C4 from TSOEXEC IEBCOMPR

[Terry Sambrooks]

Hi Dave,

Acknowledging that an example for comparing two PDSEs may existing in the
z/OS V1R12.0 DFSMSdfp Utilities (SC26-7414-07) manual.

When I last looked at IEBCOMPR in the utilities manual, I notice the very
first paragraph is "Recommendation: Use the SuperC utility instead of
IEBCOMPR. SuperC is part of
ISPF/PDF and the High Level Assembler Toolkit Feature. SuperC can be
processed in the foreground as well as in batch and its report is more
useful."

IEBCOMPR was never brilliant as it would stop after 10 consecutive errors,
which is easily induced if a record is deleted from a file.

Kind Regards - Terry
 
Director
KMS-IT Limited
228 Abbeydale Road South
Dore
Sheffield
S17 3LA
UK
 
Reg : 3767263
 
Outgoing e-mails have been scanned, but it is the recipients responsibility
to ensure their anti-virus software is up to date.
 
 


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

Re: SSD in DFSMS

[Lizette Koehler]

I asked a similar question and it should be in the archives.

Basically the response was:

If a Storage Group contains a mix of SSD and HDD volumes, to divert datasets
on HDD volumes,assign them a 
Storage Class with these attributes: 
 DIRECT MSR  = 1 
 DIRECT BIAS = R 
 Do not specify any values for SEQUENTIAL MSR or
BIAS.   *

To direct storage allocation away from SSD, specify a DataClass with:  
 
 DIRECT MSR = 10 
 DIRECT BIAS = R 

In case of HSM restore, dataset will be allocated depending on its SMS
attributes.

https://listserv.ua.edu/cgi-bin/wa?A2=IBM-MAIN;62ffddc2.1307

Or the thread subject:
Dataset Allocation in SMS with Mixed Devices

Lizette


> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of R.S.
> Sent: Thursday, March 06, 2014 12:36 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: SSD in DFSMS
> 
> Yes, I mean Solid State Drive.
> 
> 
> 
> --
> Radoslaw Skorupka
> Lodz, Poland
> 
> 
> 
> 
> 
> 
> 
> W dniu 2014-03-06 02:35, Lizette Koehler pisze:
> > Are you asking about solid state dasd or some other item?
> >
> > Lizette
> >
> >
> >> -Original Message-
> >> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU]
> On
> >> Behalf Of R.S.
> >> Sent: Wednesday, March 05, 2014 12:24 PM
> >> To: IBM-MAIN@LISTSERV.UA.EDU
> >> Subject: SSD in DFSMS
> >>
> >> z/OS 1.13
> >>
> >> AFAIK, IBM provides some interface that allow to choose SSD in DFSMS
> > routines.
> >> Actually the only information I found is MSR parameter in Storage
Class. I
> > would
> >> like to read more about it, maybe some examples of implementations.
> >>
> >> Where can I find more information about DFSMS and SSD ?
> >>
> >> --
> >> Radoslaw Skorupka
> >> Lodz, Poland
> >>
> >> 

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