Fuencisla Mateo Cid is out of the office.

[Fuencisla Mateo Cid]

I will be out of the office starting  31/10/2008 and will not return until
10/11/2008.

I will respond to your message when I return.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: new z/OS IMS shop

[Vernooy, C.P. - SPLXM]

"Frank Swarbrick" <[EMAIL PROTECTED]> wrote in message
news:<[EMAIL PROTECTED]>...
> My mention of being a new z/OS with IMS shop got a few surprised
replies, so 
> I thought I'd give a bit more information...
> 

Frank, I liked reading your entire posting, it displays an open and
unprejudiced view on z/OS. And I think it is a very interesting task you
have there.

Maybe I can help you on some of your questions:

> 
> 1) Symbolic parameter support is better on VSE.  In VSE you can set a
parm 
> and then programatically query it.  In z/OS the parms are resolved to
their
> actual values during JCL resolution (or whatever it's called) so it
doesn't
> even really exist at the time the program executes.  Or something like
> that.  Having something similar in z/OS could also possibly solve my
DATE card 
> issue.  Specifically, something like this:
> 
> //  SET DATE=20081001
> //STEP01 EXEC PGM=PGM1
> //STEP02 EXEC PGM=PGM2
> //
> 
> In VSE PGM1 and PGM2 can use a VSE macro to query the value of the
DATE 
> symbolic parameter.  And yes, I do realize that you can do something
like the 
> following:
> //  SET DATE=20081001
> //STEP01 EXEC PGM=PGM1,PARM=&DATE
> //STEP02 EXEC PGM=PGM2,PARM=&DATE
> //
> 
> The problem with this is that it will not work for IMS batch, since
the program 
> that is executed is the IMS driver program, DFSRRC00.  The parm date
is not 
> passed to the Cobol program that the IMS program executes.

z/OS has a thing called System Symbols. I think this is what you are
looking for. Enter the 'D SYMBOLS' command on any console. 
They are defined at the system level, some static for the life of the
IPL, others modifiable programmatically when needed. Their value is
system wide, I am not sure what the scope of your // SET DATE= card in
VSE is. They can be queried programmatically, so for the Cobol program
this can be made working similar to the VSE environment.


> 
> 2) z/OS's conditional processing (whether using the COND clause on the
EXEC
> statement or using IF/ELSE/ENDIF) can only check the results of jobs
(return
> code, did it abend, did it run at all?).  You can't check the value of
a
> symbolic parameter (I'm guessing since, as I stated above, the
symbolic parm
> has already been resolved and doesn't really exist as a parm by then).

Yes, you can:
// SET SYMB=1 
// IF &SYMB=1 THEN
//S1 EXEC S1 
// ELSE 
//S1 EXEC S2 
// ENDIF


> Anyway, I'll probably be posting many questions from this point
forward.  

Do! We are here to help you.

Kees.

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

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

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Efficient conversion of GMT to/from local time from COBOL?

[Chase, John]

> -Original Message-
> From: IBM Mainframe Discussion List On Behalf Of J R
> 
> > But, it can/does cause some problems with things like young children
> going to (or coming from) school in the dark.
> 
> [ snip ]
> 
> Standard time gives the kids their best chance of going to school and
> coming home in daylight during the months when daylight is at its
> shortest.

When I was a child in Fairbanks, we went to school in the dark and came
home in the dark.  Heck, we even ate lunch in the dark!

-jc-

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Efficient conversion of GMT to/from local time from COBOL?

[J R]

> When I was a child in Fairbanks, we went to school in the dark and came
> home in the dark. Heck, we even ate lunch in the dark!
 
Uphill both ways?  
 
 
> Date: Fri, 31 Oct 2008 07:18:44 -0500
> From: [EMAIL PROTECTED]
> Subject: Re: Efficient conversion of GMT to/from local time from COBOL?
> To: IBM-MAIN@BAMA.UA.EDU
> 
> > -Original Message-
> > From: IBM Mainframe Discussion List On Behalf Of J R
> > 
> > > But, it can/does cause some problems with things like young children
> > going to (or coming from) school in the dark.
> > 
> > [ snip ]
> > 
> > Standard time gives the kids their best chance of going to school and
> > coming home in daylight during the months when daylight is at its
> > shortest.
> 
> When I was a child in Fairbanks, we went to school in the dark and came
> home in the dark. Heck, we even ate lunch in the dark!
> 
> -jc-
 
 
 
_
When your life is on the go—take your life with you.
http://clk.atdmt.com/MRT/go/115298558/direct/01/
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Efficient conversion of GMT to/from local time from COBOL?

[Shane]

On Fri, 2008-10-31 at 08:25 -0400, J R wrote:
> > When I was a child in Fairbanks, we went to school in the dark and came
> > home in the dark. Heck, we even ate lunch in the dark!
>  
> Uphill both ways?  

Shoebox ... shoebox - did some-one mention a shoebox ???.

.
.
.
And you try and tell the young people of today that . they won't
believe you.

:0)

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Efficient conversion of GMT to/from local time from COBOL?

[Chase, John]

> -Original Message-
> From: IBM Mainframe Discussion List On Behalf Of J R
> 
> > When I was a child in Fairbanks, we went to school in the dark and
came
> > home in the dark. Heck, we even ate lunch in the dark!
> 
> Uphill both ways?

Of course!  It was COLD, too!

-jc-

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

(more) non-private mail

[Shane]

Mongrel mail client - previous post was supposed to go to John.

Sorry ...

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: new z/OS IMS shop

[Chase, John]

> -Original Message-
> From: IBM Mainframe Discussion List On Behalf Of Frank Swarbrick
> 
> My mention of being a new z/OS with IMS shop got a few surprised
replies, so
> I thought I'd give a bit more information...
> 
> We have been a VSE (DOS) shop since at least 1979.  (Not sure what we
did
> before that, but I was only in elementary school at the time...)
> 
> [ snip ]
> 
> Currently we are *considering* moving everything to z/OS.  It is by no
means
> a done deal.  But I am tasked with seeing what it will take to move
our Cobol
> jobs (batch and CICS) to z/OS.

Contact somebody like Gilbert Saint-flour < http://www.gsf-soft.com>.

> [ snip ]
> 
> 4) I'm iffy about the lack of "system standard labels" and "partition
standard
> labels".  In some ways I like that the DD statements for all files are
> required explicitly.  That way you can easily tell what files a job
uses.
> Then again, for some very commonly used files it might be nice to have
> system standard DD names.

Lng time since I worked with VSE, but wouldn't the MVS link list (at
least partially) fill that requirement?

> [ snip ]
> 
> I guess I may as well get in to our RDBMS issue...  [ snip ]
> But as you may know, Oracle has "stabilized" their support of z/OS at
Oracle
> 10.2g.  Being back-leveled to much on VSE we have no desire to run in
to the
> same problem with Oracle.
> 
> Thus, we're back to DB2 on z/OS.

Oracle on "z/Linux"?  I snipped a lot, but I think you said you have an
IFL.

-jc-

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Need Help

[William F Besnier]

Good Morning,

 

I'm not sure this is the right forum and if not I would appreciate being
pointed in the right direction.

 

I am a contractor working for a state agency in the process of upgrading to
z/OS 1.9 via z/OS 1.7; the problem I am having is with the implementation of
ACF2 JES2 exit ACFJ2RSU/ACFJ2PSU, I have installed as documented, but, it
appears the validation exits are not being invoked. I am not ACF2 proficient
and the client does not have a CA support subscription.

 

Any ideas?

 

Thanks.


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Need Help

[John P Kalinich]

> I am a contractor working for a state agency in the process of upgrading
to
> z/OS 1.9 via z/OS 1.7; the problem I am having is with the implementation
of
> ACF2 JES2 exit ACFJ2RSU/ACFJ2PSU, I have installed as documented, but, it
> appears the validation exits are not being invoked. I am not ACF2
proficient
> and the client does not have a CA support subscription.

Do you have it enabled in your JES2 parameters?  Check your parmlib member.

Regards,
John K

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Need Help

[William F Besnier]

Yes, jesparms is;

LOAD(ACFJ2USR) STOR=CSA  /*  ACF2 USER EXIT FOR JOB CARD VALIDATION */ 
EXIT225 ROUTINE=(ACFEX225) 
EXIT227 ROUTINE=(ACFEX227),DISABLE 
EXIT228 ROUTINE=(ACFJ2PRU),ENABLE  
EXIT229 ROUTINE=(ACFJ2PSU),ENABLE  

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf
Of John P Kalinich
Sent: Friday, October 31, 2008 8:22 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: Need Help

> I am a contractor working for a state agency in the process of upgrading
to
> z/OS 1.9 via z/OS 1.7; the problem I am having is with the implementation
of
> ACF2 JES2 exit ACFJ2RSU/ACFJ2PSU, I have installed as documented, but, it
> appears the validation exits are not being invoked. I am not ACF2
proficient
> and the client does not have a CA support subscription.

Do you have it enabled in your JES2 parameters?  Check your parmlib member.

Regards,
John K

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Efficient conversion of GMT to/from local time from COBOL?

[Eric Bielefeld]

Alright Shane!  What does the shoebox have to do with anything?

Eric

 Shane <[EMAIL PROTECTED]> wrote: 
> On Fri, 2008-10-31 at 08:25 -0400, J R wrote:
> > > When I was a child in Fairbanks, we went to school in the dark and came
> > > home in the dark. Heck, we even ate lunch in the dark!
> >  
> > Uphill both ways?  
> 
> Shoebox ... shoebox - did some-one mention a shoebox ???.
> 
> And you try and tell the young people of today that . they won't
> believe you.
> 

--
Eric Bielefeld
Systems Programmer
Washington University
St Louis, Missouri
314-935-3418

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Need Help

[Jim Chappell]

>From a working ACF2 (release 12) and z/OS 1.9 environment
LOADMOD(ACFJ2ITF) STOR=CSA   /* ACF2 EXITS   */ 
LOADMOD(ACFJ2USR) STOR=CSA   /* ACF2 EXITS 223,224,228,229 (MODAC14) */ 
-  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  7 Line(s) not Displayed 
EXIT24  ROUTINE=( ACFEXT24)  /* POST-INITIALIZATION  */ 
EXIT2   ROUTINE=ACFEXIT2 /* JOB CARD */ 
EXIT4   ROUTINE=ACFEXIT4 /* JCL CARD */ 
EXIT20  ROUTINE=ACFEXT20 /* END-OF-READER MANAGER*/ 
EXIT26  ROUTINE=ACFEXT26 /*  */ 
EXIT31  ROUTINE=ACFEXT31 /*  */ 
EXIT34  ROUTINE=ACFEXT34 /*  */ 
EXIT46  ROUTINE=ACFEXT46 /*  */ 
EXIT50  ROUTINE=ACFEXT50 /*  */ 
EXIT52  ROUTINE=ACFEXT52 /*  */ 
EXIT54  ROUTINE=ACFEXT54 /*  */ 
EXIT56  ROUTINE=ACFEXT56 /*  */ 
EXIT225 ROUTINE=ACFEX225 /* SUBTASK ATTACH/POST ROUTINE  */ 
EXIT227 ROUTINE=ACFEX227,DISABLE /* TEST MESSAGE ROUTINE */ 
EXIT223 ROUTINE=ACFJ2PRE /* JES2 PRE-VALIDATE*/ 
EXIT224 ROUTINE=ACFJ2PST,DISABLE /* JES2 POST-VALIDATE   */ 
EXIT228 ROUTINE=ACFJ2PRE /* USER PRE-VALIDATE*/ 
EXIT229 ROUTINE=ACFJ2PSU,DISABLE /* USER POST-VALIDATE   */ 
 /*  */ 


James (Jim) Chappell
503 745-7841
503 349-5603(cell)

[EMAIL PROTECTED]

Daimler Trucks North America LLC


If you are not the intended addressee, please inform us immediately that you 
have received this e-mail in error, and delete it. We thank you for your 
cooperation.  
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

IBM TS700 Virtual Tape

[Darth Keller]

At our home site, we have 2 IBM B20 VTS's.  We're currently re-evaluating 
our DR contract and we're finding that getting 2 B20's at a DR site is 
going to be an issue.  The vendors are offering a single node IBM TS7700. 
We're wondering if there is anyone out there who has upgraded from B20's 
to the 7700's who'd be willing to share their experience as to what had to 
be changed, etc. 

We will be upgrading our B20's to something newer probably in 3rd quarter 
next year, but it's up in the air as to what solution we'll go with then.

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

Thank you.
**

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: using nexted procs

[Farley, Peter x23353]

> -Original Message-
> From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
> Behalf Of Frank Swarbrick
> Sent: Thursday, October 30, 2008 8:16 PM
> To: IBM-MAIN@BAMA.UA.EDU
> Subject: Re: using nexted procs
> 
> On Thu, 30 Oct 2008 19:27:02 -0400, Farley, Peter x23353
> <[EMAIL PROTECTED]> wrote:
 
> >IOW, you cannot override/add/DUMMY or any other normal JCL DD
operation
> >on anything inside of an "inner" PROC, except with symbolic
parameters.
> >AFAIK, no external DD overrides or EXEC overrides (REGION.stepname,
> >etc.) are permitted for the steps inside of an "inner" PROC.
> 
> This all agrees with what I have read.  Unfortunately it does not
agree
> with what I want!  :-)  I wonder why the restriction exists.  It seems
> to me that something like FFND05.DLI.FFMOTBL would be perfect!  Or
perhaps
> DLIBATCH.DLI.FFMOTBL; in other words "procname.procstepname.ddname".
> Ah well, I'm probably not going to win over 40 years of history...

I didn't understand the restriction myself when I first heard about it.
Unless I'm missing some crucial detail, it would not have broken any
existing JCL or PROC when nested PROC's were first introduced, though
now that it's been around for a while perhaps it would.

 
> I was discussing this with a co-worker who came to us with z/OS
> experience, but he'd never tried nested procs.  We may try your
solution,
> but here's another one we thought of:
 

Not having taken advantage of the INCLUDE command yet, I found it most
interesting that this technique works.  Who says you can't teach an old
dog new tricks!

And it can even work for multi-step PROC's.  I tried this and it
actually works:

//FFND05JOB CLASS=A,MSGCLASS=X,NOTIFY=&SYSUID   
//PROCLIBS  JCLLIB ORDER=(FJS.PDSE.PROC)
//JOBLIBS   INCLUDE MEMBER=JOBLIBS  
//*-
//FFND05PROC 
//  SET DLIPGM=FFND05
//  SET DLIPSB=FFUNDGO   
//  INCLUDE MEMBER=EXECDLI1  
//FFUNDDB   DD DSNAME=FJS.FFND.IMS.FFUNDDB,DISP=SHR  
//FFUNDIN   DD DSNAME=FJS.FFND.IMS.FFUNDIN,DISP=SHR  
//FFMOTBL   DD DSNAME=FJS.FFND.FFMOTBL,DISP=SHR  
//DRPT  DD SYSOUT=*  
//MRPT  DD SYSOUT=*  
//  INCLUDE MEMBER=EXECDLI2  
//FFUNDDB   DD DSNAME=FJS.FFND.IMS.FFUNDDB,DISP=SHR  
//FFUNDIN   DD DSNAME=FJS.FFND.IMS.FFUNDIN,DISP=SHR  
//FFMOTBL   DD DSNAME=FJS.FFND.FFMOTBL,DISP=SHR  
//DRPT  DD SYSOUT=*  
//MRPT  DD SYSOUT=*  
//  PEND 
//*- 
//  EXEC PROC=FFND05 
//DLI1.FFMOTBL   DD DSNAME=FJS.FFND.COPY.FFMOTBL,DISP=SHR
//DLI2.FFMOTBL   DD DSNAME=FJS.FFND.COPY.FFMOTBL,DISP=SHR
//   

Where EXECDLI1 is:

//  SET DBRC=N  
//DLI1  EXEC PGM=DFSRRC00,  
//PARM=(DBB,&DLIPGM,&DLIPSB,,,&DBRC)
//IMSACBDD DISP=SHR,DSN=&SYSUID..IMS.ACBLIB 
//  DD DISP=SHR,DSN=SYS4.IMS.ACBLIB 
//IEFRDER   DD DUMMY
//SYSUOUT   DD SYSOUT=* 
//DFSVSAMP  DD DISP=SHR,DSN=FJS.PDSE.CNTL(VSAMBUF)  

And EXECDLI2 is:

//  SET DBRC=N  
//DLI2  EXEC PGM=DFSRRC00,  
//PARM=(DBB,&DLIPGM,&DLIPSB,,,&DBRC)
//IMSACBDD DISP=SHR,DSN=&SYSUID..IMS.ACBLIB 
//  DD DISP=SHR,DSN=SYS4.IMS.ACBLIB 
//IEFRDER   DD DUMMY
//SYSUOUT   DD SYSOUT=* 
//DFSVSAMP  DD DISP=SHR,DSN=FJS.PDSE.CNTL(VSAMBUF)  

Note that the stepnames of the INCLUDEd steps must be unique constants.
You cannot use a variable in the JCL label field, so this would be
illegal:

//FFND05PROC 
//  SET DLIPGM=FFND05
//  SET DLIPSB=FFUNDGO   
//  SET  SNO=1
//  INCLUDE MEMBER=EXECDLI   
//  PEND

Where EXECDLI has this line:

//DLI&SNO   EXEC PGM=DFSRRC00,  
//PARM=(DBB,&DLIPGM,&DLIPSB,,,&DBRC)

HOWEVER, this technique does work:

//FFND05PROC 
//  SET DLIPGM=FFND05
//  SET DLIPSB=FFUNDGO   
//  SET SNO=1
//  INCLUDE MEMBER=EXECDLI   
//  INCLUDE MEMBER=FILEAPPL 

Re: Efficient conversion of GMT to/from local time from COBOL?

[J R]

It's from a Monty Python skit about how tough things were when I were a boy.  
 
 
> Date: Fri, 31 Oct 2008 08:44:11 -0600
> From: [EMAIL PROTECTED]
> Subject: Re: Efficient conversion of GMT to/from local time from COBOL?
> To: IBM-MAIN@BAMA.UA.EDU
> 
> Alright Shane! What does the shoebox have to do with anything?
> 
> Eric
> 
>  Shane <[EMAIL PROTECTED]> wrote: 
> > On Fri, 2008-10-31 at 08:25 -0400, J R wrote:
> > > > When I was a child in Fairbanks, we went to school in the dark and came
> > > > home in the dark. Heck, we even ate lunch in the dark!
> > > 
> > > Uphill both ways? 
> > 
> > Shoebox ... shoebox - did some-one mention a shoebox ???.
> > 
> > And you try and tell the young people of today that . they won't
> > believe you.
> > 
> 
> --
> Eric Bielefeld
 
 
 
_
Want to read Hotmail messages in Outlook? The Wordsmiths show you how.
http://windowslive.com/connect/post/wedowindowslive.spaces.live.com-Blog-cns!20EE04FBC541789!167.entry?ocid=TXT_TAGLM_WL_hotmail_092008
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Efficient conversion of GMT to/from local time from COBOL?

[Paul Gilmartin]

On Thu, 30 Oct 2008 10:48:29 -0400, J R wrote:

>> I wish all computers did time-date stamps in Zulu, and only translated
>> to local time as needed.
> 
>Hear, hear!  
> 
+1

>> (Heck, I wish Daylight Savings Time would go away, and wouldn't be
>> adverse if local time would go away.) 
> 
>Hear, hear!  
> 
Unrealistic.  "When in Rome (or Indiana, or Arizona), ..."

>BTW, I always feel sorry for the Zulus -- there's a time zone out there 
>with their name on it and it's not theirs.  :-(  
> 
>> Date: Thu, 30 Oct 2008 08:06:41 -0600
>> From: howard.brazee
>> 
>> On 30 Oct 2008 03:11:32 -0700, (Paul Gilmartin) wrote:
>> 
>> >Will these get the Daylight Saving Time offset correct for dates both
>> >before and after 2006 (in the U.S.)?
>> >
>> >Will these get the Leap Second offset correct for dates back to 1972
>> >when leap seconds were instituted? (How do "Lilian" seconds account
>> >for Leap Seconds? If done correctly there's a simple affine conversion
>> >from (E)TOD values to Lilian seconds.)
>> 
>> I'm curious. What business needs do you have that require past
>> Daylight Savings Times and leap seconds?
>> 
I'm not on the business side so I can only conjecture.  But I
can readily imagine legal consequences depending on whether
a prior event occurred before or after midnight.

The conversion is not rocket science.  Most Unix systems with
which I have worked correctly convert GMT to civil time for
dates back to 1970, and for time zones around the world.
z/OS Unix is correct only back to 2007 (in the U.S.), and
Classic z/OS knows only the current offset, and for only
a single time zone other than GMT (or does LE do better,
nowadays?)

Leap seconds are a PITA.  I'd like to reflect your question
to IBM:  What customers' business needs was IBM addressing
in choosing to run the TOD clock on IAT (minus ten seconds),
rather than on UT1 which would avoid the discontinuities
of leap seconds.

While IBM is ahead of the crowd in recognizing leap seconds,
the implementation is lackadaisical.  An enthusiastically
faithful implementation would, when TIME was called in the
middle of a leap second, return 23:59:60.500, the correct UTC.

-- gil

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Need Help ACF2 JES2 exits

[Jakubek, Jan]

Verify with JES2 commands:

$D LOAD(ACFJ2USR),ROUTINES
$D EXIT(228)
$D EXIT(229)

-Original Message-
Yes, jesparms is;

LOAD(ACFJ2USR) STOR=CSA  /*  ACF2 USER EXIT FOR JOB CARD VALIDATION */ 
EXIT225 ROUTINE=(ACFEX225) 
EXIT227 ROUTINE=(ACFEX227),DISABLE 
EXIT228 ROUTINE=(ACFJ2PRU),ENABLE  
EXIT229 ROUTINE=(ACFJ2PSU),ENABLE  

> I am a contractor working for a state agency in the process of
upgrading
to
> z/OS 1.9 via z/OS 1.7; the problem I am having is with the
implementation
of
> ACF2 JES2 exit ACFJ2RSU/ACFJ2PSU, I have installed as documented, but,
it
> appears the validation exits are not being invoked. I am not ACF2
proficient
> and the client does not have a CA support subscription.

Do you have it enabled in your JES2 parameters?  Check your parmlib
member.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Leap Seconds, was Efficient conversion of GMT to/from local time from COBOL?

[Field, Alan C.]

Maybe leap seconds won't be an issue:

http://tycho.usno.navy.mil/leap_second_poll.html

Alan

Leap seconds are a PITA.  I'd like to reflect your question
to IBM:  What customers' business needs was IBM addressing
in choosing to run the TOD clock on IAT (minus ten seconds),
rather than on UT1 which would avoid the discontinuities
of leap seconds.

While IBM is ahead of the crowd in recognizing leap seconds,
the implementation is lackadaisical.  An enthusiastically
faithful implementation would, when TIME was called in the
middle of a leap second, return 23:59:60.500, the correct UTC.

-- gil

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

SMF Logger

[Richards, Robert B.]

We are getting ready to turn on SMF logstream processing. I took a quick
look at the archives and haven't seen any new entries for the last six
months.

 

Does anyone know the current status of the "date card" issue as it
relates to record extraction?  We are z/OS 1.9 going to z/OS 1.10 in
early 2009, if that matters.

 

TIA,

 

Bob 

 

-

Robert B. Richards(Bob)   

US Office of Personnel Management

1900 E Street NW Room: BH04L   

Washington, D.C.  20415  

Phone: (202) 606-1195  

Email: [EMAIL PROTECTED] 


-

 


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Need Help ACF2 JES2 exits

[William F Besnier]

$DLOAD(ACFJ2USR),ROUTINES   
$HASP819 LOADMOD(ACFJ2USR) 615  
$HASP819 LOADMOD(ACFJ2USR)  ROUTINES=(ACFJ2PRE=07ADB9E8,
$HASP819ACFJ2PST=07ADBA20,ACFJ2PRU=07ADBA60,
$HASP819ACFJ2PSU=07ADBAA0)  
$DEXIT(228) 
$HASP823 EXIT(228) 619  
$HASP823 EXIT(228)  STATUS=ENABLED,ENVIRON=USER,
$HASP823ROUTINES=(ACFJ2PRU),SPLEVEL=CHECK,TRACE=YES,
$HASP823USECOUNT=0  
$DEXIT(229) 
$HASP823 EXIT(229) 622  
$HASP823 EXIT(229)  STATUS=ENABLED,ENVIRON=USER,
$HASP823ROUTINES=(ACFJ2PSU),SPLEVEL=CHECK,TRACE=YES,
$HASP823USECOUNT=0  

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf
Of Jakubek, Jan
Sent: Friday, October 31, 2008 9:02 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: Need Help ACF2 JES2 exits

Verify with JES2 commands:

$D LOAD(ACFJ2USR),ROUTINES
$D EXIT(228)
$D EXIT(229)

-Original Message-
Yes, jesparms is;

LOAD(ACFJ2USR) STOR=CSA  /*  ACF2 USER EXIT FOR JOB CARD VALIDATION */ 
EXIT225 ROUTINE=(ACFEX225) 
EXIT227 ROUTINE=(ACFEX227),DISABLE 
EXIT228 ROUTINE=(ACFJ2PRU),ENABLE  
EXIT229 ROUTINE=(ACFJ2PSU),ENABLE  

> I am a contractor working for a state agency in the process of
upgrading
to
> z/OS 1.9 via z/OS 1.7; the problem I am having is with the
implementation
of
> ACF2 JES2 exit ACFJ2RSU/ACFJ2PSU, I have installed as documented, but,
it
> appears the validation exits are not being invoked. I am not ACF2
proficient
> and the client does not have a CA support subscription.

Do you have it enabled in your JES2 parameters?  Check your parmlib
member.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Leap Seconds, was Efficient conversion of GMT to/from local time from COBOL?

[Mansell, George R.]

The origin of the leap second is the moon, blame Mother Nature. Our
clocks are too accurate.

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Field, Alan C.
Sent: Friday, October 31, 2008 10:06 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Leap Seconds, was Efficient conversion of GMT to/from local
time from COBOL?

Maybe leap seconds won't be an issue:

http://tycho.usno.navy.mil/leap_second_poll.html

Alan

Leap seconds are a PITA.  I'd like to reflect your question
to IBM:  What customers' business needs was IBM addressing
in choosing to run the TOD clock on IAT (minus ten seconds),
rather than on UT1 which would avoid the discontinuities
of leap seconds.

While IBM is ahead of the crowd in recognizing leap seconds,
the implementation is lackadaisical.  An enthusiastically
faithful implementation would, when TIME was called in the
middle of a leap second, return 23:59:60.500, the correct UTC.

-- gil

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html


--
NOTICE:  This electronic mail message and any attached files are confidential.  
The information is exclusively for the use of the individual or entity intended 
as the recipient.  If you are not the intended recipient, any use, copying, 
printing, reviewing, retention, disclosure, distribution or forwarding of the 
message or any attached file is not authorized and is strictly prohibited.  If 
you have received this electronic mail message in error, please advise the 
sender by reply electronic mail immediately and permanently delete the original 
transmission, any attachments and any copies of this message from your computer 
system. Thank you.

==

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Leap Seconds, was Efficient conversion of GMT to/from local time from COBOL?

[Paul Gilmartin]

On Fri, 31 Oct 2008 10:06:17 -0500, Field, Alan C. wrote:

>Maybe leap seconds won't be an issue:
>
>http://tycho.usno.navy.mil/leap_second_poll.html
>
The referenced document:

   Linkname: Memorandum and white paper
URL: 
http://tycho.usno.navy.mil/Discontinuance_of_Leap_Second_Adjustments.pdf

... mentions 3 requirements:

1) Atomic accuracy

2) Continuity

3) Agreement with earth's rotation.

IAT satisfies (1) and (2) but not (3).

UTC satisfies (1) and (3) but not (2).

UT1 satisfies (2) and (3) but not (1).

It's logically impossible to satisfy all three at once.  Of the
three approaches, I see the least need for UTC.  I'd favor
abolishing UTC rather than freezing it and abolishing the
sporadic insertion of leap seconds.

>Leap seconds are a PITA.  I'd like to reflect your question
>to IBM:  What customers' business needs was IBM addressing
>in choosing to run the TOD clock on IAT (minus ten seconds),
>rather than on UT1 which would avoid the discontinuities
>of leap seconds.

In that case, the [E]TOD clock should run on UT1, with system
calls available to convert to IAT in the past and for as far
in the future as the offset can be known with satisfactory
accuracy.

How about a chordwise rather than a stepwise approximation to
UT1, retaining the current 4-month advance notification of
parameter updates, where there would be 2 parameters, slope
and offset, rather than the current offset only?  IBM could
even do this unilaterally for [E]TOD purposes.

The earth's equatorial rotational velocity is about 500 m/sec.
The guaranteed maximum UT1-UTC offset is 0.9 seconds.  So
using UTC for geolocation could result in an error of 400
meters; inferior to GPS accuracy.  What use UTC?

-- gil

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Help Listing tape of unknown origin

[Pat Mihalec]

Someone found a tape on the sidewalk outside of our building and we are 
trying to figure what is on it. In the old days I would have used Ditto, 
but I don't have this available to me. Any suggestions of what can be used 
to list the tape? Something on CBT?

Any ideas welcome.

Pat Mihalec
Rush University Medical Center
Senior System Programmer
(312) 942-8386
[EMAIL PROTECTED]

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: IBM TS700 Virtual Tape

[Bruno Sugliani]

On Fri, 31 Oct 2008 09:49:51 -0500, Darth Keller <[EMAIL PROTECTED]>
wrote:

>At our home site, we have 2 IBM B20 VTS's.  We're currently re-evaluating
>our DR contract and we're finding that getting 2 B20's at a DR site is
>going to be an issue.  
snippage  
I sent you a mail 
 
Bruno Sugliani 
zxnetconsult(at)free(dot)fr
http://zxnetconsult.free.fr

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Help Listing tape of unknown origin

[Ken Porowski]

www.cbttape.org file 299 Tapemap 

-Original Message-
Pat Mihalec

Someone found a tape on the sidewalk outside of our building and we are
trying to figure what is on it. In the old days I would have used Ditto,
but I don't have this available to me. Any suggestions of what can be
used to list the tape? Something on CBT?

Any ideas welcome.

Pat Mihalec
Rush University Medical Center
Senior System Programmer
(312) 942-8386
[EMAIL PROTECTED]

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Help Listing tape of unknown origin

[Vernooy, C.P. - SPLXM]

"Pat Mihalec" <[EMAIL PROTECTED]> wrote in message
news:<[EMAIL PROTECTED]>
...
> Someone found a tape on the sidewalk outside of our building and we
are 
> trying to figure what is on it. In the old days I would have used
Ditto, 
> but I don't have this available to me. Any suggestions of what can be
used 
> to list the tape? Something on CBT?
> 
> Any ideas welcome.
> 
> Pat Mihalec

SAS to figure out the layout or most basically IDCAMS to hexprint a
number of files with NL and recfm=u,blksize=32767,dsorg=ps

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

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

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: SMF Logger

[Scott Barry]

On Fri, 31 Oct 2008 11:09:19 -0400, Richards, Robert B.
<[EMAIL PROTECTED]> wrote:

>We are getting ready to turn on SMF logstream processing. I took a quick
>look at the archives and haven't seen any new entries for the last six
>months.
>
> 
>
>Does anyone know the current status of the "date card" issue as it
>relates to record extraction?  We are z/OS 1.9 going to z/OS 1.10 in
>early 2009, if that matters.
>
> 
>
>TIA,
>
> 
>
>Bob 
>
> 
>
>-
>
>Robert B. Richards(Bob)   
>
>US Office of Personnel Management
>
>1900 E Street NW Room: BH04L   
>
>Washington, D.C.  20415  
>
>Phone: (202) 606-1195  
>
>Email: [EMAIL PROTECTED] 
>
>


Here are some related links, both the IBM white paper and also info about
CA's solution, CA SMF Director, which can address the challenges on
duplicate data dumping and data-extraction from the SMF logstream(s).

Scott Barry
SBBWorks, Inc.

IBM white paper:
http://ibm.com/support/techdocs/atsmastr.nsf/WebIndex/WP101130

Cheryl Watson's SHARE prez, mentioning SMF Logger (foil 21):
http://www.watsonwalker.com/PR080229.pdf

CA Advisor Series, discussion on SMF Logger Challenges - 
Streaming Without Screaming: CA SMF Director and the System Logger:
http://www.ca.com/us/products/collateral.aspx?cid=178381

CA SMF Director product info:
http://ca.com/files/ProductBriefs/smf_director_product_brief_us.pdf

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: SMF Logger

[Dean Montevago]

I asked the same question at the Expo. It's currently not part of the
process. You have to do it manually. A lot of people have raised the
same concern, so it most likely will become part of it at some point.
There are two white papers, if you don't already have them:

WP101130
WP101271

Dean 

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Scott Barry
Sent: Friday, October 31, 2008 12:08 PM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: SMF Logger

On Fri, 31 Oct 2008 11:09:19 -0400, Richards, Robert B.
<[EMAIL PROTECTED]> wrote:

>We are getting ready to turn on SMF logstream processing. I took a 
>quick look at the archives and haven't seen any new entries for the 
>last six months.
>
> 
>
>Does anyone know the current status of the "date card" issue as it 
>relates to record extraction?  We are z/OS 1.9 going to z/OS 1.10 in 
>early 2009, if that matters.
>
> 
>
>TIA,
>
> 
>
>Bob
>
> 
>
>-
>
>Robert B. Richards(Bob)   
>
>US Office of Personnel Management
>
>1900 E Street NW Room: BH04L   
>
>Washington, D.C.  20415  
>
>Phone: (202) 606-1195  
>
>Email: [EMAIL PROTECTED] 
>
>


Here are some related links, both the IBM white paper and also info
about CA's solution, CA SMF Director, which can address the challenges
on duplicate data dumping and data-extraction from the SMF logstream(s).

Scott Barry
SBBWorks, Inc.

IBM white paper:
http://ibm.com/support/techdocs/atsmastr.nsf/WebIndex/WP101130

Cheryl Watson's SHARE prez, mentioning SMF Logger (foil 21):
http://www.watsonwalker.com/PR080229.pdf

CA Advisor Series, discussion on SMF Logger Challenges - Streaming
Without Screaming: CA SMF Director and the System Logger:
http://www.ca.com/us/products/collateral.aspx?cid=178381

CA SMF Director product info:
http://ca.com/files/ProductBriefs/smf_director_product_brief_us.pdf

--
For IBM-MAIN subscribe / signoff / archive access instructions, send
email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search
the archives at http://bama.ua.edu/archives/ibm-main.html


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: new z/OS IMS shop

[Rick Fochtman]

-
z/OS certainly does have many nice things about it. But I am also 
running it to several "gotcha" type things. The lack of the JCL DATE 
card that I posted about previously is one of them. Since I'm already 
typing I may as well detail those places where I find VSE to be better, 
at least as far as I can tell so far.


1) Symbolic parameter support is better on VSE. In VSE you can set a 
parm and then programatically query it. In z/OS the parms are resolved 
to their actual values during JCL resolution (or whatever it's called) 
so it doesn't even really exist at the time the program executes. Or 
something like that. Having something similar in z/OS could also 
possibly solve my DATE card issue. Specifically, something like this:


// SET DATE=20081001
//STEP01 EXEC PGM=PGM1
//STEP02 EXEC PGM=PGM2
//

In VSE PGM1 and PGM2 can use a VSE macro to query the value of the DATE 
symbolic parameter. And yes, I do realize that you can do something like 
the following:


// SET DATE=20081001
//STEP01 EXEC PGM=PGM1,PARM=&DATE
//STEP02 EXEC PGM=PGM2,PARM=&DATE
//

The problem with this is that it will not work for IMS batch, since the 
program that is executed is the IMS driver program, DFSRRC00. The parm 
date is not passed to the Cobol program that the IMS program executes.

---
I seem to remember somewhere somebody had a Assembler subroutine that 
could be called from COBOL that would return the value of a symbolic JCL 
parm. Should be just what you're looking for.


---
4) I'm iffy about the lack of "system standard labels" and "partition 
standard labels". In some ways I like that the DD statements for all 
files are required explicitly. That way you can easily tell what files a 
job uses.Then again, for some very commonly used files it might be nice 
to have system standard DD names.

---
Have you considered the use of a JCL INCLUDE statement?

Keep one set of standard DD statements somewhere and just use the 
INCLUDE statement to get them into running JCL.



Anyway, I'll probably be posting many questions from this point forward. 
Many will sound like complaints, but I'm just looking for the best 
information. Hope no one takes it personally!


We take very little personally, but we're always glad to try and answer 
questions. :-)


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: WLM Service Class

[Knutson, Sam]

Have you considered tackling this as a larger tuning problem?  I don't think 
you will get much more from the line you are following.

I would suggest you look at what is delaying the jobs and try to tune.  If you 
can find I/O avoidance optimizations in that 1hour 15 minutes or maybe reduce 
the need for CPU and the elapsed time.

If you can get "them" to take a step back and let you work the problem and not 
keep trying to molest WLM "they" might be very pleased with the result. 

Have you looked at the critical path using RMF III or better yet application 
profile tools like Strobe, Tritune, APA?

Best Regards, 

Sam Knutson, GEICO 
System z Performance and Availability Management 
mailto:[EMAIL PROTECTED] 
(office)  301.986.3574  

"Think big, act bold, start simple, grow fast..." 

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of gsg
Sent: Wednesday, October 29, 2008 9:00 PM
To: IBM-MAIN@BAMA.UA.EDU
Subject: WLM Service Class

Our management has set a goal of 1hour 15 minutes for our batch window to 
run.  We have been meeting this goal until recently.  It appears that we have 
been growing.  At the request of management, we created a "special" job 
class that runs a service class which has an importance of 1, has CPU critical 
turned on and also has a velocity of 90%.  This is running higher than CICS.  
We have started meeting our goal again, but they don't want to see any jobs 
running in this special class having any CPU delays.  Now for my question.

What is the highest you can set a service class and how do you control how 
high it runs?  Can it be made to run as high as System?  I know that it would 
not be wise to do this, but I just need to ask the question.  Is there anything 
else that can be done to give this service class more priority?  
We are not running too many jobs in this special service class.


TIA


This email/fax message is for the sole use of the intended
recipient(s) and may contain confidential and privileged information.
Any unauthorized review, use, disclosure or distribution of this
email/fax is prohibited. If you are not the intended recipient, please
destroy all paper and electronic copies of the original message.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

BCP New Function Support Hardware instrumentation services OA25755+

[Knutson, Sam]

Hi,

These are some interesting APARs.
I am hoping now that they are closed we will see some more details on this new 
facility.

http://www.ibm.com/support/docview.wss?uid=isg1OA25755

http://www.ibm.com/support/docview.wss?uid=isg1OA25750

http://www.ibm.com/support/docview.wss?uid=isg1OA25773


Best Regards, 

Sam Knutson, GEICO 
System z Performance and Availability Management 
mailto:[EMAIL PROTECTED] 
(office)  301.986.3574 
(cell) 301.996.1318 
 
"Think big, act bold, start simple, grow fast..."






This email/fax message is for the sole use of the intended
recipient(s) and may contain confidential and privileged information.
Any unauthorized review, use, disclosure or distribution of this
email/fax is prohibited. If you are not the intended recipient, please
destroy all paper and electronic copies of the original message.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: SMF Logger

[Richards, Robert B.]

Scott (and Dean),

Thank you for the references.

Is anyone using IFASEXIT with the SUBSYS keyword on an IEBGENER as a
substitute for the date card issue?

Bob


-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Scott Barry
Sent: Friday, October 31, 2008 12:08 PM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: SMF Logger

On Fri, 31 Oct 2008 11:09:19 -0400, Richards, Robert B.
<[EMAIL PROTECTED]> wrote:

>We are getting ready to turn on SMF logstream processing. I took a
quick
>look at the archives and haven't seen any new entries for the last six
>months.
>
>Does anyone know the current status of the "date card" issue as it
>relates to record extraction?  We are z/OS 1.9 going to z/OS 1.10 in
>early 2009, if that matters.
>

Here are some related links, both the IBM white paper and also info
about
CA's solution, CA SMF Director, which can address the challenges on
duplicate data dumping and data-extraction from the SMF logstream(s).

Scott Barry
SBBWorks, Inc.

IBM white paper:
http://ibm.com/support/techdocs/atsmastr.nsf/WebIndex/WP101130

Cheryl Watson's SHARE prez, mentioning SMF Logger (foil 21):
http://www.watsonwalker.com/PR080229.pdf

CA Advisor Series, discussion on SMF Logger Challenges - 
Streaming Without Screaming: CA SMF Director and the System Logger:
http://www.ca.com/us/products/collateral.aspx?cid=178381

CA SMF Director product info:
http://ca.com/files/ProductBriefs/smf_director_product_brief_us.pdf

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Best way to force jobs to a specific LPAR

[Lizette Koehler]

I am looking for a good (and easy) way of ensuring that certain programs only 
run on a specific LPAR.  We are very vanilla z/OS V1.9.

I was thinking of either creating a stub module that is the name of the program 
and then testing to see if it is submitted with /*JOBPARM or creating a TSO 
Submit exit and Converter exit to add the /*JOBPARM if it is a specific program 
name.

Are there any better and easier to maintain options for this request?


So if JOBA is submitted (either via a scheduler product or TSO) and the 
PGM=PROGA then I want to ensure that the job only runs on LPARA.


Lizette

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Best way to force jobs to a specific LPAR

[Ted MacNEIL]

Try looking at WLM scheduling environments.
--Original Message--
From: Lizette Koehler
Sender: IBM Mainframe Discussion List
To: IBM Mainframe Discussion List
ReplyTo: IBM Mainframe Discussion List
Sent: Oct 31, 2008 13:56
Subject: Best way to force jobs to a specific LPAR

I am looking for a good (and easy) way of ensuring that certain programs only 
run on a specific LPAR.  We are very vanilla z/OS V1.9.

I was thinking of either creating a stub module that is the name of the program 
and then testing to see if it is submitted with /*JOBPARM or creating a TSO 
Submit exit and Converter exit to add the /*JOBPARM if it is a specific program 
name.

Are there any better and easier to maintain options for this request?


So if JOBA is submitted (either via a scheduler product or TSO) and the 
PGM=PROGA then I want to ensure that the job only runs on LPARA.


Lizette

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html



-
Too busy driving to stop for gas!

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Best way to force jobs to a specific LPAR

[Richards, Robert B.]

Lizette,

Try the Shared Spool Mods (formerly known as Mellon Mods) on the CBT
tape: www.cbttape.org

Bob


-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Lizette Koehler
Sent: Friday, October 31, 2008 1:57 PM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Best way to force jobs to a specific LPAR

I am looking for a good (and easy) way of ensuring that certain programs
only run on a specific LPAR.  We are very vanilla z/OS V1.9.

I was thinking of either creating a stub module that is the name of the
program and then testing to see if it is submitted with /*JOBPARM or
creating a TSO Submit exit and Converter exit to add the /*JOBPARM if it
is a specific program name.

Are there any better and easier to maintain options for this request?


So if JOBA is submitted (either via a scheduler product or TSO) and the
PGM=PROGA then I want to ensure that the job only runs on LPARA.


Lizette

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Use of Web spells end for Cleveland IBM user group

[Howard Brazee]

http://www.computerworld.com/action/article.do?command=viewArticleBasic&;
articleId=328890

 

 

Those "web spells" change things.


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

z/OS Problem Documentation Upload Utility ftp://ftp.software.ibm.com/s390/mvs/tools/mtftp/ now available

[Knutson, Sam]

IBM has provided a very nice Halloween treat! 

z/OS Problem Documentation Upload Utility now available 

ftp://ftp.software.ibm.com/s390/mvs/tools/mtftp/ 

* a single tool to provide all the function required to send PMR related 
documentation. 

* In-line hardware compression minimizes processor and I/O time compared to 
software compression. 

* Optionally use 192 bit 3DES hardware encryption.

* Split source file into multiple (up to 20) parallel FTP sessions to improve 
throughput 

* the utility can significantly reduce the overall time to get documentation to 
IBM

I am still sifting through this but having been asking for improvements to 
tooling in this area for sometime this is cool! 

Best Regards, 

Sam Knutson, GEICO 
System z Performance and Availability Management 
mailto:[EMAIL PROTECTED] 
(office)  301.986.3574 
(cell) 301.996.1318  

"Think big, act bold, start simple, grow fast..." 




This email/fax message is for the sole use of the intended
recipient(s) and may contain confidential and privileged information.
Any unauthorized review, use, disclosure or distribution of this
email/fax is prohibited. If you are not the intended recipient, please
destroy all paper and electronic copies of the original message.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Best way to force jobs to a specific LPAR

[Brian France]

IF your LPARS are in the same Jes plex, ( we are a basic sysplex ), 
we use the sysaff ( system affinity) under the /*jobparm statement. 
We don't check for programs, rather we just run the entire job, how 
ever many steps it has to execute on that system. When we run outside 
of a plex, say our test systems, we have a jes connection to them and 
utilize the /*route xeq statement to point them to which lpar we want 
to run them on in the testplex.


At 01:56 PM 10/31/2008, you wrote:
I am looking for a good (and easy) way of ensuring that certain 
programs only run on a specific LPAR.  We are very vanilla z/OS V1.9.


I was thinking of either creating a stub module that is the name of 
the program and then testing to see if it is submitted with 
/*JOBPARM or creating a TSO Submit exit and Converter exit to add 
the /*JOBPARM if it is a specific program name.


Are there any better and easier to maintain options for this request?


So if JOBA is submitted (either via a scheduler product or TSO) and 
the PGM=PROGA then I want to ensure that the job only runs on LPARA.



Lizette

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html



Brian W. France
Systems Administrator (Mainframe)
Pennsylvania State University
Administrative Information Services - Infrastructure/SYSARC
Rm 25 Shields Bldg., University Park, Pa. 16802
814-863-4739
[EMAIL PROTECTED]

"To make an apple pie from scratch, you must first invent the universe."

Carl Sagan





--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Best way to force jobs to a specific LPAR

[Bob Shannon]

Use Scheduling Environments. They are easy to set up and work great for this 
purpose. It also allows you to move the product (program) to a different 
system. It does require users to change their JCL.

Bob Shannon
Rocket Software

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: z/OS Problem Documentation Upload Utility ftp://ftp.software.ibm.com/s390/mvs/tools/mtftp/ now available

[Mark Jacobs]

Knutson, Sam wrote:
> IBM has provided a very nice Halloween treat! 
>
> z/OS Problem Documentation Upload Utility now available 
>
> ftp://ftp.software.ibm.com/s390/mvs/tools/mtftp/ 
>
> * a single tool to provide all the function required to send PMR related 
> documentation. 
>
> * In-line hardware compression minimizes processor and I/O time compared to 
> software compression. 
>
> * Optionally use 192 bit 3DES hardware encryption.
>
> * Split source file into multiple (up to 20) parallel FTP sessions to improve 
> throughput 
>
> * the utility can significantly reduce the overall time to get documentation 
> to IBM
>
> I am still sifting through this but having been asking for improvements to 
> tooling in this area for sometime this is cool! 
>
> Best Regards, 
>
> Sam Knutson, GEICO 
> System z Performance and Availability Management 
> mailto:[EMAIL PROTECTED] 
> (office)  301.986.3574 
> (cell) 301.996.1318  
>
> "Think big, act bold, start simple, grow fast..." 
>
>
>
>
>   

Do you know how IBM decrypts the data if we specify an encryption key to
the tool?

-- 
Mark Jacobs
Time Customer Service
Tampa, FL


"We're in the stickiest situation since Sticky the 
stick insect got stuck on a sticky bun."

Rowan Atkinson as Captain Edmund Blackadder in
Blackadder Goes Forth

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Need Help ACF2 JES2 exits

[Big Iron]

Do you have all the other ACF2 JES2 exits configured as documented?
EXIT 228 & 229 aren't standard JES2 exits; they are invoked from other
ACF2 JES2 exits, so if the calling EXITs aren't installed, EXITs 228 & 229
won't be called.

Bill

On Fri, 31 Oct 2008 09:22:52 -0600, William F Besnier <[EMAIL PROTECTED]>
wrote:

>$DLOAD(ACFJ2USR),ROUTINES
>$HASP819 LOADMOD(ACFJ2USR) 615
>$HASP819 LOADMOD(ACFJ2USR)  ROUTINES=(ACFJ2PRE=07ADB9E8,
>$HASP819ACFJ2PST=07ADBA20,ACFJ2PRU=07ADBA60,
>$HASP819ACFJ2PSU=07ADBAA0)
>$DEXIT(228)
>$HASP823 EXIT(228) 619
>$HASP823 EXIT(228)  STATUS=ENABLED,ENVIRON=USER,
>$HASP823ROUTINES=(ACFJ2PRU),SPLEVEL=CHECK,TRACE=YES,
>$HASP823USECOUNT=0
>$DEXIT(229)
>$HASP823 EXIT(229) 622
>$HASP823 EXIT(229)  STATUS=ENABLED,ENVIRON=USER,
>$HASP823ROUTINES=(ACFJ2PSU),SPLEVEL=CHECK,TRACE=YES,
>$HASP823USECOUNT=0
>
>-Original Message-
>From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf
>Of Jakubek, Jan
>Sent: Friday, October 31, 2008 9:02 AM
>To: IBM-MAIN@BAMA.UA.EDU
>Subject: Re: Need Help ACF2 JES2 exits
>
>Verify with JES2 commands:
>
>$D LOAD(ACFJ2USR),ROUTINES
>$D EXIT(228)
>$D EXIT(229)
>
>-Original Message-
>Yes, jesparms is;
>
>LOAD(ACFJ2USR) STOR=CSA  /*  ACF2 USER EXIT FOR JOB CARD VALIDATION */
>EXIT225 ROUTINE=(ACFEX225)
>EXIT227 ROUTINE=(ACFEX227),DISABLE
>EXIT228 ROUTINE=(ACFJ2PRU),ENABLE
>EXIT229 ROUTINE=(ACFJ2PSU),ENABLE
>
>> I am a contractor working for a state agency in the process of
>upgrading
>to
>> z/OS 1.9 via z/OS 1.7; the problem I am having is with the
>implementation
>of
>> ACF2 JES2 exit ACFJ2RSU/ACFJ2PSU, I have installed as documented, but,
>it
>> appears the validation exits are not being invoked. I am not ACF2
>proficient
>> and the client does not have a CA support subscription.
>
>Do you have it enabled in your JES2 parameters?  Check your parmlib
>member.
>

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: EMC DASD Mirroring

[Glenn Miller]

Jim.

Our site has been using SRDF/S between EMC DMX200 subsystems since 2004 
using NORTEL OPTERA 5200 DWDM's.  The OPTERA 5200's are using six 2gb 
links between our sites.  The dark fibre links have a "ground distance" of 36km 
on the link we call the 'short route' and 39km on the link we call the 'long 
route'.  EMC was very involved during the implementation of our SRDF/S 
process in 2004, so I'm a little surprised they couln't find us for you.

Glenn Miller

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Need Help ACF2 JES2 exits

[William F Besnier]

JES2PARM:

LOAD(ACFJ2ITF) STOR=CSA  /*  ACF2  */ 
LOAD(ADPEXIT2) STOR=PVT  /*  LOCAL */ 
LOAD(ADPEXIT3)   /*  LOCAL */ 
LOAD(REPEXIT)/*  JES2 $REPEXIT & $ADDEXIT COMMANDS */ 
LOAD(ADPEXIT6)   /*  LOCAL */ 
LOAD(ADPEXI20) STOR=PVT  /*  LOCAL */ 
LOAD(ADPEXI50) STOR=CSA  /*  LOCAL */ 
LOAD(ADPEXI52) STOR=CSA  /*  LOCAL */ 
LOAD(ADPEXI53) STOR=CSA  /*  LOCAL */ 
LOAD(ACFJ2USR) STOR=CSA  /*  ACF2 USER EXIT FOR JOB CARD VALIDATION */
EXIT2 ROUTINE=(ADPEX2),disable
EXIT3 ROUTINE=(ADPEX3),DISABLE
EXIT4 ROUTINE=(ACFEXIT4)  
EXIT5 ROUTINE=(EXIT05),TRACE=NO   
EXIT6 ROUTINE=(EXIT06),DISABLE
EXIT20 ROUTINE=(ADPEX20),DISABLE  
EXIT24 ROUTINE=(ACFEXT24) 
EXIT26 ROUTINE=(ACFEXT26) 
EXIT26 ROUTINE=(ACFEXT26)   
EXIT31 ROUTINE=(ACFEXT31)   
EXIT34 ROUTINE=(ACFEXT34)   
EXIT46 ROUTINE=(ACFEXT46)   
EXIT50 ROUTINE=(ADPEX50),ENABLE 
EXIT52 ROUTINE=(ADPEX52),ENABLE 
EXIT53 ROUTINE=(ADPEX53),ENABLE 
EXIT54 ROUTINE=(ACFEXT54)   
EXIT56 ROUTINE=(ACFEXT56)   
EXIT223 ROUTINE=(ACFJ2PRE),ENABLE   
EXIT224 ROUTINE=(ACFJ2PST),ENABLE   
EXIT225 ROUTINE=(ACFEX225)  
EXIT227 ROUTINE=(ACFEX227),DISABLE  
EXIT228 ROUTINE=(ACFJ2PRE),ENABLE   
EXIT229 ROUTINE=(ACFJ2PST),ENABLE   

LOADMOD(ACFJ2ITF)  ADDRESS=077DC150,LENGTH=007EB0,
   ROUTINES=(ACFEXIT2,ACFEXIT4,   
   $$$X2186,ACFEXT20,$$$X2276,ACFEXT24,   
   ACFEXT26,ACFEXT31,ACFEXT34,ACFEXT46,   
   ACFEXT52,ACFEXT54,ACFEXT50,ACFEXT56,   
   ACFEX225,ACFJ2SUB,$$$X5295,$$$X5336,   
   $$$X5371,ACFEX227,ACFJ2VLD,ACFJ2VAL,   
   $$$X6101,$$$X6136,$$$X6165),   
   RMODE=ANY,SPLEVEL=CHECK,STORAGE=CSA,   
   TABLES=()  
DSF COMMAND EXECUTED  '$DLOAD(ACFJ2USR)   
M4  $IKJACNU TPWI1IP1 
FJ2USR)   
LOADMOD(ACFJ2USR) 559 
LOADMOD(ACFJ2USR)  ADDRESS=07A549D0,LENGTH=000630,
   ROUTINES=(ACFJ2PRE,ACFJ2PST,   
   ACFJ2PRU,ACFJ2PSU),RMODE=ANY,  
   SPLEVEL=CHECK,STORAGE=CSA,TABLES=()   

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf
Of Big Iron
Sent: Friday, October 31, 2008 12:33 PM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: Need Help ACF2 JES2 exits

Do you have all the other ACF2 JES2 exits configured as documented?
EXIT 228 & 229 aren't standard JES2 exits; they are invoked from other
ACF2 JES2 exits, so if the calling EXITs aren't installed, EXITs 228 &
229
won't be called.

Bill

On Fri, 31 Oct 2008 09:22:52 -0600, William F Besnier <[EMAIL PROTECTED]>
wrote:

>$DLOAD(ACFJ2USR),ROUTINES
>$HASP819 LOADMOD(ACFJ2USR) 615
>$HASP819 LOADMOD(ACFJ2USR)  ROUTINES=(ACFJ2PRE=07ADB9E8,
>$HASP819ACFJ2PST=07ADBA20,ACFJ2PRU=07ADBA60,
>$HASP819ACFJ2PSU=07ADBAA0)
>$DEXIT(228)
>$HASP823 EXIT(228) 619
>$HASP823 EXIT(228)  STATUS=ENABLED,ENVIRON=USER,
>$HASP823ROUTINES=(ACFJ2PRU),SPLEVEL=CHECK,TRACE=YES,
>$HASP823USECOUNT=0
>$DEXIT(229)
>$HASP823 EXIT(229) 622
>$HASP823 EXIT(229)  STATUS=ENABLED,ENVIRON=USER,
>$HASP823ROUTINES=(ACFJ2PSU),SPLEVEL=CHECK,TRACE=YES,
>$HASP823USECOUNT=0
>
>-Original Message-
>From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf
>Of Jakubek, Jan
>Sent: Friday, October 31, 2008 9:02 AM
>To: IBM-MAIN@BAMA.UA.EDU
>Subject: Re: Need Help ACF2 JES2 exits
>
>Verify with JES2 commands:
>
>$D LOAD(ACFJ2USR),ROUTINES
>$D EXIT(228)
>$D EXIT(229)
>
>-Original Message-
>Yes, jesparms is;
>
>LOAD(ACFJ2USR) STOR=CSA  /*  ACF2 USER EXIT FOR JOB CARD VALIDATION */
>EXIT225 ROUTINE=(ACFEX225)
>EXIT227 ROUTINE=(ACFEX227),DISABLE
>EXIT228 ROUTINE=(ACFJ2PRU),ENABLE
>EXIT229 ROUTINE=(ACFJ2PSU),ENABLE
>
>> I am a contractor working for a state agency in the process of
>upgrading
>to
>

Re: leap seconds

[john gilmore]

I have read the sequence of contributions to this thread with more dismay than 
usual.   Working with leap seconds poses no particular difficulties, and in 
particular Paul Gilmartin's suggestions are otiose.  (I single him out only 
because he almost always knows what he is talking about, even when I disagree 
strongly with him.)   
 
A table is needed but IBM supplies one, which it updates well in advance of the 
effective insertion time of a new leap second, indeed almost as soon as the 
BIPM issues its notification that an insertion will occur. Currently, the table 
takes the (somewhat edited, but substantively correct) form 





year

m

dom

doy

Σls

STCKE (9 high bytes)


1900

1

1

1

0

x'00'


1972

1

1

1

0

x'008126d60e4600'


1972

7

1

183

1

x'00820ba9811e24'


1973

1

1

1

2

x'0082f300eee248'


1974

1

1

1

3

x'0084bde971446c'


1975

1

1

1

4

x'008688d2334690'


1976

1

1

1

5

x'008853baf578b4'


1977

1

1

1

6

x'008a1fe59520d8'


1978

1

1

1

7

x'008beace5752fc'


1979

1

1

1

8

x'008db5b7198520'


1980

1

1

1

9

x'008f809fdbb744'


1981

7

1

182

10

x'0092305c0fcd68'


1982

7

1

182

11

x'0093fb44d1ff8c'


1983

7

1

182

12

x'0095c62f9431b0'


1985

7

1

182

13

x'00995d40f517d0'


1988

1

1

1

14

x'009dda69a557f8'


1990

1

1

1

15

x'00a1117d063e1c'


1991

1

1

1

16

x'00a33c65c78040'


1992

7

1

182

17

x'00a3ec21fc8664'


1993

7

1

182

18

x'00a7b70abeb888'


1994

7

1

182

19

x'00a981f380eaac'


1996

1

1

1

20

x'00ac34336fecd0'


1997

7

1

182

21

x'00aee3efa40df4'


1999

1

1

1

22

x'00b1962f930518'


2005

1

1

1

23

 x'00BE251097973C'
 
Suppose now that we have a copy of this table, call it T, and a (truncated) 
STCKE value, call it S, for which we need the corresponding cumulative 
leap-seconds-inserted value.  Traditional match-seeking binary search in this 
table is unavailable to us because we need not a match for but a greatest lower 
bound (glb), which may occasionally also be a match, on S. A binary-search 
scheme that I devised long ago for evaluating tabular step functions can, 
however, be used for this purpose. A PL/I version of it, specialized for this 
use, is leapsecs: procedure(Tp, S, cumLS)  /* cumulative LSs for STCKE */  
returns(aligned bit)  reorder ;/* returns '1'b with cumLS set if S is 
bounded in T; returns '0'b, false, if S is not bounded in T. */  /* 
parameters */declare (Tp pointer,  /* table pointer */S aligned 
bit(72))  /* search argument, truncated STCKE */parameter nonassignable,
cumLS signed binary fixed(31,0) /* cumulative leap seconds */parameter 
assignable ;/* table to search */declare 1 T based(Tp), /* table */ 
   2 tls  /* low table subscript */  signed binary fixed(31,0),2 ths  
/* high table subscript */  signed binary fixed(31,0),2 tab 
dimension(ls refer(T.tls); hs refer(T.ths),  3 year signed binary 
fixed(31,0),  /* Gregorian year */  3 moy  signed binary fixed(7,0),  /* 
month of year */  3 dom  signed binary fixed(7,0),  /* day of month */  
3 doy  signed binary fixed(15,0),  /* day of year */  3 cls  signed binary 
fixed(31,0),  /* cumulative LSs */  3 STCKE9 aligned bit(72),   /* STCKE 
value */  3 * character(3) ;   /* DW alignment */  /* named 
constants */declare (F1 value (1b), F2 value(10b))signed binary 
fixed(31,0) ;  /* LIFO scratch storage */declare (h,   /* high search 
subscript */l,/* low search subscript */m,   /* middling search 
subscript */hmin,  /* minimal bounding subscript */(ls, hs))  /* unused 
dynamic-allocation values */signed binary fixed(31,0),(bounded,   /* is 
S bounded in T? */search,   /* table not yet exhausted? */
search_higher)  /* search following T.STCKE9(m)? */aligned bit ;  l, 
hmin = T.tls ;h = T.ths ;do search = (l <= h) while(search) ;  m = 
l + (h - l)/F2 ;  /* fixedoverflow! */  search_higher = (S >= T.STCKE9(m)) 
;  if search_higher then l = m + F1 ;  else h = m - F1 ;end ;
bounded = (h >= hmin) ;if bounded then cumLS = T.cls(h) ;
return(bounded) ;   end leapsecs ; Here no STCKE value can be without a glb 
in T, but I have left the code that deals with search arguments smaller than 
the smallest table value in place to illustrate how the algorithm works for 
such values.  In general, of course, the smallest element in a table like T may 
be greater than some search argument value S; and in this case S has no glb in 
T and this procedure returns '0'b, false.The elements of a table T may 
comprise either an ordered set of unique elements or a partially ordered 
multiset that in general contains duplicate elements; and one of the merits of 
this scheme is that it yields unequivocal results for such multisets

Re: Need Help ACF2 JES2 exits

[Big Iron]

You seem to be missing the EXIT statements for ACF2 JES2 EXITs 50 
and 52. That may be your problem,

Bill

On Fri, 31 Oct 2008 12:45:19 -0600, William F Besnier <[EMAIL PROTECTED]>
wrote:

>JES2PARM:
>
>LOAD(ACFJ2ITF) STOR=CSA  /*  ACF2  */
>LOAD(ADPEXIT2) STOR=PVT  /*  LOCAL */
>LOAD(ADPEXIT3)   /*  LOCAL */
>LOAD(REPEXIT)/*  JES2 $REPEXIT & $ADDEXIT COMMANDS */
>LOAD(ADPEXIT6)   /*  LOCAL */
>LOAD(ADPEXI20) STOR=PVT  /*  LOCAL */
>LOAD(ADPEXI50) STOR=CSA  /*  LOCAL */
>LOAD(ADPEXI52) STOR=CSA  /*  LOCAL */
>LOAD(ADPEXI53) STOR=CSA  /*  LOCAL */
>LOAD(ACFJ2USR) STOR=CSA  /*  ACF2 USER EXIT FOR JOB CARD VALIDATION */
>EXIT2 ROUTINE=(ADPEX2),disable
>EXIT3 ROUTINE=(ADPEX3),DISABLE
>EXIT4 ROUTINE=(ACFEXIT4)
>EXIT5 ROUTINE=(EXIT05),TRACE=NO
>EXIT6 ROUTINE=(EXIT06),DISABLE
>EXIT20 ROUTINE=(ADPEX20),DISABLE
>EXIT24 ROUTINE=(ACFEXT24)
>EXIT26 ROUTINE=(ACFEXT26)
>EXIT26 ROUTINE=(ACFEXT26)
>EXIT31 ROUTINE=(ACFEXT31)
>EXIT34 ROUTINE=(ACFEXT34)
>EXIT46 ROUTINE=(ACFEXT46)
>EXIT50 ROUTINE=(ADPEX50),ENABLE
>EXIT52 ROUTINE=(ADPEX52),ENABLE
 snip

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Best way to force jobs to a specific LPAR

[Walt Farrell]

On Fri, 31 Oct 2008 13:56:52 -0400, Lizette Koehler
<[EMAIL PROTECTED]> wrote:

>I am looking for a good (and easy) way of ensuring that certain programs
only run on a specific LPAR.  We are very vanilla z/OS V1.9.
>
>I was thinking of either creating a stub module that is the name of the
program and then testing to see if it is submitted with /*JOBPARM or
creating a TSO Submit exit and Converter exit to add the /*JOBPARM if it is
a specific program name.
>
>Are there any better and easier to maintain options for this request?
>
>
>So if JOBA is submitted (either via a scheduler product or TSO) and the
PGM=PROGA then I want to ensure that the job only runs on LPARA.

Are you wanting to provide an automatic mechanism that routes the job to the
right system?  Or one that makes the job fail if run on the wrong system? 
You've kind of hinted at both approaches.

For the "failure" case, you could use RACF PROGRAM control, and for those
programs that must run on a specific system and are not in LPA you can do
something like:
  RDEFINE PROGRAM program-name ADDMEM('library'//NOPADCHK) UACC(NONE)
  PERMIT program-name CLASS(PROGRAM) ID(*) ACCESS(READ) WHEN(SYSID(smf-id))

If the program runs on a system you have not specified then it will abend
with an S306 abend.

-- 
  Walt Farrell, CISSP
  IBM STSM, z/OS Security Design

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: z/OS Problem Documentation Upload Utility ftp://ftp.software.ibm.com/s390/mvs/tools/mtftp/ now available

[Knutson, Sam]

You might want to tell them:-)  Dougie Lawson (IBM) had posted this answer on 
IMS-L where this popped up. 

"Please make sure you update the PMR with the encryption key used with this 
stuff. That helps us decrypt and get your stuff back on MVS." 

Thanks, Sam Knutson 

-Original Message-
  

Do you know how IBM decrypts the data if we specify an encryption key to
the tool?

-- 
Mark Jacobs
Time Customer Service
Tampa, FL


This email/fax message is for the sole use of the intended
recipient(s) and may contain confidential and privileged information.
Any unauthorized review, use, disclosure or distribution of this
email/fax is prohibited. If you are not the intended recipient, please
destroy all paper and electronic copies of the original message.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Need Help ACF2 JES2 exits

[William F Besnier]

I've included them and will re-ipl.

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf
Of Big Iron
Sent: Friday, October 31, 2008 12:54 PM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: Need Help ACF2 JES2 exits

You seem to be missing the EXIT statements for ACF2 JES2 EXITs 50 
and 52. That may be your problem,

Bill

On Fri, 31 Oct 2008 12:45:19 -0600, William F Besnier <[EMAIL PROTECTED]>
wrote:

>JES2PARM:
>
>LOAD(ACFJ2ITF) STOR=CSA  /*  ACF2  */
>LOAD(ADPEXIT2) STOR=PVT  /*  LOCAL */
>LOAD(ADPEXIT3)   /*  LOCAL */
>LOAD(REPEXIT)/*  JES2 $REPEXIT & $ADDEXIT COMMANDS */
>LOAD(ADPEXIT6)   /*  LOCAL */
>LOAD(ADPEXI20) STOR=PVT  /*  LOCAL */
>LOAD(ADPEXI50) STOR=CSA  /*  LOCAL */
>LOAD(ADPEXI52) STOR=CSA  /*  LOCAL */
>LOAD(ADPEXI53) STOR=CSA  /*  LOCAL */
>LOAD(ACFJ2USR) STOR=CSA  /*  ACF2 USER EXIT FOR JOB CARD VALIDATION */
>EXIT2 ROUTINE=(ADPEX2),disable
>EXIT3 ROUTINE=(ADPEX3),DISABLE
>EXIT4 ROUTINE=(ACFEXIT4)
>EXIT5 ROUTINE=(EXIT05),TRACE=NO
>EXIT6 ROUTINE=(EXIT06),DISABLE
>EXIT20 ROUTINE=(ADPEX20),DISABLE
>EXIT24 ROUTINE=(ACFEXT24)
>EXIT26 ROUTINE=(ACFEXT26)
>EXIT26 ROUTINE=(ACFEXT26)
>EXIT31 ROUTINE=(ACFEXT31)
>EXIT34 ROUTINE=(ACFEXT34)
>EXIT46 ROUTINE=(ACFEXT46)
>EXIT50 ROUTINE=(ADPEX50),ENABLE
>EXIT52 ROUTINE=(ADPEX52),ENABLE
 snip

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Generic Device Names and FDR

[Howard Rifkind]

Just an FYI and for future information in case anyone else runs into the same 
problem.  I redid the input tape dd and the FDR job ran:
 
//TAPE1 DD  DSN=FDRABR.VOPTSO1.C1061204,
//  VOL=(,RETAIN,,1,SER=(700319)),  
//  UNIT=JAGR,  
//  DISP=(OLD,KEEP) 


>>> Howard Rifkind <[EMAIL PROTECTED]> 10/30/2008 3:48 PM >>>
Spoke with them for about 30 minutes...they think it might have something to 
with the Tape manager ... RMM but that's as far as we got.

>>> "Cebell, David" <[EMAIL PROTECTED]> 10/30/2008 3:38 PM >>>
Innovations has wonder Tech Support help.

Did you run this by them?

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Howard Rifkind
Sent: Thursday, October 30, 2008 2:25 PM
To: IBM-MAIN@BAMA.UA.EDU 
Subject: Generic Device Names and FDR

I'm trying to use the FDRABR scratch facility to restore a deleted
dataset.

An FDR print report showed that the dataset had been properly backed up
and all the information needed appeared to be in the report for the
indicated dataset.

However I can't seem to be able to get the job to run due to not being
able to mount the indicated tape (for input) on a 3592 which is the
device type the back up tape was created on.

When run, the job wants to mount the tape on device 580...the 580's are
3590 and the 700's are 3592's.

The snip below is from the HCD.

Devices  Device Type
0580,48  3590   
0710,16  3590

When just wanting to allocate a 3590 I specify unit=hcrt and get a 3590.

I can't seem to be able to get a 3592 no matter what I do.  tried:

unit=710
unit=/710
unit=0710
unit=/0710 
unit=HCRT and so on.

Where in the system would something like HCRT be defined...couldn't find
in HCD or was looking in the wring place.

Running the job with something like unit=710 gives me the follow error:

E18823X RESTORE TAPE1 ALLOCATION FAILED 
A NON-LIBRARY REQUEST SPECIFIED A LIBRARY DEVICE 0710

Any ideas or suggestions will be appreciated.

Thanks.
   
_
LEGAL NOTICE
Unless expressly stated otherwise, this message is confidential
and may be privileged. It is intended for the addressee(s) only.
Access to this E-mail by anyone else is unauthorized.
If you are not an addressee, any disclosure or copying of the
contents of this E-mail or any action taken (or not taken) in
reliance on it is unauthorized and may be unlawful. If you are not an
addressee, please inform the sender immediately, then delete this
message and empty from your trash.


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html 

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html 


_
LEGAL NOTICE
Unless expressly stated otherwise, this message is confidential
and may be privileged. It is intended for the addressee(s) only.
Access to this E-mail by anyone else is unauthorized.
If you are not an addressee, any disclosure or copying of the
contents of this E-mail or any action taken (or not taken) in
reliance on it is unauthorized and may be unlawful. If you are not an
addressee, please inform the sender immediately, then delete this
message and empty from your trash.


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html 


_
LEGAL NOTICE
Unless expressly stated otherwise, this message is confidential
and may be privileged. It is intended for the addressee(s) only.
Access to this E-mail by anyone else is unauthorized.
If you are not an addressee, any disclosure or copying of the
contents of this E-mail or any action taken (or not taken) in
reliance on it is unauthorized and may be unlawful. If you are not an
addressee, please inform the sender immediately, then delete this
message and empty from your trash.


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: z/OS Problem Documentation Upload Utility ftp://ftp.software.ibm.com/s390/mvs/tools/mtftp/ now available

[Patrick O'Keefe]

On Fri, 31 Oct 2008 14:11:23 -0400, Knutson, Sam 
<[EMAIL PROTECTED]> wrote:

>IBM has provided a very nice Halloween treat!
>
>z/OS Problem Documentation Upload Utility now available
>
>ftp://ftp.software.ibm.com/s390/mvs/tools/mtftp/
>
>* a single tool to provide all the function required to send PMR related 
documentation.
>...

Not much help for those benighted companies whose firewalls 
prohibit FTPs to/from the mainframe.  :-(  And yes, I realise it is 
not the firewall's fault.  But in our case it is as effective to argue
with the firewalls as it is to argue with the corporate security people.
Logic is not effective.

Pat O'Keefe  

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Need Help ACF2 JES2 exits

[Natarajan Mohan]

Will,

you don't need exit 50 and 52, I don't believe they are ACF2 exits.

If you did not re-assemble the ACF2 JES2 modules (ACFJ2ITF and ACFJ2USR) after 
the upgrade of z/OS, you would have to trigger an reassembly of the same.

Use the JOB JXBUMJ2 provided in the SAMPJCL to reassemble JES interface.

ACF2 JES2 interface has to be reinstalled after upgrading any z/OS level.

Thanks
Natarajan



>>> William F Besnier <[EMAIL PROTECTED]> 10/31/2008 12:15 PM >>>
I've included them and will re-ipl.

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf
Of Big Iron
Sent: Friday, October 31, 2008 12:54 PM
To: IBM-MAIN@BAMA.UA.EDU 
Subject: Re: Need Help ACF2 JES2 exits

You seem to be missing the EXIT statements for ACF2 JES2 EXITs 50 
and 52. That may be your problem,

Bill

On Fri, 31 Oct 2008 12:45:19 -0600, William F Besnier <[EMAIL PROTECTED]>
wrote:

>JES2PARM:
>
>LOAD(ACFJ2ITF) STOR=CSA  /*  ACF2  */
>LOAD(ADPEXIT2) STOR=PVT  /*  LOCAL */
>LOAD(ADPEXIT3)   /*  LOCAL */
>LOAD(REPEXIT)/*  JES2 $REPEXIT & $ADDEXIT COMMANDS */
>LOAD(ADPEXIT6)   /*  LOCAL */
>LOAD(ADPEXI20) STOR=PVT  /*  LOCAL */
>LOAD(ADPEXI50) STOR=CSA  /*  LOCAL */
>LOAD(ADPEXI52) STOR=CSA  /*  LOCAL */
>LOAD(ADPEXI53) STOR=CSA  /*  LOCAL */
>LOAD(ACFJ2USR) STOR=CSA  /*  ACF2 USER EXIT FOR JOB CARD VALIDATION */
>EXIT2 ROUTINE=(ADPEX2),disable
>EXIT3 ROUTINE=(ADPEX3),DISABLE
>EXIT4 ROUTINE=(ACFEXIT4)
>EXIT5 ROUTINE=(EXIT05),TRACE=NO
>EXIT6 ROUTINE=(EXIT06),DISABLE
>EXIT20 ROUTINE=(ADPEX20),DISABLE
>EXIT24 ROUTINE=(ACFEXT24)
>EXIT26 ROUTINE=(ACFEXT26)
>EXIT26 ROUTINE=(ACFEXT26)
>EXIT31 ROUTINE=(ACFEXT31)
>EXIT34 ROUTINE=(ACFEXT34)
>EXIT46 ROUTINE=(ACFEXT46)
>EXIT50 ROUTINE=(ADPEX50),ENABLE
>EXIT52 ROUTINE=(ADPEX52),ENABLE
 snip

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html 

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html 


NOTICE OF CONFIDENTIALITY 

The information contained in this communication, including but not limited to 
any accompanying document(s) and/or attachment(s), is privileged and 
confidential and is intended solely for the above-named individual(s). If you 
are not the intended recipient, please be advised that any distribution, 
copying, disclosure, and/or use of the information contained herein is strictly 
prohibited. If you received this communication in error, please destroy all 
copies of the communication, whether in electronic or hard copy format, and 
immediately contact the Security Office at EDFUND at (916) 526-7539 or [EMAIL 
PROTECTED] Thank you.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Best way to force jobs to a specific LPAR

[Anton Britz]

What about VANILLA  "/*XEQ"


Purpose : Use the /*XEQ statement to identify the network node where the 
job is to execute. 

It performs the same function as the /*ROUTE XEQ statement.

Anton

On Fri, 31 Oct 2008 13:56:52 -0400, Lizette Koehler 
<[EMAIL PROTECTED]> wrote:

>I am looking for a good (and easy) way of ensuring that certain programs 

only run on a specific LPAR.  We are very vanilla z/OS V1.9.
>
>I was thinking of either creating a stub module that is the name of the 
program and then testing to see if it is submitted with /*JOBPARM or creating 
a TSO Submit exit and Converter exit to add the /*JOBPARM if it is a specific 
program name.
>
>Are there any better and easier to maintain options for this request?
>
>
>So if JOBA is submitted (either via a scheduler product or TSO) and the 
PGM=PROGA then I want to ensure that the job only runs on LPARA.
>
>
>Lizette
>
>--
>For IBM-MAIN subscribe / signoff / archive access instructions,
>send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
>Search the archives at http://bama.ua.edu/archives/ibm-main.html

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Best way to force jobs to a specific LPAR

[Bob Shannon]

>What about VANILLA  "/*XEQ"

I believe that will only direct you to a specific node. If each system is a 
unique node, XEQ will work. I assumed, erroneously, that the systems were in 
the same Sysplex.

Bob Shannon
Rocket Software

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

zArchitecture reference summary - the denounement

[Steve Comstock]

Well, the prices did go down for these documents.

It turns out the -01 version has all the info (and more)
needed for the intro students, and if I order 15 or
more there's a 20% discount; so they end up $4.89 a piece,
plus taxes. A fair price indeed.

Actually, the -01 version is _better_ than the -04
version, in my opinion, since the code pages still
have the ASCII assignments as well as several EBCDIC
code page mappings, while the -04 only has ASCII and
code page 037. Of course, the -01 doesn't have the
z10 opcodes, but I don't need them for my Intro
course.




Kind regards,

-Steve Comstock
The Trainer's Friend, Inc.

303-393-8716
http://www.trainersfriend.com

  z/OS Application development made easier
* Our classes include
   + How things work
   + Programming examples with realistic applications
   + Starter / skeleton code
   + Complete working programs
   + Useful utilities and subroutines
   + Tips and techniques

==> Check out the Trainer's Friend Store to purchase z/OS  <==
==> application developer toolkits. Sample code in four<==
==> programming languages, JCL to Assemble or compile, <==
==> bind and test. <==
==>   http://www.trainersfriend.com/TTFStore/index.html<==

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Need Help ACF2 JES2 exits

[Big Iron]

The EXITs 50 & 52 the appear in the text below are NOT ACF2 exits.
However, ACF2 does provide its own EXITs 50 & 52 and that requirement
is documented in the install documentation. These exit points appear
in the display for MODULE ACFJ2ITF and they wouldn't be there if this
module hadn't been reassembled with a JES2 >= 1.7. Also, I think
that there is a check that the version of the macros used to assemble
the module match the version of JES2 running,

Bill

On Fri, 31 Oct 2008 12:32:26 -0700, Natarajan Mohan <[EMAIL PROTECTED]> wrote:

>Will,
>
>you don't need exit 50 and 52, I don't believe they are ACF2 exits.
>
>If you did not re-assemble the ACF2 JES2 modules (ACFJ2ITF and ACFJ2USR)
after the upgrade of z/OS, you would have to trigger an reassembly of the same.
>
>Use the JOB JXBUMJ2 provided in the SAMPJCL to reassemble JES interface.
>
>ACF2 JES2 interface has to be reinstalled after upgrading any z/OS level.
>
>Thanks
>Natarajan
>
>
>
 William F Besnier <[EMAIL PROTECTED]> 10/31/2008 12:15 PM >>>
>I've included them and will re-ipl.
>
>-Original Message-
>From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf
>Of Big Iron
>Sent: Friday, October 31, 2008 12:54 PM
>To: IBM-MAIN@BAMA.UA.EDU
>Subject: Re: Need Help ACF2 JES2 exits
>
>You seem to be missing the EXIT statements for ACF2 JES2 EXITs 50
>and 52. That may be your problem,
>
>Bill
>
>On Fri, 31 Oct 2008 12:45:19 -0600, William F Besnier <[EMAIL PROTECTED]>
>wrote:
>
>>JES2PARM:
>>
>>LOAD(ACFJ2ITF) STOR=CSA  /*  ACF2  */
>>LOAD(ADPEXIT2) STOR=PVT  /*  LOCAL */
>>LOAD(ADPEXIT3)   /*  LOCAL */
>>LOAD(REPEXIT)/*  JES2 $REPEXIT & $ADDEXIT COMMANDS */
>>LOAD(ADPEXIT6)   /*  LOCAL */
>>LOAD(ADPEXI20) STOR=PVT  /*  LOCAL */
>>LOAD(ADPEXI50) STOR=CSA  /*  LOCAL */
>>LOAD(ADPEXI52) STOR=CSA  /*  LOCAL */
>>LOAD(ADPEXI53) STOR=CSA  /*  LOCAL */
>>LOAD(ACFJ2USR) STOR=CSA  /*  ACF2 USER EXIT FOR JOB CARD VALIDATION */
>>EXIT2 ROUTINE=(ADPEX2),disable
>>EXIT3 ROUTINE=(ADPEX3),DISABLE
>>EXIT4 ROUTINE=(ACFEXIT4)
>>EXIT5 ROUTINE=(EXIT05),TRACE=NO
>>EXIT6 ROUTINE=(EXIT06),DISABLE
>>EXIT20 ROUTINE=(ADPEX20),DISABLE
>>EXIT24 ROUTINE=(ACFEXT24)
>>EXIT26 ROUTINE=(ACFEXT26)
>>EXIT26 ROUTINE=(ACFEXT26)
>>EXIT31 ROUTINE=(ACFEXT31)
>>EXIT34 ROUTINE=(ACFEXT34)
>>EXIT46 ROUTINE=(ACFEXT46)
>>EXIT50 ROUTINE=(ADPEX50),ENABLE
>>EXIT52 ROUTINE=(ADPEX52),ENABLE
> snip
>
>--
>For IBM-MAIN subscribe / signoff / archive access instructions,
>send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
>Search the archives at http://bama.ua.edu/archives/ibm-main.html
>
>--
>For IBM-MAIN subscribe / signoff / archive access instructions,
>send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
>Search the archives at http://bama.ua.edu/archives/ibm-main.html
>
>
>NOTICE OF CONFIDENTIALITY
>
>The information contained in this communication, including but not limited
to any accompanying document(s) and/or attachment(s), is privileged and
confidential and is intended solely for the above-named individual(s). If
you are not the intended recipient, please be advised that any distribution,
copying, disclosure, and/or use of the information contained herein is
strictly prohibited. If you received this communication in error, please
destroy all copies of the communication, whether in electronic or hard copy
format, and immediately contact the Security Office at EDFUND at (916)
526-7539 or [EMAIL PROTECTED] Thank you.
>

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: zArchitecture reference summary - the denounement

[gah]

Steve Comstock wrote:

Well, the prices did go down for these documents.


It seems that the Principles of Operation manuals are
still much more expensive than before.   They used to
be somewhat more reasonably priced than many of the
software manuals.

-- glen

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: leap seconds

[Paul Gilmartin]

On Fri, 31 Oct 2008 18:53:12 +, john gilmore wrote:

>I have read the sequence of contributions to this thread with more dismay than 
>usual.   Working with leap seconds poses no particular difficulties, and in 
>particular Paul Gilmartin's suggestions are otiose.  (I single him out only 
>because he almost always knows what he is talking about, even when I disagree 
>strongly with him.)
>
Otiose?  I'd prefer to be seen not as spearhead of the campaign
to abolish leap seconds but as reporter and commentator.

What more than a sinistral compliment can I expect on Hallowe'en?

>A table is needed but IBM supplies one, which it updates well in advance of 
>the effective insertion time of a new leap second, indeed almost as soon as 
>the BIPM issues its notification that an insertion will occur.  ...

>Suppose now that we have a copy of this table, call it T, and a (truncated) 
>STCKE value, call it S, for which we need the corresponding cumulative 
>leap-seconds-inserted value.  Traditional match-seeking binary search in this 
>table is unavailable to us because we need not a match for but a greatest 
>lower bound (glb), which may occasionally also be a match, on S. A 
>binary-search scheme that I devised long ago for evaluating tabular step 
>functions can, however, be used for this purpose.
>
I believe we agree that it's practical; "not rocket science".
I'd be delighted to see IBM incorporate such an algorithm in
the implementation of the STCKCONV macro and update it promptly
by PTF upon the notification that an insertion will occur.
I'm far from delighted to see it left to individual sites,
programmers, and ISVs, all of whom are less likely to perform
timely updates of their code.

And I'd like to see a similar treatment of the chronicle
of Daylight Saving Time changes as many (most?) suppliers
other than IBM provide:

   Linkname: Zoneinfo - Wikipedia, the free encyclopedia
URL: http://en.wikipedia.org/wiki/Zoneinfo

   Linkname: The zoneinfo home page
URL: http://www.twinsun.com/tz/tz-link.htm

-- gil

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Best way to force jobs to a specific LPAR

[Lizette Koehler]

The intent was to do it for the users, rather than have them change their JCL.  
As you know, it is not always guarantee that the user will do what is needed.

Lizette 


> 
> I am looking for a good (and easy) way of ensuring that certain
> programs only run on a specific LPAR.  We are very vanilla z/OS V1.9.
> 
> I was thinking of either creating a stub module that is the name of the
> program and then testing to see if it is submitted with /*JOBPARM or
> creating a TSO Submit exit and Converter exit to add the /*JOBPARM if
> it is a specific program name.
> 
> Are there any better and easier to maintain options for this request?
> 
> 
> So if JOBA is submitted (either via a scheduler product or TSO) and the
> PGM=PROGA then I want to ensure that the job only runs on LPARA.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Best way to force jobs to a specific LPAR

[Shane]

On Fri, 2008-10-31 at 17:23 -0400, Lizette Koehler wrote:

> The intent was to do it for the users, rather than have them change
> their JCL.  As you know, it is not always guarantee that the user will
> do what is needed.

In which case look at Walts suggestion - works a treat.
ISVs will be more receptive to accepting evidence of this sort of
control if you are looking at licensing issues.

Shane ...

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Can't Cancel a CICS Region

[Howard Rifkind]

Hello,
 
This might not be the right list for this question but here goes.
 
A CICS region which is part of an MRO group  isn't shutting down after a 'p 
shut immed'
 
The other two regions TOR and an AOR did shutdown with the above command but 
this one is hung.
 
From an SDSF console I keyed in 'C' for the regions and saw the following 
messages in the console:
 
$CS(7237)  
$HASP003 RC=(89),S(7237)  - JOB CANNOT BE CANCELLED
$HASP003 RC=(52), 398  
$HASP003 RC=(52),S(7237)  - NO SELECTABLE ENTRIES FOUND
Any ideas how to get rid of this region...it's driving me crazy.  IPL's are 
hard to come by so it's really important to shut this down and get it back up.
 
Thanks.
_
LEGAL NOTICE
Unless expressly stated otherwise, this message is confidential
and may be privileged. It is intended for the addressee(s) only.
Access to this E-mail by anyone else is unauthorized.
If you are not an addressee, any disclosure or copying of the
contents of this E-mail or any action taken (or not taken) in
reliance on it is unauthorized and may be unlawful. If you are not an
addressee, please inform the sender immediately, then delete this
message and empty from your trash.


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Can't Cancel a CICS Region

[Pat Mihalec]

You can force it down.

Pat Mihalec
Rush University Medical Center
Senior System Programmer
(312) 942-8386
[EMAIL PROTECTED]

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Can't Cancel a CICS Region

[Howard Rifkind]

Pat, how would I do this...?
 
Force ASID???

>>> Pat Mihalec <[EMAIL PROTECTED]> 10/31/2008 5:45 PM >>>
You can force it down.

Pat Mihalec
Rush University Medical Center
Senior System Programmer
(312) 942-8386
[EMAIL PROTECTED] 

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html 


_
LEGAL NOTICE
Unless expressly stated otherwise, this message is confidential
and may be privileged. It is intended for the addressee(s) only.
Access to this E-mail by anyone else is unauthorized.
If you are not an addressee, any disclosure or copying of the
contents of this E-mail or any action taken (or not taken) in
reliance on it is unauthorized and may be unlawful. If you are not an
addressee, please inform the sender immediately, then delete this
message and empty from your trash.


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: zArchitecture reference summary - the denounement

[Patrick O'Keefe]

On Fri, 31 Oct 2008 12:33:27 -0800, gah <[EMAIL PROTECTED]> 
wrote:

>...
>It seems that the Principles of Operation manuals are
>still much more expensive than before.   They used to
>be somewhat more reasonably priced than many of the
>software manuals.
>...

Documenting new instructions is really expensive.  :-)

Pat O'Keefe

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Best way to force jobs to a specific LPAR

[Anton Britz]

Final responds .. before we hit the weekend :

a) Have you got any User exits in your shop
b) have you got any Dataset naming conventions

Then :

a) Drop the ALIAS on the LPAR for those users that are not suppose to be on 
that LPAR
b) User your IEFUJV to validate the users JCL
c) or Jesexit6 to insert a /*XEQ card... i think it's JESEXIT6

Summary:

No user exits and no naming conventions ? 
Then just allow them to only LOGON to the LPAR where they are suppose to 
be.

Anton

On Fri, 31 Oct 2008 17:23:58 -0400, Lizette Koehler 
<[EMAIL PROTECTED]> wrote:

>The intent was to do it for the users, rather than have them change their 
JCL.  As you know, it is not always guarantee that the user will do what is 
needed.
>
>Lizette
>
>
>>
>> I am looking for a good (and easy) way of ensuring that certain
>> programs only run on a specific LPAR.  We are very vanilla z/OS V1.9.
>>
>> I was thinking of either creating a stub module that is the name of the
>> program and then testing to see if it is submitted with /*JOBPARM or
>> creating a TSO Submit exit and Converter exit to add the /*JOBPARM if
>> it is a specific program name.
>>
>> Are there any better and easier to maintain options for this request?
>>
>>
>> So if JOBA is submitted (either via a scheduler product or TSO) and the
>> PGM=PROGA then I want to ensure that the job only runs on LPARA.
>
>--
>For IBM-MAIN subscribe / signoff / archive access instructions,
>send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
>Search the archives at http://bama.ua.edu/archives/ibm-main.html

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

CSUF IBM 2066

[Terry Jarmon]

California State University, Fullerton is in the process of decommissioning our 
IBM 2066 (list of assets can be sent via email request) and was hoping to find 
someone out there interested, unit is to be removed mid December 2008.


Terry Jarmon
California State University, Fullerton
IT Rollout &Reprographics Manager
T-1100d
714 278-2910 – Fax 278-1129   
[EMAIL PROTECTED]

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Can't Cancel a CICS Region

[Anton Britz]

Hi,

MVS command :

C BUSH,FORCE

Note: Documented in the MVS operator commands manual but you are going 
to do damage to the other CICS'se too..  Maybe you should speak to the CICS 
systems programmer or even better, speak tot the MVS systems programmer.

Anton

On Fri, 31 Oct 2008 18:02:20 -0400, Howard Rifkind 
<[EMAIL PROTECTED]> wrote:

>Pat, how would I do this...?
 
Force ASID???

>>> Pat Mihalec <[EMAIL PROTECTED]> 10/31/2008 5:45 PM >>>
You can force it down.

Pat Mihalec
Rush University Medical Center
Senior System Programmer
(312) 942-8386
[EMAIL PROTECTED] 

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html 


_
LEGAL NOTICE
Unless expressly stated otherwise, this message is confidential
and may be privileged. It is intended for the addressee(s) only.
Access to this E-mail by anyone else is unauthorized.
If you are not an addressee, any disclosure or copying of the
contents of this E-mail or any action taken (or not taken) in
reliance on it is unauthorized and may be unlawful. If you are not an
addressee, please inform the sender immediately, then delete this
message and empty from your trash.

>
>--
>For IBM-MAIN subscribe / signoff / archive access instructions,
>send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
>Search the archives at http://bama.ua.edu/archives/ibm-main.html

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Can't Cancel a CICS Region

[Bob Shannon]

>You can force it down

No. Do this first:

1. FORCE ARM
2. CANCEL
3. If it still isn't down now do the FORCE

Bob Shannon
Rocket Software

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Can't Cancel a CICS Region

[Anton Britz]

Bob,

You are trying to teach :

-  Alaskan's how to waterski, I think... or
-  Alaskan's what Larry Craig does on that Yacht Club of his...

You think, she knows what the "boys" where doing at the Yacht Club because 
Ted Stevens , was not a member ?

Never mind back to work..

Anton

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Best way to force jobs to a specific LPAR

[Lizette Koehler]

I would love to use this approach but we are a Top Secret Shop and not RACF.

I will see if our security admins can change this to a TSS function.

And yes, both processes are really required.  Fail it on systems where it is
not suppose to run, and make it only run on the LPAR of My choice.

Lizette


> 
> >I am looking for a good (and easy) way of ensuring that certain
> programs
> only run on a specific LPAR.  We are very vanilla z/OS V1.9.
> >
> >I was thinking of either creating a stub module that is the name of
> the
> program and then testing to see if it is submitted with /*JOBPARM or
> creating a TSO Submit exit and Converter exit to add the /*JOBPARM if
> it is
> a specific program name.
> >
> >Are there any better and easier to maintain options for this request?
> >
> >
> >So if JOBA is submitted (either via a scheduler product or TSO) and
> the
> PGM=PROGA then I want to ensure that the job only runs on LPARA.
> 
> Are you wanting to provide an automatic mechanism that routes the job
> to the
> right system?  Or one that makes the job fail if run on the wrong
> system?
> You've kind of hinted at both approaches.
> 
> For the "failure" case, you could use RACF PROGRAM control, and for
> those
> programs that must run on a specific system and are not in LPA you can
> do
> something like:
>   RDEFINE PROGRAM program-name ADDMEM('library'//NOPADCHK) UACC(NONE)
>   PERMIT program-name CLASS(PROGRAM) ID(*) ACCESS(READ) WHEN(SYSID(smf-
> id))
> 
> If the program runs on a system you have not specified then it will
> abend
> with an S306 abend.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Can't Cancel a CICS Region

[Roland Schiradin]

First choice login and try to invoke
CEMT P SHUT or CEMT P SHUT I

You might capture a dump and analyze this dump.

In some cases you might resubmit your CANCEL request.

I never saw the symptoms for a CICS region

Roland



>Hello,
 
This might not be the right list for this question but here goes.
 
A CICS region which is part of an MRO group  isn't shutting down after a 'p 
shut immed'
 
The other two regions TOR and an AOR did shutdown with the above 
command but this one is hung.
 
>From an SDSF console I keyed in 'C' for the regions and saw the following 
messages in the console:
 
$CS(7237)  
$HASP003 RC=(89),S(7237)  - JOB CANNOT BE CANCELLED
$HASP003 RC=(52), 398  
$HASP003 RC=(52),S(7237)  - NO SELECTABLE ENTRIES FOUND
Any ideas how to get rid of this region...it's driving me crazy.  IPL's are 
hard 
to come by so it's really important to shut this down and get it back up.
 
Thanks.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Best way to force jobs to a specific LPAR

[Anton Britz]

Lizette,

Have to read any comparison between RACF and TSS ?

TSS can do the same with half the quantity of rescources supporting it..

If you need any TSS manuals, I would send you some.. ( It actually easier to 
read than the IBM manuals )

Never mind... if Palin can say, what she is saying... Anything goes in the USA.

Anton

On Fri, 31 Oct 2008 18:30:54 -0400, Lizette Koehler 
<[EMAIL PROTECTED]> wrote:

>I would love to use this approach but we are a Top Secret Shop and not 
RACF.
>
>I will see if our security admins can change this to a TSS function.
>
>And yes, both processes are really required.  Fail it on systems where it is
>not suppose to run, and make it only run on the LPAR of My choice.
>
>Lizette
>
>
>>
>> >I am looking for a good (and easy) way of ensuring that certain
>> programs
>> only run on a specific LPAR.  We are very vanilla z/OS V1.9.
>> >
>> >I was thinking of either creating a stub module that is the name of
>> the
>> program and then testing to see if it is submitted with /*JOBPARM or
>> creating a TSO Submit exit and Converter exit to add the /*JOBPARM if
>> it is
>> a specific program name.
>> >
>> >Are there any better and easier to maintain options for this request?
>> >
>> >
>> >So if JOBA is submitted (either via a scheduler product or TSO) and
>> the
>> PGM=PROGA then I want to ensure that the job only runs on LPARA.
>>
>> Are you wanting to provide an automatic mechanism that routes the job
>> to the
>> right system?  Or one that makes the job fail if run on the wrong
>> system?
>> You've kind of hinted at both approaches.
>>
>> For the "failure" case, you could use RACF PROGRAM control, and for
>> those
>> programs that must run on a specific system and are not in LPA you can
>> do
>> something like:
>>   RDEFINE PROGRAM program-name ADDMEM('library'//NOPADCHK) UACC
(NONE)
>>   PERMIT program-name CLASS(PROGRAM) ID(*) ACCESS(READ) WHEN
(SYSID(smf-
>> id))
>>
>> If the program runs on a system you have not specified then it will
>> abend
>> with an S306 abend.
>
>--
>For IBM-MAIN subscribe / signoff / archive access instructions,
>send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
>Search the archives at http://bama.ua.edu/archives/ibm-main.html

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: z/OS Problem Documentation Upload Utility ftp://ftp.software.ibm.com/s390/mvs/tools/mtftp/ now available

[Skip Robinson]

Maybe it's just me, but when I click on that link, after a long time I get
a failure box saying that Windows cannot access the folder.

.
.
JO.Skip Robinson
Southern California Edison Company
Electric Dragon Team Paddler
SHARE MVS Program Co-Manager
626-302-7535 Office
323-715-0595 Mobile
[EMAIL PROTECTED]


   
 "Knutson, Sam"
 <[EMAIL PROTECTED] 
 OM>To 
 Sent by: IBM  IBM-MAIN@BAMA.UA.EDU
 Mainframe  cc 
 Discussion List   
 <[EMAIL PROTECTED] Subject 
 .EDU> z/OS Problem Documentation Upload   
   Utility 
   ftp://ftp.software.ibm.com/s390/mvs 
 10/31/2008 11:11  /tools/mtftp/  now available
 AM
   
   
 Please respond to 
   IBM Mainframe   
  Discussion List  
 <[EMAIL PROTECTED] 
   .EDU>   
   
   




IBM has provided a very nice Halloween treat!

z/OS Problem Documentation Upload Utility now available

ftp://ftp.software.ibm.com/s390/mvs/tools/mtftp/

* a single tool to provide all the function required to send PMR related
documentation.

* In-line hardware compression minimizes processor and I/O time compared to
software compression.

* Optionally use 192 bit 3DES hardware encryption.

* Split source file into multiple (up to 20) parallel FTP sessions to
improve throughput

* the utility can significantly reduce the overall time to get
documentation to IBM

I am still sifting through this but having been asking for improvements to
tooling in this area for sometime this is cool!

Best Regards,

Sam Knutson, GEICO

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Can't Cancel a CICS Region

[Patrick O'Keefe]

On Fri, 31 Oct 2008 18:12:33 -0400, Bob Shannon 
<[EMAIL PROTECTED]> wrote:

>>You can force it down
>
>No. Do this first:
>
>1. FORCE ARM
>2. CANCEL
>3. If it still isn't down now do the FORCE
>...

Doing the C via SDSF issues a JES cancel.  What happens if you use
an MVS cancel?

In fact the description of 
$HASP003 RC=(89),S(7237)  - JOB CANNOT BE CANCELLED 
implies that the plain old MVS Cancel might work.

I don't at all understand the RC=(52) messages, but I'm not
supposed to.  This is not my field.  

And since SDSF was mentioned, did you know that giving the STC
a Z command gives the STC a FORCE?  That scares the begeebers
out of me.  Is FORCE now considered safe enough to be done that 
easily?

It looks like that is available only for STCs (and I have not been 
brave enough to try it) so that may not matter in this case.  A lot
of shops run CICS as jobs rather than STCs.

Pat O'Keefe

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Can't Cancel a CICS Region

[Roland Schiradin]

Patrick, 
running CICS as STC is much better then a JOB. 
This issue has been discussed several times at CICS-L 

Roland


>On Fri, 31 Oct 2008 18:12:33 -0400, Bob Shannon
><[EMAIL PROTECTED]> wrote:
>
>>>You can force it down
>>
>>No. Do this first:
>>
>>1. FORCE ARM
>>2. CANCEL
>>3. If it still isn't down now do the FORCE
>>...
>
>Doing the C via SDSF issues a JES cancel.  What happens if you use
>an MVS cancel?
>
>In fact the description of
>$HASP003 RC=(89),S(7237)  - JOB CANNOT BE CANCELLED
>implies that the plain old MVS Cancel might work.
>
>I don't at all understand the RC=(52) messages, but I'm not
>supposed to.  This is not my field.
>
>And since SDSF was mentioned, did you know that giving the STC
>a Z command gives the STC a FORCE?  That scares the begeebers
>out of me.  Is FORCE now considered safe enough to be done that
>easily?
>
>It looks like that is available only for STCs (and I have not been
>brave enough to try it) so that may not matter in this case.  A lot
>of shops run CICS as jobs rather than STCs.
>

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Can't Cancel a CICS Region

[Ulrich Krueger]

Howard,
To cancel a started task, you need to issue an OS "CANCEL CICSx" command,
not a JES2 "$CS1234" command.
>From the SDSF DA screen, there's a line command you can issue instead of "C"
(which usually generates $CS). I just can't remember which command line
character that is (and don't have a system handy to try), so please do me a
favor ... go into SDSF DA, then press PF1/Help and rummage around in the
Help Panels until you find the description of the available line commands
and what OS or JES2 command they issue. Then use that special line command
character to cancel your CICS region.

What causes a CICS region to hang on shutdown? 
In my experience, most often it was a hung terminal session (a user
"chickened out" of a session by stopping the 3270-emulator instead of
logging off). If it isn't too late yet (or next time it happens), see if you
can get CICS to show you a CEMT I TER and/or a CEMT I TAS. Using appropriate
CICS commands, force any hanging terminal off the system. This should allow
CICS to terminate normally.
In the last shop I worked for some years ago, they got around this problem
by running some automatic process that kicked in during shutdown. Any task
or process that didn't voluntarily go away after CEMT SHUT I was issued
would be nuked ... result: CICS would always shut down cleanly. But please
don't ask me specifics about this shutdown process and where to find it,
etc. I don't know that stuff. Maybe someone else can tell you ...


Regards,
Ulrich Krueger

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf
Of Howard Rifkind
Sent: Friday, October 31, 2008 14:38
To: IBM-MAIN@BAMA.UA.EDU
Subject: Can't Cancel a CICS Region

Hello,
 
This might not be the right list for this question but here goes.
 
A CICS region which is part of an MRO group  isn't shutting down after a 'p
shut immed'
 
The other two regions TOR and an AOR did shutdown with the above command but
this one is hung.
 
>From an SDSF console I keyed in 'C' for the regions and saw the following
messages in the console:
 
$CS(7237)  
$HASP003 RC=(89),S(7237)  - JOB CANNOT BE CANCELLED
$HASP003 RC=(52), 398  
$HASP003 RC=(52),S(7237)  - NO SELECTABLE ENTRIES FOUND
Any ideas how to get rid of this region...it's driving me crazy.  IPL's are
hard to come by so it's really important to shut this down and get it back
up.
 
Thanks.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Can't Cancel a CICS Region

[Linda Mooney]

Hey Howard,

You might try a couple of things before the cancel.  Most of the 'reluctant' 
shutdowns we have had could be resolved with the couple of things I listed.  
Better than clobbering the region.

F CICSxx,CEMT I TASK

Since you have already issued the shutdown, the only thing that 'should' be 
left is the shutdown task.  Any other tasks are probably hung, issue
CEMT S TASK (x) PURGE
The VTAM ACB may not be closed - did you get these messages?
+DFH2305I - TERMINATION OF VTAM SESSIONS BEGINNING
+DFH2316I - VTAM ACB IS CLOSED
If you got the termination of VTAM sessions beginning message, but not the VTAM 
ACB is closed, then you can vary the CICS major node inactive,force to VTAM.  
CICS should close out.  If not re-issue the shutdown command.  After CICS is 
down, don't forget to vary the major node active before trying to restart CICS.
Linda Mooney
-- Original message -- 
From: Howard Rifkind <[EMAIL PROTECTED]> 

> Hello, 
> 
> This might not be the right list for this question but here goes. 
> 
> A CICS region which is part of an MRO group isn't shutting down after a 'p 
> shut 
> immed' 
> 
> The other two regions TOR and an AOR did shutdown with the above command but 
> this one is hung. 
> 
> From an SDSF console I keyed in 'C' for the regions and saw the following 
> messages in the console: 
> 
> $CS(7237) 
> $HASP003 RC=(89),S(7237) - JOB CANNOT BE CANCELLED 
> $HASP003 RC=(52), 398 
> $HASP003 RC=(52),S(7237) - NO SELECTABLE ENTRIES FOUND 
> Any ideas how to get rid of this region...it's driving me crazy. IPL's are 
> hard 
> to come by so it's really important to shut this down and get it back up. 
> 
> Thanks. 
> _ 
> LEGAL NOTICE 
> Unless expressly stated otherwise, this message is confidential 
> and may be privileged. It is intended for the addressee(s) only. 
> Access to this E-mail by anyone else is unauthorized. 
> If you are not an addressee, any disclosure or copying of the 
> contents of this E-mail or any action taken (or not taken) in 
> reliance on it is unauthorized and may be unlawful. If you are not an 
> addressee, please inform the sender immediately, then delete this 
> message and empty from your trash. 
> 
> 
> -- 
> For IBM-MAIN subscribe / signoff / archive access instructions, 
> send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO 
> Search the archives at http://bama.ua.edu/archives/ibm-main.html 
> 

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

[no subject]

[Keith Zawila]

**

The information contained in this communication is confidential, private, 
proprietary, or otherwise privileged and is intended only for the use of the 
addressee.  Unauthorized use, disclosure, distribution or copying is strictly 
prohibited and may be unlawful.  If you have received this communication in 
error, please notify the sender immediately at (312)653-6000 in Illinois; 
(800)835-8699 in New Mexico; (918)560-3500 in Oklahoma; or (972)766-6900 in 
Texas.

**

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Laurence S K LAU/HTSA/HSBC is out of the office.

[Laurence Lau]

I will be out of the office starting 31 Oct 2008 and will not return until
5 Nov 2008.

For urgent matter, please contact my teammate James Lai at 3663-8603

-
***
This e-mail is confidential. It may also be legally privileged.
If you are not the addressee you may not copy, forward, disclose
or use any part of it. If you have received this message in error,
please delete it and all copies from your system and notify the
sender immediately by return e-mail.

Internet communications cannot be guaranteed to be timely,
secure, error or virus-free. The sender does not accept liability
for any errors or omissions.
***
"SAVE PAPER - THINK BEFORE YOU PRINT!" 

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html