Re: About dispatching process

2007-10-25 Thread Barbara Nitz
Peter,

as far as I know the restart interrupt from the HMC with options 
abend-resume-repair are supposed to correspond to the 
spin(resume)-retry(repair)-term(abend) options of automatic exspin recovery. 
If you ever want to test this again, put your PHUNLOOP job into sysstc - 
improves the chances of it running quite a bit! :-)

Santosh,

the big dispatcher rewrite that got rid of running tcb chains in every address 
space once and for all occured with MVS 5.1. That release introduced a 
completely different mechanism (the WEBs) for indicating that work is ready to 
run. There have been bits and pieces around this since then, but that design is 
quite a solid one. And there are (and were) quite more dispatchable units of 
work than 'just' tcbs; just look at macro IHAWEB for the different types. 
(Peter was faster than I on this!)

And given that an lpar these days uses logical processors, I would be really 
reluctant to even *attempt* to introduce a machine check to a processor. 
Whenever I have to stop the processors for a test lpar to see the psw and get 
an idea if it is doing anything or juat waiting , we have a discussion if that 
will affect other lpars sharing the same physical processor!

Regards, Barbara Nitz
-- 
Pt! Schon vom neuen GMX MultiMessenger gehört?
Der kanns mit allen: http://www.gmx.net/de/go/multimessenger

--
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: Outsmarting WLM

2007-10-25 Thread Barbara Nitz
You'd need to count the number of idle BPXASs and decide then
if and how many to create. Idle ones are those which show
up as BPXAS in a D A,BPXAS. Haven't thought about how to
get that information in the keep-alive program, I admit.

And Johns suggestion to use modify

There goes the 'simple fork() program'! :-)

All good points, I'll keep them in mind.

Best regards, Barbara
-- 
Der GMX SmartSurfer hilft bis zu 70% Ihrer Onlinekosten zu sparen! 
Ideal für Modem und ISDN: http://www.gmx.net/de/go/smartsurfer

--
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: Outsmarting WLM

2007-10-25 Thread Hunkeler Peter (KIUK 3)
There goes the 'simple fork() program'! :-)

Well, the fork() program is still quite simple, isn't it :-)

I'd be interested in the what and how of your solution, once
it is in place. And also, how much it helped to improve
the responsiveness of that workload. 

-- 
Peter Hunkeler
Credit Suisse

--
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: About dispatching process

2007-10-25 Thread Jim Mulder
 as far as I know the restart interrupt from the HMC with options 
 abend-resume-repair are supposed to correspond to the spin(resume)-
 retry(repair)-term(abend) options of automatic exspin recovery.

  No, there is no connection.  Abend/Resume/Repair for the restart
interrupt key was introduced in MVS/370 SP1.3 as part of a 3033
RAS and performance enhancements package (the 3081 had slipped, 
and we had to revive the lagging 3033 sales).  The Repair option is 
a collection of things which never proved to be very useful.

This is what Repair is supposed to do:

Causes limited system diagnosis and repair. 
- Call Supervisor Analysis Router (IEAVESAR) to 
  check and repair critical data areas. 
- Look for system non-dispatchable and schedule 
  an SRB routine to reset the condition. 
- Look for WTO queue element depletion. 
- Check for system out of work (no batch and 
  no TSO users), and inform the operator with
  message IEA501I via WTO. 
- Schedule SRB for IOSVRSTS to analyze I/O. 
- Return to interrupted work. 

And this is what IOSVRSTS does:

This module is scheduled by the restart FLIH extension module to
run under an SRB.  It does the following: 
 
. Redrives all connected subchannels by invoking the IOSINTRP 
  macro to simulate an interrupt via a LPSW, which in turn 
  causes the subchannel to be re-driven. 
 
. Scans the MIH message queue and notifies the operator, 
  through the disabled console communications service, 
  that MIH conditions exist on paging devices. 
  If IOSVRSTS finds more than one message for 
  the same condition on the same device, it notifies 
  the operator only for the first occurrence of the 
  message.  If the disabled console communications 
  routine fails, IOSVRSTS stores the device number in 
  the PSA (PSAWTCOD) via the LOADWAIT macros used by the 
  associated Loadwait/Restart service which places the system in
  a restartable wait state with a hexadecimal wait state code of
  116. 
 
. Terminates any address space in which I/O purge is waiting and
  the purge quiesce counter is not equal to zero.  IOSVRSTS 
  terminates the address space by issuing CALLRTM TYPE=MEMTERM 
  with a hexadecimal abend code of 0AE. 
 

  I was the function tester for that whole RAS package in SP1.3.
The item to memterm address spaces which are waiting in
I/O Purge was rather controversial among the development team.
It seemed to me like a bad idea, but I didn't have much influence
on the designers 27 years ago.  It still seems like a bad idea,
but since I doubt that this Repair function ever got used much
outside of my testing, I haven't bothered to get it deleted.
(I do have a bit more influence now). 

Automatic Excessive Spin Recovery did not come along
until MVS/ESA SP3.1.0.

Jim Mulder   z/OS System Test   IBM Corp.  Poughkeepsie,  NY

--
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: About dispatching process

2007-10-25 Thread Hunkeler Peter (KIUK 3)
[snip]... (Peter was faster than I on this!)

I beg your pardon, Barbara. I usually let ladies go first.
Hope you're gonna have a good day, anyway ;-)

--
Peter Hunkeler
Credit Suisse

--
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: About dispatching process

2007-10-25 Thread Rob Scott
Jim,

(I do have a bit more influence now).

This a candidate for Under-Statement of the Year.


Rob Scott
Rocket Software, Inc
275 Grove Street
Newton, MA 02466
617-614-2305
[EMAIL PROTECTED]


-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Jim 
Mulder
Sent: 25 October 2007 08:07
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: About dispatching process

 as far as I know the restart interrupt from the HMC with options
 abend-resume-repair are supposed to correspond to the spin(resume)-
 retry(repair)-term(abend) options of automatic exspin recovery.

  No, there is no connection.  Abend/Resume/Repair for the restart interrupt 
key was introduced in MVS/370 SP1.3 as part of a 3033 RAS and performance 
enhancements package (the 3081 had slipped, and we had to revive the lagging 
3033 sales).  The Repair option is a collection of things which never proved to 
be very useful.

This is what Repair is supposed to do:

Causes limited system diagnosis and repair.
- Call Supervisor Analysis Router (IEAVESAR) to
  check and repair critical data areas.
- Look for system non-dispatchable and schedule
  an SRB routine to reset the condition.
- Look for WTO queue element depletion.
- Check for system out of work (no batch and
  no TSO users), and inform the operator with
  message IEA501I via WTO.
- Schedule SRB for IOSVRSTS to analyze I/O.
- Return to interrupted work.

And this is what IOSVRSTS does:

This module is scheduled by the restart FLIH extension module to run under an 
SRB.  It does the following:

. Redrives all connected subchannels by invoking the IOSINTRP
  macro to simulate an interrupt via a LPSW, which in turn
  causes the subchannel to be re-driven.

. Scans the MIH message queue and notifies the operator,
  through the disabled console communications service,
  that MIH conditions exist on paging devices.
  If IOSVRSTS finds more than one message for
  the same condition on the same device, it notifies
  the operator only for the first occurrence of the
  message.  If the disabled console communications
  routine fails, IOSVRSTS stores the device number in
  the PSA (PSAWTCOD) via the LOADWAIT macros used by the
  associated Loadwait/Restart service which places the system in
  a restartable wait state with a hexadecimal wait state code of
  116.

. Terminates any address space in which I/O purge is waiting and
  the purge quiesce counter is not equal to zero.  IOSVRSTS
  terminates the address space by issuing CALLRTM TYPE=MEMTERM
  with a hexadecimal abend code of 0AE.


  I was the function tester for that whole RAS package in SP1.3.
The item to memterm address spaces which are waiting in I/O Purge was rather 
controversial among the development team.
It seemed to me like a bad idea, but I didn't have much influence on the 
designers 27 years ago.  It still seems like a bad idea, but since I doubt that 
this Repair function ever got used much outside of my testing, I haven't 
bothered to get it deleted.
(I do have a bit more influence now).

Automatic Excessive Spin Recovery did not come along until MVS/ESA SP3.1.0.

Jim Mulder   z/OS System Test   IBM Corp.  Poughkeepsie,  NY

--
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: About dispatching process

2007-10-25 Thread Barbara Nitz
No, there is no connection.
lots of good info snipped

My apologies if I confused anyone! I just *knew* Jim would jump in once I 
strayed (Actually, I wondered why he hadn't participated in this earlier:-)
Actually, all of that (including excessive spin recovery) was a bit 'between my 
time'

(I do have a bit more influence now).
This a candidate for Under-Statement of the Year.

Don't you just love it?!?

I beg your pardon, Barbara. I usually let ladies go first.
Hope you're gonna have a good day, anyway ;-)
No offense taken :-) Actually, it was intended as a compliment! I had been 
distracted by 'real work' while typing :-)

Barbara


-- 
GMX FreeMail: 1 GB Postfach, 5 E-Mail-Adressen, 10 Free SMS.
Alle Infos und kostenlose Anmeldung: http://www.gmx.net/de/go/freemail

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


EDTINFO DEVSTAT ?

2007-10-25 Thread Paul Schuster
1) When using the DEVSTAT option with EDTINFO CHKUNIT, the doc. seems to
imply that you must define enough storage of 2-byte entries for the same
amount of device numbers in your DEVLIST before calling EDTINFO.  Correct?

2) These 2-byte entries correspond to each device # entry.  What is meant by
the term 'valid' here?   Bit 0 being 1 means 'not valid' but what does that
mean?  Is there no volume mounted at that address? Or do you have to look at
bit 1 to see if this device number is associated with the specified input
UNIT name?

The doc. does not seem clear about all of this.

Thank you.

Paul

--
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 System/3 3277-1

2007-10-25 Thread Anne Lynn Wheeler
The following message is a courtesy copy of an article
that has been posted to 
comp.sys.ibm.sys3x.misc,alt.folklore.computers,bit.listserv.ibm-main as well.

Anne  Lynn Wheeler [EMAIL PROTECTED] writes:
 field/col definition for 12-2-9 TXT card:

 col
 1   12-2-9 / x'02'
 2-4 TXT
 5   blank
 6-8 relative address of first instruction on record
 9-10blank
 11-12   byte count ... number of bytes in information field
 15-16   ESDID
 17-72   56-byte information field
 73-80   deck id, sequence number, or both

 cols. 2-4 and 73-80 were character ... the other fields were hex.

re:
http://www.garlic.com/~lynn/2007q.html#69 IBM System/3  3277-1

txt card decks were nearly executable output from assemblers and
compilers. more information about format of other cards in txt card
deck
http://www.garlic.com/~lynn/2001.html#14 IBM Model Numbers (was: First video 
terminal?)

before i learned about rep cards, i would duplicate a TXT,
multipunching the patch/fix into the duplicated card.

keypunches just had keys for punching the character information, if you
were dealing with hex ... for which there was no equivalent character
... it would be necessary to multi-punch to get the correct holes
punched. for hex, it was necessary to read the holes ... since even if
the card had been interpreted ... there were no corresponding
character symbols for the majority of the hex codes.

my process was to fan the txt card deck ... reading the holes in cols
6-8 (displacement address in the program of data punched in the specific
card) ... looking for the card corresponding to the data i needed to
patch. I would then take that card and duplicate it out to the cols that
needed to be fixed ...  multi-punch the corrections (in the
duplicate/new card) and then resume duplicating the remaining of the
card.

misc past posts mentioning multi-punch
http://www.garlic.com/~lynn/93.html#17 unit record  other controllers
http://www.garlic.com/~lynn/2000f.html#75 Florida is in a 30 year flashback!
http://www.garlic.com/~lynn/2001b.html#26 HELP
http://www.garlic.com/~lynn/2001b.html#27 HELP
http://www.garlic.com/~lynn/2001k.html#27 Is anybody out there still writting 
BAL 370.
http://www.garlic.com/~lynn/2001k.html#28 Is anybody out there still writting 
BAL 370.
http://www.garlic.com/~lynn/2002k.html#63 OT (sort-of) - Does it take math 
skills to do data processing ?
http://www.garlic.com/~lynn/2004p.html#24 Systems software versus applications 
software definitions
http://www.garlic.com/~lynn/2005c.html#54 12-2-9 REP  47F0
http://www.garlic.com/~lynn/2006c.html#17 IBM 610 workstation computer
http://www.garlic.com/~lynn/2006g.html#43 Binder REP Cards (Was: What's the 
linkage editor really wants?)
http://www.garlic.com/~lynn/2006g.html#58 REP cards
http://www.garlic.com/~lynn/2006l.html#64 Large Computer Rescue
http://www.garlic.com/~lynn/2007d.html#51 IBM S/360 series operating systems 
history
http://www.garlic.com/~lynn/2007f.html#78 What happened to the Teletype 
Corporation?

--
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: EDTINFO DEVSTAT ?

2007-10-25 Thread Rob Scott
(1) Yes

(2) I take that to mean that there is no UCB for that unit address - ie that 
unit address has not been defined in HCD.
Bit 1 is the indicator if the unit is associated with the unitname.


Rob Scott
Rocket Software, Inc
275 Grove Street
Newton, MA 02466
617-614-2305
[EMAIL PROTECTED]


-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Paul 
Schuster
Sent: 25 October 2007 08:52
To: IBM-MAIN@BAMA.UA.EDU
Subject: EDTINFO DEVSTAT ?

1) When using the DEVSTAT option with EDTINFO CHKUNIT, the doc. seems to imply 
that you must define enough storage of 2-byte entries for the same amount of 
device numbers in your DEVLIST before calling EDTINFO.  Correct?

2) These 2-byte entries correspond to each device # entry.  What is meant by
the term 'valid' here?   Bit 0 being 1 means 'not valid' but what does that
mean?  Is there no volume mounted at that address? Or do you have to look at 
bit 1 to see if this device number is associated with the specified input UNIT 
name?

The doc. does not seem clear about all of this.

Thank you.

Paul

--
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: IBM System/3 3277-1

2007-10-25 Thread Anne Lynn Wheeler
The following message is a courtesy copy of an article
that has been posted to 
comp.sys.ibm.sys3x.misc,alt.folklore.computers,bit.listserv.ibm-main as well.

[EMAIL PROTECTED] writes:
 What I don't understand is pre sorting a deck that will be used as
 input to the computer--couldn't the computer sort it faster than a
 person could?  The machine sorted strictly sequentially, while the
 computer had bubble or shell sorts that were more efficient.  maybe
 tape sorting was slow, but disk sorting should've been fast.  If the
 machine had some core ie 128 k, then plenty of work could be done
 within the CPU at very high speed.

simple example would be fortran student jobs. the master of the
program is the individual student's card deck. the student has access to
only fortran compile  execution capability ... and compile would be one
pass of the input card deck.

when i started, the univ. had 1401 that was used as unit-record
front-end to 709. the card decks (potentially multiple student jobs)
would be collected in card tray. when the tray approached full (our
every couple hrs), the tray of cards would be read by the 1401 and
transferred to tape. the tape would be carried to 709 tape drive and
processed (sequentially, each job compiled and executed) with output
going to another tape. When processing finished, the output tape would
be moved to 1401 and results printed.

The operator would take the printed, fan-fold output, burst it
... i.e. tear it into individual jobs, match the bursted print output
with corresponding original card deck, wrap the bursted print output
around the input card deck (with rubber band) and place it in output bin
for student pickup.

there were some administrative jobs that used sort ... but that
frequently had trays and trays of cards ... written to tape ..  and then
multiple tape sort (with intermediate tape files) that ran for extended
period of time.

i did write part of an application that was used for class registration.
2540 could not only read holes ... but also had the capability of
reading sense-marked cards (i.e. no. 2 pencil marks in little boxes on
cards). the 2540 had two feeds from the sides with five card stackers in
the middle. one side read cards and could select two of the read-side
stackers or the middle stacker, the other side punched cards and could
select two of the punch-side stackers or the middle stacker.

class registration had all these sense-marked cards ... which would read
and place in the middle stacker. if the processing found some problem
with a card ... a blank card from the punch side would be punched behind
the recently read sense-marked card (with some problem ... before the
next card would be read/processed)

standard processing had an operator removing cards from the stacker and
placing in card trays. all of the class registration sense-marked cards
were plain manilla. the punch cards were loaded with cards that had
yellow (or sometimes red) across the top band of the card.

once all class registration cards were processed ... there would be
multiple trays ... sporadically sprinkled with yellow top-edge cards
... clearly identifying the registration cards with some kind of
problem.

qd conversion of gcard ios3270 to html
http://www.garlic.com/~lynn/gcard.html
reader/punch channel program command codes
http://www.garlic.com/~lynn/gcard.html#23

system/360 model 30 machine room, 2540 is seen in middle, in front
of the tape drives and partly obscured by 2311 disk drive. the card
reader (feed) is on the right and the punch is on the left, the five
output stackers are in the center
http://www-03.ibm.com/ibm/history/exhibits/mainframe/mainframe_PP2030.html
system 370 model 40 machine room, 2540 is in upper middle
http://www-03.ibm.com/ibm/history/exhibits/mainframe/mainframe_PP2040.html

better picture of 2540 on the right with somebody loading deck of
cards to be read
http://www.cs.ncl.ac.uk/events/anniversaries/40th/images/ibm360_672/slide19.jpg

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


JCL QUESTION

2007-10-25 Thread esmie moo
Is there a way I can code a parm (* * * * * * * * * * * * ) for the volsers for 
an output PS dsn (as available when defining a VSAM cluster) ?  I have a 
problem with space abends - IEC030I B37-04.  The dsn is SMS managed. I am using 
a primary of 2000,500 since it is a huge file.  The job is performing a sort. 
   
  Thanks.


   
-
Be smarter than spam. See how smart SpamGuard is at giving junk email the boot 
with the All-new Yahoo! Mail  

--
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: JCL QUESTION

2007-10-25 Thread Hunkeler Peter (KIUK 3)
Try

//anydd   DD DSN=..,
  //   VOL=(,,,nn)

where nn is the number of volumes the dataset is allowed to 
reside on.

--
Peter Hunkeler
Credit Suisse

--
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: JCL QUESTION

2007-10-25 Thread esmie moo
Thanks Peter.  I will give it a try.

Hunkeler Peter (KIUK 3) [EMAIL PROTECTED] wrote:  Try

//anydd DD DSN=..,
// VOL=(,,,nn)

where nn is the number of volumes the dataset is allowed to 
reside on.

--
Peter Hunkeler
Credit Suisse

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


   
-
Ask a question on any topic and get answers from real people. Go to Yahoo! 
Answers. 

--
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: JCL QUESTION

2007-10-25 Thread wtrovijo
 Is there a way I can code a parm (* * * * * * * * * * * * ) for the volsers 
 for an output PS dsn (as available when defining a VSAM cluster) ?  I have a 
 problem with space abends - IEC030I B37-04.  The dsn is SMS managed. I am 
 using a primary of 2000,500 since it is a huge file.  The job is performing a 
 sort. 

   Thanks.
 

Increase the volume count in dataclass.

--
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: Dynamic ISPF panels?

2007-10-25 Thread Kenneth E Tomiak
Sorry Dave,

Nothing there about how to do scrollable menus or dynamic areas.

Scrollable menus take the work out of your hands for handling different 
number of rows in the display. Dynamic areas put the work of defining the 
actual format of the panel in your code. The IBM provided SISPPENU dataset 
is a good source for scrollable menus. For dynamic areas you need to find the 
code source, not just the panel. 


On Thu, 25 Oct 2007 00:58:58 +, Dave Salt [EMAIL PROTECTED] 
wrote:

  Does anyone know how best to create dynamic panel definitions?  
  Two ideas. Scrollable menus, or dynamic areas.  
Or scrollable dynamic areas.:-)
 
To see an example, click the link below.
 
Dave SaltSee the new SimpList(tm) rollover image 
at:http://www.mackinney.com/products/SIM/simplist.htm

--
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: Healthcheck (IBMCSV,CSV_APF_EXISTS)

2007-10-25 Thread Peter Relson
The question is: *Can* CSV recognize that the data set
is SMS managed when it does the IPL progxx-members?

The answer is No. APF processing does not, and will not be changed to, do
anything with the actual data set. And during IPL it really is not in a
position to do so. The APF entry is merely a data definition.

This is precisely why there is a health check.

 SMS managed SMS managedSuccessful  ===!!!
The above entry denoted with ===!!! is wrong. Whatever the cause in
your environment, I assume it's APARable.

I agree with the conclusion. The entry is wrong. If your system is behaving
that way, then you should open a PMR with HSM.

Peter Relson
z/OS Core Technology 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: About dispatching process

2007-10-25 Thread Johnny Luo
On 10/24/07, Vernooy, C.P. - SPLXM [EMAIL PROTECTED] wrote:


 
  I think what the manual says is the same as what you said. In a MP
 system, a
  disabled loop is observed as a spin loop by other processors.

 This is not exactly true:
 A disabled loop by itsself will not generate a problem. However, other
 processors will regularly want to talk to the disabled processor, via
 the SIGP instruction. The calling processor will spin (in a disabled
 loop, therefor spin loop) waiting for an answer. The disabled called
 processor will of course not answer and the calling processor will
 detect this and generate an excessive spinloop time out condition. So
 the spinloop is a normal, short duration, situation; an excisive
 spinloop timeout is a condition detected by an active processor, where
 an other processor does not answer. This can be for many reasons, being
 disabled, hardware problems etc. etc.

 Have a look at Initialization and Tuning Reference, member EXCPATxx, for
 more information on spinloops.


This leads me to reconsider my understanding about the process of getting a
spin lock. I used to think what SETLOCK does is just keeping on check the
lockword and running disabled. Then, what is the difference between a spin
loop and a disabled loop?

So my guess is, what SETLOCK does is a 'timed disabled loop'. That is, most
of the time it'll loop disabled but not forever. It will enable the
processor regularly thus an excessive spin loop can be detected and handled
by system. Did I miss something here?


I have another question about RB queue/chain. (A little off-topic but at
least it is involved in dispatching process -_-  )

Here is a RB chain after a new RB is added:

TCB -- RB1 -- RB2 -- RB3

I think RB1 is the oldest and RB3 is the newest but is it true?

Then this TCB is dispatched and the RB pointed by TCBRBP will be executed.
Which one? I think it should be RB3 ( the newest)  but I'm not sure.

Thanks,
Johnny

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


APF FORMAT=DYNAMIC

2007-10-25 Thread Peter Relson
Is anyone still not using FORMAT=DYNAMIC for their APF list? It isn't the
default so you'd have to have the proper statement in your PROGxx to get
it. Maybe some day we'll change the default, though it's not a really big
deal since if you start as STATIC you can always switch to DYNAMIC if you
find a need. The only real benefit of starting as DYNAMIC is that you don't
have the initial storage-use below 16M for the static APF list.

Peter Relson
z/OS Core Technology 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: JCL QUESTION

2007-10-25 Thread van Arnhem, Gerrit

You can use an extended format dataset for it. You have to define an
data class
in which you add an value to the volume count parameter en specify  DSN
TYPE  EXT.  
In the jcl you have to specify the data class and then your data set
will be spreaded over
the number of volumes you've set in the volume count parameter. 

Gerrit.

 

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of esmie moo
Sent: donderdag 25 oktober 2007 13:04
To: IBM-MAIN@BAMA.UA.EDU
Subject: JCL QUESTION

Is there a way I can code a parm (* * * * * * * * * * * * ) for the
volsers for an output PS dsn (as available when defining a VSAM cluster)
?  I have a problem with space abends - IEC030I B37-04.  The dsn is SMS
managed. I am using a primary of 2000,500 since it is a huge file.  The
job is performing a sort. 
   
  Thanks.


   
-
Be smarter than spam. See how smart SpamGuard is at giving junk email
the boot with the All-new Yahoo! Mail  

--
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
ÿþDit bericht is vertrouwelijk en kan 
geheime informatie bevatten enkel

bestemd voor de geadresseerde. Indien 
dit bericht niet voor u is bestemd,

verzoeken wij u dit onmiddellijk aan 
ons te melden en het bericht te

vernietigen.

Aangezien de integriteit van het 
bericht niet veilig gesteld is middels

verzending via internet, kan Atos 
Origin niet aansprakelijk worden 
gehouden

voor de inhoud daarvan.

Hoewel wij ons inspannen een virusvrij 
netwerk te hanteren, geven

wij geen enkele garantie dat dit 
bericht virusvrij is, noch aanvaarden 
wij

enige aansprakelijkheid voor de 
mogelijke aanwezigheid van een virus in 
dit

bericht.

 

Op al onze rechtsverhoudingen, 
aanbiedingen en overeenkomsten 
waaronder

Atos Origin goederen en/of diensten 
levert zijn met uitsluiting van alle

andere voorwaarden de 
Leveringsvoorwaarden van Atos Origin 
van toepassing.

Deze worden u op aanvraag direct 
kosteloos toegezonden.

 

This e-mail and the documents attached 
are confidential and intended solely

for the addressee; it may also be 
privileged. If you receive this e-mail

in error, please notify the sender 
immediately and destroy it.

As its integrity cannot be secured on 
the Internet, the Atos Origin group

liability cannot be triggered for the 
message content. Although the

sender endeavours to maintain a 
computer virus-free network, the sender

does not warrant that this transmission 
is virus-free and will not be

liable for any damages resulting from 
any virus transmitted.

 

On all offers and agreements under 
which Atos Origin supplies goods and/or

services of whatever nature, the Terms 
of Delivery from Atos Origin

exclusively apply. 

The Terms of Delivery shall be promptly 
submitted to 

Re: Read JCL Symbols from a program?

2007-10-25 Thread Kenneth E Tomiak
Try opening a requirement and providing a business case, then get your 
family, friends and neighbors to do the same. Otherwise IBM is not going to go 
off and pioneer this solution based on some mutterings on a listserv.

If your employer is not a member of SHARE, contact IBM directly. They have a 
process to accept design requests. Be sure to show how this will help the 
business and what pain you have for the lack of it. Do not try to impose a 
how to code the solution and you just might get a response.

On Mon, 22 Oct 2007 09:06:03 +0100, Martin Packer 
[EMAIL PROTECTED] wrote:

I would agree that a program having access to JCL symbols would be handy.
I've seen NO traffic from Development suggesting it'll happen.

Martin

Martin Packer
Performance Consultant
IBM United Kingdom Ltd
+44-20-8832-5167
+44-7802-245-584
[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: JCL QUESTION

2007-10-25 Thread esmie moo
Peter,
   
  I tried out your suggestion and it worked.  Thanks for your help.
   
  Thanks to all for responding.

Hunkeler Peter (KIUK 3) [EMAIL PROTECTED] wrote:
  Try

//anydd DD DSN=..,
// VOL=(,,,nn)

where nn is the number of volumes the dataset is allowed to 
reside on.

--
Peter Hunkeler
Credit Suisse

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


   
-
Make free worldwide PC-to-PC calls. Try the new Yahoo! Canada Messenger

--
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 System/3 3277-1

2007-10-25 Thread Howard Brazee
On Wed, 24 Oct 2007 17:12:05 -0400, Walter Bushell [EMAIL PROTECTED]
wrote:

And what was the sorter? Ah, the beauties of the radix sort. This beast 
put cards into 10 output slots, based on the digit in a specified 
column, thus enabling sorting with tab cards and no computers.

Lots of labor, with multiple passes for each column with alphanumeric
- and the machine was the size of a wall - but it was cheaper than
computer time.

--
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 System/3 3277-1

2007-10-25 Thread Howard Brazee
On Wed, 24 Oct 2007 19:25:22 -0700, [EMAIL PROTECTED] wrote:

What I don't understand is pre sorting a deck that will be used as
input to the computer--couldn't the computer sort it faster than a
person could?  The machine sorted strictly sequentially, while the
computer had bubble or shell sorts that were more efficient.  maybe
tape sorting was slow, but disk sorting should've been fast.  If the
machine had some core ie 128 k, then plenty of work could be done
within the CPU at very high speed.

Sure it could.   But labor and the sorting machine were cheaper.

--
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: Outsmarting WLM

2007-10-25 Thread McKown, John
 -Original Message-
 From: IBM Mainframe Discussion List 
 [mailto:[EMAIL PROTECTED] On Behalf Of Barbara Nitz
 Sent: Thursday, October 25, 2007 1:27 AM
 To: IBM-MAIN@BAMA.UA.EDU
 Subject: Re: Outsmarting WLM
 
 
 You'd need to count the number of idle BPXASs and decide then
 if and how many to create. Idle ones are those which show
 up as BPXAS in a D A,BPXAS. Haven't thought about how to
 get that information in the keep-alive program, I admit.
 
 And Johns suggestion to use modify
 
 There goes the 'simple fork() program'! :-)
 
 All good points, I'll keep them in mind.
 
 Best regards, Barbara
 -- 

FSVO simple. I consider using the STOP and  MODIFY commands to be
simple. In a UNIX program, they are even simpler due to the use of the
__console2 (BPX1CCS) routines.

--
John McKown
Senior Systems Programmer
HealthMarkets
Keeping the Promise of Affordable Coverage
Administrative Services Group
Information Technology

The information contained in this e-mail message may be privileged
and/or confidential.  It is for intended addressee(s) only.  If you are
not the intended recipient, you are hereby notified that any disclosure,
reproduction, distribution or other use of this communication is
strictly prohibited and could, in certain circumstances, be a criminal
offense.  If you have received this e-mail in error, please notify the
sender by reply and delete this message without copying or disclosing
it.

--
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: tso racf

2007-10-25 Thread Binyamin Dissen
On Thu, 25 Oct 2007 00:38:17 -0500 Tom Schmidt [EMAIL PROTECTED]
wrote:

:On Wed, 24 Oct 2007 22:38:03 -0400, Binyamin Dissen wrote:

:What PCF did well was protect APF authorized CPs.

:You could not circumvent PCF unless you had the ability to write into an APF
:library, which if you can - you can do whatever you want anyway.
 
:Oh yes I could (and did)!  I could run any APF or non-APF command processor 
:on the system where I had no write access to their APF libraries.  
 
:That's why it was a joke.

I don't understand. Did you have the ability to update the APF libraries?

If yes, security isn't going to be able to constrain you.

If no, but you have access from another system - ditto.

If not at all, it would not help you to copy the APF-program to another
library as it will not be APF when you execute it.

--
Binyamin Dissen [EMAIL PROTECTED]
http://www.dissensoftware.com

Director, Dissen Software, Bar  Grill - Israel


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

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

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


S028 after ALESERV

2007-10-25 Thread Gary Weinhold
We are getting a sporadic S028 in a job that uses the ALET returned by
the privileged ALESERV used to access a public dataspace (the privileged
ALESERV is issued through a PC).  The public dataspace is DSPSERV
CREATEd by another address space and has been ALESERVed in that address
space so it can be initialized, so we know the dataspace is initialized.

We only seem to get the S028 when many public dataspaces are created. 
The S028 goes away; if we rerun the job it doesn't always get the
ALESERV.

We concede that our situation is a bit dated since this error occurs on
a uniprocessor MP3000 (31-bit) with z/OS 1.4.  But I have trouble
understanding how it could be happening at all.
 
Gary Weinhold
Data Kinetics, Ltd.

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


SDSF in a sysplex

2007-10-25 Thread McKown, John
I'm still looking at the break our single image into two images
question. I am having problems understand what all I can do with SDSF in
a sysplex (basic or parallel) environment. I know that I can set up the
two systems to each have its own SDSF server address spaces. They can
communicate via MQSeries (we have it). But what can I do with this, now
that I have it? The book is not very explicit about what information is
shared. Assume a JES2 MAS for all questions. Some of my questions
would be along the lines of:

On system1/connected to server1, can I do a 'DA' to see and browse the
output of jobs running on system2?

On system1/connected to server1, can I see the CPU utilization of jobs
on system2 on the DA panel?

On system1, can I connect to the SDSF server on system2 for either of
the above?

Oh, we will be running Mainview on both systems (RMF interface).

I'm trying to document the pluses to our operations and Production
Control staff of a sysplex (preferrable Parallel) to people who are
totally clueless Windows people. They are still trying to think of the
z/OS as a Windows server in many ways.

--
John McKown
Senior Systems Programmer
HealthMarkets
Keeping the Promise of Affordable Coverage
Administrative Services Group
Information Technology

The information contained in this e-mail message may be privileged
and/or confidential.  It is for intended addressee(s) only.  If you are
not the intended recipient, you are hereby notified that any disclosure,
reproduction, distribution or other use of this communication is
strictly prohibited and could, in certain circumstances, be a criminal
offense.  If you have received this e-mail in error, please notify the
sender by reply and delete this message without copying or disclosing
it.

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


Out of space uploading to a UNIX directory

2007-10-25 Thread Support, DUNNIT SYSTEMS LTD.
Be nice to novices. :)

I tried FTP'ing a large file to directory /u/ on our z/OS system. This failed 
because there was not enough space.

However, the DASD volume itself has plenty of free space. What needs to be 
done to allow more volume space to be allocated for directory /u/, a.k.a., 
dataset HFS.USERS?

TIA.

Jerry

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


System Assembler Exits (like IEFUSI)

2007-10-25 Thread Lizette Koehler
Just curious if anyone has looked at DTS Software's EASY-EXIT to handle many of 
the system exits like IEFUSI, IEFUTL, TSO LOGON/LOGFF, etc???

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: tso racf

2007-10-25 Thread GAVIN Darren * OPS EAS
TSO runs from an APF Library itself.

The TSO command CALL *(PROGRAM) can run an APF service directly as TSO
is already an Authorized Product.

Only a CALL statement from a program whose load member is not in an APF
library is blocked from calling one that is in an APF library.

In other wards, any non APF program running under TSO can access an APF
routine by changing CALL statements with the above TSO command, and
invoking the command from the program using TSOLINK.

Darren

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Binyamin Dissen
Sent: Thursday, October 25, 2007 9:11 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: tso racf

On Thu, 25 Oct 2007 00:38:17 -0500 Tom Schmidt
[EMAIL PROTECTED]
wrote:

:On Wed, 24 Oct 2007 22:38:03 -0400, Binyamin Dissen wrote:

:What PCF did well was protect APF authorized CPs.

:You could not circumvent PCF unless you had the ability to write into
an APF
:library, which if you can - you can do whatever you want anyway.
 
:Oh yes I could (and did)!  I could run any APF or non-APF command
processor 
:on the system where I had no write access to their APF libraries.  
 
:That's why it was a joke.

I don't understand. Did you have the ability to update the APF
libraries?

If yes, security isn't going to be able to constrain you.

If no, but you have access from another system - ditto.

If not at all, it would not help you to copy the APF-program to another
library as it will not be APF when you execute it.

--
Binyamin Dissen [EMAIL PROTECTED]
http://www.dissensoftware.com

Director, Dissen Software, Bar  Grill - Israel


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

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

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [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: EDTINFO DEVSTAT ?

2007-10-25 Thread Paul Schuster
Let me further expand:

I do a EDTINFO  RTNDEVN,UNITNAME=,DEVNLIST=DEVNLIST

to (for example) get the list of device numbers associated with
UNIT=SYSALLDA.  All of these device numbers will have a UCB associated with
them, but many are 'dummy' UCB's that have no real volume associated with
them. (These are UCB's that have been genned for future DASD expansion.)

Does doing a 

EDTINFO  CHKUNIT,UNITNAME=,DEVLIST=,DEVCOUNT=,DEVSTAT=

provide me the status if a real UCB is at that device # address?

What I'm trying to accomplish is to build a list of on-line UCB's.  I know I
can do a UCBLOOK on each of the device #'s returned with the EDTINFO RTNDEVN
macro and then check if the UCB is online, but I am looking for something
faster.

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: IBM System/3 3277-1

2007-10-25 Thread Eric Bielefeld
What do you mean by radix sort?  Also, all the sorters I've ever seen had 12 
pockets, not 10.  The person Howard quoted said the machine was the size of 
a wall.  I've never seen a sorter I'd call that big, except a check sorter 
when I worked for a bank.


I did lots of sorting the 8 years I was a computer operator.  I even used a 
360 Mod 20 to sort small decks of cards.  It was faster on small decks with 
over 10 columns to sort on.  I don't remember sorting much alphabetically, 
but I'm sure I did it.


Eric Bielefeld
Sr. z/OS Systems Programmer
Milwaukee, Wisconsin
414-475-7434

- Original Message - 
From: Howard Brazee [EMAIL PROTECTED]

And what was the sorter? Ah, the beauties of the radix sort. This beast
put cards into 10 output slots, based on the digit in a specified
column, thus enabling sorting with tab cards and no computers.


Lots of labor, with multiple passes for each column with alphanumeric
- and the machine was the size of a wall - but it was cheaper than
computer time.


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


ICKDSF - PARMS

2007-10-25 Thread willie bunter
Good Day,
   
  A problem was reported regarding read checks on a 3390.  I ran an ANALYZE 
(using parms SCAN SPEED) and ALL DATA 'MACHINE READABLE' WITHOUT ERRORS.  I 
executed an INSPECT and received a FUNCTION COMPLETED, HIGHEST CONDITION CODE 
WAS 0.  
 Could it be the parms I used were not enough?  The following are the parms:
   
  INSPECT - 
 DDNAME(DISK1) -  
 NOASSIGN -   
 NOPRESERVE - 
 NOCHECK -
 NOSKIP - 
 VERIFY(JESP01)   
 
  Should there be something else that I should try?
   
  Thanks in advance.



 __
Do You Yahoo!?
Tired of spam?  Yahoo! Mail has the best spam protection around 
http://mail.yahoo.com 

--
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 System/3 3277-1

2007-10-25 Thread Howard Brazee
On Thu, 25 Oct 2007 10:02:42 -0400, Dan Espen
[EMAIL PROTECTED] wrote:

Lots of shops, no disk.
Even with a disk, the sort program was loaded from cards.
I seem to remember the sort program being huge and the input
being stuffed into the middle of the deck.

Then you had to modify the receiving program to read disk instead
of tape.

Sorting files too big for disks wasn't a problem that ended in the
card-sorter days.The interesting one is when the files to be
sorted were multiple tape files.

The solution was to sort what could fit on a tape - repeating on
multiple tapes until the file was spread about a bunch of sorted
tapes.   Then merge the tape files.   Hopefully we had enough tape
drives for  all of the tapes to be merged in one pass.

--
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: About dispatching process

2007-10-25 Thread Santosh Kandi
Barbara/Peter,
Thanks for the information. When I went to school(NIU) in 2000 we designed a 
Student Operating system with the dispatcher running off the TCB chain. I 
recently went to Diagnostics class in z/OS and there I learned about the WEB.

I wonder if there is a Bible which explains everything about the OS 
concepts..not POO please.

Steve,

Repressible or Exigent?
Do you have VM or Flex-Es?
Otherwise, it will be rather hard to force a real machine (or LPAR) to
take/recognize an Exigent machine check. 

I am not sure how they differ. I was just trying to understand it 
theoretically. 
From ESPMIR, the only thing left is Restart and Machine check in a DISABLED 
mode, so I was wondering under what circumstaces Machine check is ever 
used or induced.

Sorry for digressing from the original question.

Thanks,
Santosh

--
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: VARY too many devices offline

2007-10-25 Thread David Long
On Tue, 23 Oct 2007 18:29:02 -0500, Ed Gould 
[EMAIL PROTECTED] wrote:

I wish the person this had happened to would pipe up, but to set the
record more precisely because of a bad date RACF (This is hear say)
did something to the (RACF) database that essentially rendered the
system not operatrional. Just by IPLing (again) with the correct date
was too late as the RACF database unusable. I do not know if they had
backups or any specifics. I heard they were down for a day or so.
Luckily this was a weekend.

Ed

Ed,
In 1989 I was working in a shop where the operator accidentally entered the 
ipl date as yy/mm/98 instead of yy/mm/89.  This was not noticed until all the 
jobs that read tapes started failing because the tape datasets had expired.

I ended up writing a little program to make the operator verify that the date 
was correct before the ipl could procede.

Dave Long

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


Java Support question

2007-10-25 Thread Andy White
I am trying to find out from anyone out there running z/OS and supporting 
Java. We have multiple programming areas that are requesting we put up a 
very specific version of Java or SDK. 

Let me be specific we have installed a ddef SAJV15D which has a path of 
/service/tgta/usr/lpp/java/J5.0_64/IBM/
and we have multiple versions of java installed. 

Now here is the real life challenge. We are installing IBM's EDK (for data 
encryption key store) they have a very specific JDK/SDK . We can easily 
copy it to its own directory but how does one maintain it in an automated 
way?

Now the question is when your told to install a specific version, we run 
RSU monthly etc but if it doesn't know about it in the SMP/E zone how do 
you do it?


Thanks
Andy
Internet: Mailto:[EMAIL PROTECTED]



The information contained in this message may be CONFIDENTIAL and is for the 
intended addressee only.  Any unauthorized use, dissemination of the 
information, or copying of this message is prohibited.  If you are not the 
intended addressee, please notify the sender immediately and delete this 
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: Out of space uploading to a UNIX directory

2007-10-25 Thread Pommier, Rex R.
1   unmount the /u filesystem 
2   rename the dataset containing the unmounted filesystem (from the MVS
side of the house) 
3   allocate a new dataset for the filesystem, larger and/or with
specifying secondary extents (from the MVS side)
4   copy (IEBGENER should work) the old filesystem dataset into the
newly created one
5   mount the new filesystem onto /u 
6   try the FTP again.


I know that somebody will correct this if something isn't right.  :-)

Rex

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Support, DUNNIT SYSTEMS LTD.
Sent: Thursday, October 25, 2007 11:19 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Out of space uploading to a UNIX directory

Be nice to novices. :)

I tried FTP'ing a large file to directory /u/ on our z/OS system. This
failed because there was not enough space.

However, the DASD volume itself has plenty of free space. What needs to
be done to allow more volume space to be allocated for directory /u/,
a.k.a., dataset HFS.USERS?

TIA.

Jerry

--
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: SDSF in a sysplex

2007-10-25 Thread Staller, Allan
Yes to all of the below. SDSF on LPAR1 will be able to display JOBS,
sysout, CPU, etc. on LPAR2. 

IIRC SDSF uses the RMF data area for the DA display. The rest I believe
is handled by JES2.

snip
On system1/connected to server1, can I do a 'DA' to see and browse the
output of jobs running on system2?

On system1/connected to server1, can I see the CPU utilization of jobs
on system2 on the DA panel?

On system1, can I connect to the SDSF server on system2 for either of
the above?

Oh, we will be running Mainview on both systems (RMF interface).
/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: SMS Question - Rename STORAGE CLASS

2007-10-25 Thread John Dawes
Barry,
   
  The problem occurred overnight.  Seems that user wanted to use the same 
STORAGE CLASS name which exists in another partition - B.  (Both partitions A  
B are independent of each other.  They do not share dasd, catalogs etc.)
   
  This way he wouldn't have to change his jcls, procs.  
   
  I created a STORAGE CLASS in Partition A, using the same name as in Partition 
B.  However, now I have 400 dsns to Alter in Partition A so as to use the new 
STORAGE CLASS.
   
  Sorry for the delay in replying to your post.
   
  If there is something else I could have done, I would appreciate knowing 
about it.  Please feel free to make suggestions.

Schwarz, Barry A [EMAIL PROTECTED] wrote:
  What is the real problem you are trying to solve?

-Original Message-
From: John Dawes [mailto:snip] 
Sent: Monday, October 22, 2007 3:47 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: SMS Question - Rename STORAGE CLASS

I am in a bind, can I rename a storage class? I am hesitant to try it
out because I don't have a test system. If it is possible, could there
be problems? I assume that I will need to do the translate, validate
and activate.

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


   
-
Sick of deleting your inbox? Yahoo!7 Mail has free unlimited storage. Get it 
now.

--
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: ICKDSF - PARMS

2007-10-25 Thread Lizette Koehler
I might pull LOGREC for that device and see what is flagged in there as well.

Lizette
   
  A problem was reported regarding read checks on a 3390.  I ran an ANALYZE 
 (using parms SCAN SPEED) and ALL DATA 'MACHINE READABLE' WITHOUT ERRORS.  I 
 executed an INSPECT and received a FUNCTION COMPLETED, HIGHEST CONDITION 
 CODE WAS 0.  
 Could it be the parms I used were not enough?  The following are the 
 parms:
   
  INSPECT - 
 DDNAME(DISK1) -  
 NOASSIGN -   
 NOPRESERVE - 
 NOCHECK -
 NOSKIP - 
 VERIFY(JESP01)   
 
  Should there be something else that I should try?
   
  Thanks in advance.




--
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: tso racf

2007-10-25 Thread Binyamin Dissen
On Thu, 25 Oct 2007 09:35:51 -0700 GAVIN Darren * OPS EAS
[EMAIL PROTECTED] wrote:

:TSO runs from an APF Library itself.

True.

:The TSO command CALL *(PROGRAM) can run an APF service directly as TSO
:is already an Authorized Product.

It will only be authorized if:

1. The program is defined as authorized in IKJTSO/AUTHPGM (or IKJEFTE2/E8 - I
forget which was commands and which was programs)

2. It comes from an authorized library.

3. It has AC=1

Missing any of those it will not run authorized.

:Only a CALL statement from a program whose load member is not in an APF
:library is blocked from calling one that is in an APF library.

It can, by using the TSO service to invoke the parallel TMP.

:In other wards, any non APF program running under TSO can access an APF
:routine by changing CALL statements with the above TSO command, and
:invoking the command from the program using TSOLINK.

Only if the three clauses above apply.

--
Binyamin Dissen [EMAIL PROTECTED]
http://www.dissensoftware.com

Director, Dissen Software, Bar  Grill - Israel


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

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

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


Re: EDTINFO DEVSTAT ?

2007-10-25 Thread Field, Alan C.
Have you looked at the UCBLOOK service? See: MVS PGMMING: ASSEMBLER
SERVICES REF


I do a EDTINFO  RTNDEVN,UNITNAME=,DEVNLIST=DEVNLIST

to (for example) get the list of device numbers associated with
UNIT=SYSALLDA.  All of these device numbers will have a UCB associated
with
them, but many are 'dummy' UCB's that have no real volume associated
with
them. (These are UCB's that have been genned for future DASD expansion.)

Does doing a 

EDTINFO  CHKUNIT,UNITNAME=,DEVLIST=,DEVCOUNT=,DEVSTAT=

provide me the status if a real UCB is at that device # address?

What I'm trying to accomplish is to build a list of on-line UCB's.  I
know I
can do a UCBLOOK on each of the device #'s returned with the EDTINFO
RTNDEVN
macro and then check if the UCB is online, but I am looking for
something
faster.

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: ICKDSF - PARMS

2007-10-25 Thread Hal Merritt
What kind of hardware? For emulated 3390's (such as Shark), a 'read
check' does not make much sense. Most all such activity occurs in the
cache. Real I/O errors are transparently handled in the hardware.

More reasonable might be a read past end of file, inappropriate DCB, a
null file (VTOC entry only), logically corrupt file/database, etc. All
programmer issues, not hardware.  

I did once see an error when one of the paths was taken offline.

HTH and good luck 

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of willie bunter
Sent: Thursday, October 25, 2007 11:14 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: ICKDSF - PARMS

Good Day,
   
  A problem was reported regarding read checks on a 3390.  I ran an
ANALYZE (using parms SCAN SPEED) and ALL DATA 'MACHINE READABLE'
WITHOUT ERRORS.  I executed an INSPECT and received a FUNCTION
COMPLETED, HIGHEST CONDITION CODE WAS 0.  
 
...snip
 
  Should there be something else that I should try?
   
  Thanks in advance.



 
NOTICE: This electronic mail message and any files transmitted with it are 
intended
exclusively for the individual or entity to which it is addressed. The message, 
together with any attachment, may contain confidential and/or privileged 
information.
Any unauthorized review, use, printing, saving, copying, disclosure or 
distribution 
is strictly prohibited. If you have received this message in error, please 
immediately advise the sender by reply email and delete all copies.

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


Re: EDTINFO DEVSTAT ?

2007-10-25 Thread Field, Alan C.
Sorry I meant UCBSCAN 

-Original Message-

Have you looked at the UCBLOOK service? See: MVS PGMMING: ASSEMBLER
SERVICES REF


I do a EDTINFO  RTNDEVN,UNITNAME=,DEVNLIST=DEVNLIST

to (for example) get the list of device numbers associated with
UNIT=SYSALLDA.  All of these device numbers will have a UCB associated
with
them, but many are 'dummy' UCB's that have no real volume associated
with
them. (These are UCB's that have been genned for future DASD expansion.)

Does doing a 

EDTINFO  CHKUNIT,UNITNAME=,DEVLIST=,DEVCOUNT=,DEVSTAT=

provide me the status if a real UCB is at that device # address?

What I'm trying to accomplish is to build a list of on-line UCB's.  I
know I
can do a UCBLOOK on each of the device #'s returned with the EDTINFO
RTNDEVN
macro and then check if the UCB is online, but I am looking for
something
faster.

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: SMS Question - Rename STORAGE CLASS

2007-10-25 Thread Darth Keller
   The problem occurred overnight.  Seems that user wanted to use the 
same STORAGE CLASS name which exists in another partition - B.  (Both 
  partitions A  B are independent of each other.  They do not share 
dasd, catalogs etc.)
 
  This way he wouldn't have to change his jcls, procs. 
 
  I created a STORAGE CLASS in Partition A, using the same name as in 
Partition B.  However, now I have 400 dsns to Alter in Partition A so as 
to 
  use the new STORAGE CLASS.
 
  If there is something else I could have done, I would appreciate 
knowing about it.  Please feel free to make suggestions.


Did you consider re-setting the storclas he used in your routines to the 
storclas you wanted?  It would prevent changes to his JCL's  Procs and 
you still would have assigned the StorClas appropriate for that partition.
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: SMS Question - Rename STORAGE CLASS

2007-10-25 Thread John Kington
John,


 Barry,

   The problem occurred overnight.  Seems that user wanted to use the
 same STORAGE CLASS name which exists in another partition - B.
 (Both partitions A  B are independent of each other.  They do not
 share dasd, catalogs etc.)

   This way he wouldn't have to change his jcls, procs.

   I created a STORAGE CLASS in Partition A, using the same name as
 in Partition B.  However, now I have 400 dsns to Alter in Partition
 A so as to use the new STORAGE CLASS.

   Sorry for the delay in replying to your post.

   If there is something else I could have done, I would appreciate
 knowing about it.  Please feel free to make suggestions.
You can always override the storage class that is specified in the jcl.
I would have put in something like
IF STORCLAS = 'x' THEN SET STORCLAS = 'y'

Regards,
John

--
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: EDTINFO DEVSTAT ?

2007-10-25 Thread Rob Scott
Paul,

Is there any reason why you are avoiding UCBSCAN and then a test for UCBONLI ?

If so, then I suppose you could consider doing the UCBSCAN once (at init) and 
then use an ENF listener (codes 23/24/30) to update your table of units. 
However, this might seem a little extreme just to avoid UCBSCAN...


Rob Scott
Rocket Software, Inc
275 Grove Street
Newton, MA 02466
617-614-2305
[EMAIL PROTECTED]


-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Paul 
Schuster
Sent: 25 October 2007 17:25
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: EDTINFO DEVSTAT ?

Let me further expand:

I do a EDTINFO  RTNDEVN,UNITNAME=,DEVNLIST=DEVNLIST

to (for example) get the list of device numbers associated with UNIT=SYSALLDA.  
All of these device numbers will have a UCB associated with them, but many are 
'dummy' UCB's that have no real volume associated with them. (These are UCB's 
that have been genned for future DASD expansion.)

Does doing a

EDTINFO  CHKUNIT,UNITNAME=,DEVLIST=,DEVCOUNT=,DEVSTAT=

provide me the status if a real UCB is at that device # address?

What I'm trying to accomplish is to build a list of on-line UCB's.  I know I 
can do a UCBLOOK on each of the device #'s returned with the EDTINFO RTNDEVN 
macro and then check if the UCB is online, but I am looking for something 
faster.

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

--
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: Out of space uploading to a UNIX directory

2007-10-25 Thread Hal Merritt
Technically sounds good, except I don't think IEBGENR is the right tool
for that job; I'd go with DFDSS.  More, other users of the /u system
might be a little annoyed :-)

I'd vote for setting up a separate file system with a mount point in /u
to receive the large file.

Do keep in mind that I can just barely spell UNIX and I did not sleep in
a Holiday Inn last night. 

HTH and good luck.

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Pommier, Rex R.
Sent: Thursday, October 25, 2007 11:43 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: Out of space uploading to a UNIX directory

1   unmount the /u filesystem 
2   rename the dataset containing the unmounted filesystem (from the MVS
side of the house) 
3   allocate a new dataset for the filesystem, larger and/or with
specifying secondary extents (from the MVS side)
4   copy (IEBGENER should work) the old filesystem dataset into the
newly created one
5   mount the new filesystem onto /u 
6   try the FTP again.


I know that somebody will correct this if something isn't right.  :-)

Rex

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Support, DUNNIT SYSTEMS LTD.
Sent: Thursday, October 25, 2007 11:19 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Out of space uploading to a UNIX directory

Be nice to novices. :)

I tried FTP'ing a large file to directory /u/ on our z/OS system. This
failed because there was not enough space.

However, the DASD volume itself has plenty of free space. What needs to
be done to allow more volume space to be allocated for directory /u/,
a.k.a., dataset HFS.USERS?

TIA.

Jerry

 
NOTICE: This electronic mail message and any files transmitted with it are 
intended
exclusively for the individual or entity to which it is addressed. The message, 
together with any attachment, may contain confidential and/or privileged 
information.
Any unauthorized review, use, printing, saving, copying, disclosure or 
distribution 
is strictly prohibited. If you have received this message in error, please 
immediately advise the sender by reply email and delete all copies.

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


Re: VARY too many devices offline

2007-10-25 Thread Ed Gould

On Oct 25, 2007, at 9:19 AM, David Long wrote:


On Tue, 23 Oct 2007 18:29:02 -0500, Ed Gould
[EMAIL PROTECTED] wrote:


I wish the person this had happened to would pipe up, but to set the
record more precisely because of a bad date RACF (This is hear say)
did something to the (RACF) database that essentially rendered the
system not operatrional. Just by IPLing (again) with the correct date
was too late as the RACF database unusable. I do not know if they had
backups or any specifics. I heard they were down for a day or so.
Luckily this was a weekend.

Ed


Ed,
In 1989 I was working in a shop where the operator accidentally  
entered the
ipl date as yy/mm/98 instead of yy/mm/89.  This was not noticed  
until all the
jobs that read tapes started failing because the tape datasets had  
expired.


I ended up writing a little program to make the operator verify  
that the date

was correct before the ipl could procede.

Dave Long




Dave,

Congratulations.  At one place where I worked. We had to have two  
operators sign off on the date/time at IPL time. However one Sunday  
when I was testing they sill managed to flub it. It didn't matter as  
it was a IPL we were doing to test out an IPO.


Speaking of operator error, this was back 30 years or so.  We had a  
data center that worked most weekends but not all. We had a  
consulting company come in and IPL the system (on their own with no  
operations people around). They IPLed with a wrong date (on purpose)  
and turned off SMF and a few other things. That Monday morning I was  
doing some research and ran across the IPL on a console that was out  
of view  of the system console. I verified with the operations people  
that no one had worked and also within our sysprog group about IPL's  
and it was all denied. I took the console printout up to the VP of  
the data center and gave it to him and told him of my suspicions .  
The jobs that were run when the system was supposed to be down were  
of a division that had lots of contract programmers. The VP called up  
the division's manager and let him have it. After that the data  
center always had a baby sitter when no one was scheduled to work. He  
charged the other 3 divisions with the labor cost of the baby sitter.  
They were not happy at all. I just wish the consultants had been fired.


Ed

--
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: S028 after ALESERV

2007-10-25 Thread Binyamin Dissen
On Thu, 25 Oct 2007 12:14:36 -0400 Gary Weinhold [EMAIL PROTECTED] wrote:

:We are getting a sporadic S028 in a job that uses the ALET returned by
:the privileged ALESERV used to access a public dataspace (the privileged
:ALESERV is issued through a PC).  The public dataspace is DSPSERV
:CREATEd by another address space and has been ALESERVed in that address
:space so it can be initialized, so we know the dataspace is initialized.

:We only seem to get the S028 when many public dataspaces are created. 
:The S028 goes away; if we rerun the job it doesn't always get the
:ALESERV.

:We concede that our situation is a bit dated since this error occurs on
:a uniprocessor MP3000 (31-bit) with z/OS 1.4.  But I have trouble
:understanding how it could be happening at all.

As it appears to be load related, might it be that the job owning the
dataspace is swapable?

--
Binyamin Dissen [EMAIL PROTECTED]
http://www.dissensoftware.com

Director, Dissen Software, Bar  Grill - Israel


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

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

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


Re: Out of space uploading to a UNIX directory

2007-10-25 Thread Support, DUNNIT SYSTEMS LTD.
Thanks, Rex. Quick and hopefully last question: where do I enter the unmount 
and mount commands and where are they documented?

On Thu, 25 Oct 2007 11:42:43 -0500, Pommier, Rex R. 
[EMAIL PROTECTED] wrote:

1   unmount the /u filesystem
2   rename the dataset containing the unmounted filesystem (from the MVS
side of the house)
3   allocate a new dataset for the filesystem, larger and/or with
specifying secondary extents (from the MVS side)
4   copy (IEBGENER should work) the old filesystem dataset into the
newly created one
5   mount the new filesystem onto /u
6   try the FTP again.


I know that somebody will correct this if something isn't right.  :-)

Rex

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Support, DUNNIT SYSTEMS LTD.
Sent: Thursday, October 25, 2007 11:19 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Out of space uploading to a UNIX directory

Be nice to novices. :)

I tried FTP'ing a large file to directory /u/ on our z/OS system. This
failed because there was not enough space.

However, the DASD volume itself has plenty of free space. What needs to
be done to allow more volume space to be allocated for directory /u/,
a.k.a., dataset HFS.USERS?

TIA.

Jerry

--
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: EDTINFO DEVSTAT ?

2007-10-25 Thread John Kington
Paul,
You could use IDCAMS DCOLLECT to extract the volume information (V record)
for all online
devices. It should have everything you would want or care to know. The
record layout is
documented in the Access Method Services for Catalogs in Appendix F (z/OS
1.7).
Regards,
John

IBM Mainframe Discussion List IBM-MAIN@BAMA.UA.EDU wrote on 10/25/2007
01:19:23 PM:

 Paul,

 Is there any reason why you are avoiding UCBSCAN and then a test
forUCBONLI ?

 If so, then I suppose you could consider doing the UCBSCAN once (at
 init) and then use an ENF listener (codes 23/24/30) to update your
 table of units. However, this might seem a little extreme just to
 avoid UCBSCAN...


 Rob Scott
 Rocket Software, Inc
 275 Grove Street
 Newton, MA 02466
 617-614-2305
 [EMAIL PROTECTED]


 -Original Message-
 From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
 Behalf Of Paul Schuster
 Sent: 25 October 2007 17:25
 To: IBM-MAIN@BAMA.UA.EDU
 Subject: Re: EDTINFO DEVSTAT ?

 Let me further expand:

 I do a EDTINFO  RTNDEVN,UNITNAME=,DEVNLIST=DEVNLIST

 to (for example) get the list of device numbers associated with
 UNIT=SYSALLDA.  All of these device numbers will have a UCB
 associated with them, but many are 'dummy' UCB's that have no real
 volume associated with them. (These are UCB's that have been genned
 for future DASD expansion.)

 Does doing a

 EDTINFO  CHKUNIT,UNITNAME=,DEVLIST=,DEVCOUNT=,DEVSTAT=

 provide me the status if a real UCB is at that device # address?

 What I'm trying to accomplish is to build a list of on-line UCB's.
 I know I can do a UCBLOOK on each of the device #'s returned with
 the EDTINFO RTNDEVN macro and then check if the UCB is online, but I
 am looking for something faster.

 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

 --
 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: VARY too many devices offline

2007-10-25 Thread Hal Merritt
Personally, I'd view this as a management issue, not a technical issue.
The root problem in my opinion was the need for an operator to issue the
command in the first place. When you require human intervention, errors
are to be expected and therefore tolerated. 

There are a number of such commands where a single keystroke error can
and will bring you down. For example, try the command $P PRINTER1, but
hit enter rather than the space bar. (That is recoverable, but it is
unlikely anyone will discover that until after the IPL.)

So, yes, reassign the operators (all of them) and don't replace them. 

My $0.02 (before taxes)

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Jan MOEYERSONS
Sent: Monday, October 22, 2007 7:05 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: VARY too many devices offline


Not being to tongue in cheek here.. but we used to fire the operator.

Ed


And what good does that do to the integrity of your systems???

Does that prevent anyone else from making a mistake? 

Did you never make a typo in any of the commands you ever entered?  (If
you
never did, then that means you never entered any...)

Jantje.

 
NOTICE: This electronic mail message and any files transmitted with it are 
intended
exclusively for the individual or entity to which it is addressed. The message, 
together with any attachment, may contain confidential and/or privileged 
information.
Any unauthorized review, use, printing, saving, copying, disclosure or 
distribution 
is strictly prohibited. If you have received this message in error, please 
immediately advise the sender by reply email and delete all copies.

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


Re: EDTINFO DEVSTAT ?

2007-10-25 Thread Paul Schuster
I use EDTINFO to obtain only the device #'s that belong to a particular unit
(like SYSDA or SYSALLDA or DISK100 or whatever).  UCBSCAN does not have that
granularity--it gets all of the UCB's for DASD, which could contain many I
am not interested in.

Thank you.

Paul 

On Thu, 25 Oct 2007 13:19:23 -0400, Rob Scott [EMAIL PROTECTED] wrote:

Paul,

Is there any reason why you are avoiding UCBSCAN and then a test for UCBONLI ?

If so, then I suppose you could consider doing the UCBSCAN once (at init)
and then use an ENF listener (codes 23/24/30) to update your table of units.
However, this might seem a little extreme just to avoid UCBSCAN...


Rob Scott
Rocket Software, Inc
275 Grove Street
Newton, MA 02466
617-614-2305
[EMAIL PROTECTED]


-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf
Of Paul Schuster
Sent: 25 October 2007 17:25
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: EDTINFO DEVSTAT ?

Let me further expand:

I do a EDTINFO  RTNDEVN,UNITNAME=,DEVNLIST=DEVNLIST

to (for example) get the list of device numbers associated with
UNIT=SYSALLDA.  All of these device numbers will have a UCB associated with
them, but many are 'dummy' UCB's that have no real volume associated with
them. (These are UCB's that have been genned for future DASD expansion.)

Does doing a

EDTINFO  CHKUNIT,UNITNAME=,DEVLIST=,DEVCOUNT=,DEVSTAT=

provide me the status if a real UCB is at that device # address?

What I'm trying to accomplish is to build a list of on-line UCB's.  I know
I can do a UCBLOOK on each of the device #'s returned with the EDTINFO
RTNDEVN macro and then check if the UCB is online, but I am looking for
something faster.

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

--
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: About dispatching process

2007-10-25 Thread Ngafei Huang
If RB3 is pointed to by TCBRBP, RB3 is newest and is the top RB.  TopRB get 
executed first when the TCB is given control.  The way it’s chained is 
RB3-RBLINK field points to RB2.  RB2-RBLINK points to RB1 and RB1-RBLINK points 
to the TCB.   

 

 

I think to obtain a spin lock (unconditional request) the SETLOCK routine first 
disables then goes into a spin loop to execute a sequence of instructions.  The 
instruction sequences are tests-for-and-if-available-obtain-the-lock, return if 
successful, enable for interrupt, then disable, retry the lock obtain.  So in 
that sense the spin loop is the same as the disabled loop.  The enablement is 
accomplished via the WINDOW macro which enables for external interrupts and 
immediately disables so that emergency signal maybe received.  The number of 
time to loop I think is limited (the detection) by a value set in some system 
area, possibly the CVT.

 

(Of course somewhere within the instruction sequence, it would have to check 
for hierarchy.)

 

 

Regards,

Raymond Wong

Compuware Corp

 





-Original Message-
From: Johnny Luo [EMAIL PROTECTED]
To: IBM-MAIN@BAMA.UA.EDU
Sent: Thu, 25 Oct 2007 7:19 am
Subject: Re: About dispatching process





On 10/24/07, Vernooy, C.P. - SPLXM [EMAIL PROTECTED] wrote:


 
  I think what the manual says is the same as what you said. In a MP
 system, a
  disabled loop is observed as a spin loop by other processors.

 This is not exactly true:
 A disabled loop by itsself will not generate a problem. However, other
 processors will regularly want to talk to the disabled processor, via
 the SIGP instruction. The calling processor will spin (in a disabled
 loop, therefor spin loop) waiting for an answer. The disabled called
 processor will of course not answer and the calling processor will
 detect this and generate an excessive spinloop time out condition. So
 the spinloop is a normal, short duration, situation; an excisive
 spinloop timeout is a condition detected by an active processor, where
 an other processor does not answer. This can be for many reasons, being
 disabled, hardware problems etc. etc.

 Have a look at Initialization and Tuning Reference, member EXCPATxx, for
 more information on spinloops.

his leads me to reconsider my understanding about the process of getting a
pin lock. I used to think what SETLOCK does is just keeping on check the
ockword and running disabled. Then, what is the difference between a spin
oop and a disabled loop?
So my guess is, what SETLOCK does is a 'timed disabled loop'. That is, most
f the time it'll loop disabled but not forever. It will enable the
rocessor regularly thus an excessive spin loop can be detected and handled
y system. Did I miss something here?

 have another question about RB queue/chain. (A little off-topic but at
east it is involved in dispatching process -_-  )
Here is a RB chain after a new RB is added:
TCB -- RB1 -- RB2 -- RB3
I think RB1 is the oldest and RB3 is the newest but is it true?
Then this TCB is dispatched and the RB pointed by TCBRBP will be executed.
hich one? I think it should be RB3 ( the newest)  but I'm not sure.
Thanks,
ohnny
--
or IBM-MAIN subscribe / signoff / archive access instructions,
end email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
earch the archives at http://bama.ua.edu/archives/ibm-main.html



Email and AIM finally together. You've gotta check out free AOL Mail! - 
http://mail.aol.com

--
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: Out of space uploading to a UNIX directory

2007-10-25 Thread Pommier, Rex R.
Hal had a couple good points that I failed to mention.  (See, I said
that if I said something wrong, it would be corrected!  :-) )

Here's what he said so I can comment on them.


snip

Technically sounds good, except I don't think IEBGENR is the right tool
for that job; I'd go with DFDSS.  More, other users of the /u system
might be a little annoyed :-)

I'd vote for setting up a separate file system with a mount point in /u
to receive the large file.

Do keep in mind that I can just barely spell UNIX and I did not sleep in
a Holiday Inn last night. 

HTH and good luck.

/snip

Hal,  I'm the only one at my site who even gets into OMVS - most
everybody else won't even acknowledge that Unix services exist on the
Z.  Because of that, nobody would even notice if I took the /u
filesystem offline.  

I believe either DFDSS or IEBGENER should be able to copy the data from
one to the other but doing what you suggested he wouldn't even need to
copy anything.  


Jerry, to take what Hal said, you could simply delete the huge file from
the /u filesystem to reclaim the space.  Not knowing whether this is a
permanent or tempory situation with this big file, setting up the second
filesystem might be the way to go, especially if you have others using
the /u filesystem like Hal mentioned.  If you want to just build a new
filesystem under the /u directory, that is less disruptive than my
original suggestion.  Say, for example, you want to build /u/jerry, you
can do this:

1  allocate the new dataset for the new filesystem (from the MVS side)
for example allocate MVS.THIS.IS.JERRYS.DATASET
2  build a directory under the /u tree   mkdir /u/jerry
3  from a TSO prompt (or option 6) mount the new filesystem  mount
filesystem('MVS.THIS.IS.JERRYS.DATASET') mountpoint('/u/jerry')
type(hfs)

You should now be able to get to the newly allocated space by simply
cd'ing into /u/jerry (or FTPing into that directory).
 

Rex



-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Support, DUNNIT SYSTEMS LTD.
Sent: Thursday, October 25, 2007 12:31 PM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: Out of space uploading to a UNIX directory

Thanks, Rex. Quick and hopefully last question: where do I enter the
unmount and mount commands and where are they documented?

On Thu, 25 Oct 2007 11:42:43 -0500, Pommier, Rex R. 
[EMAIL PROTECTED] wrote:

1   unmount the /u filesystem
2   rename the dataset containing the unmounted filesystem (from the
MVS
side of the house)
3   allocate a new dataset for the filesystem, larger and/or with
specifying secondary extents (from the MVS side)
4   copy (IEBGENER should work) the old filesystem dataset into the
newly created one
5   mount the new filesystem onto /u
6   try the FTP again.


I know that somebody will correct this if something isn't right.  :-)

Rex

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On 
Behalf Of Support, DUNNIT SYSTEMS LTD.
Sent: Thursday, October 25, 2007 11:19 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Out of space uploading to a UNIX directory

Be nice to novices. :)

I tried FTP'ing a large file to directory /u/ on our z/OS system. This 
failed because there was not enough space.

However, the DASD volume itself has plenty of free space. What needs to

be done to allow more volume space to be allocated for directory /u/, 
a.k.a., dataset HFS.USERS?

TIA.

Jerry

--
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: About dispatching process

2007-10-25 Thread Thompson, Steve
 

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Santosh Kandi
Sent: Thursday, October 25, 2007 9:53 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: About dispatching process

SNIP

Repressible or Exigent?
Do you have VM or Flex-Es?
Otherwise, it will be rather hard to force a real machine (or LPAR) to
take/recognize an Exigent machine check. 

I am not sure how they differ. I was just trying to understand it
theoretically. 
From ESPMIR, the only thing left is Restart and Machine check in a
DISABLED mode, so I was wondering under what circumstaces Machine check
is ever used or induced.
SNIP

Read the chapter in the PoOP on Machine Check. 

Regards,
Steve.T

--
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: ServerPac master catalog flag

2007-10-25 Thread Shmuel Metz (Seymour J.)
In [EMAIL PROTECTED], on 10/24/2007
   at 02:45 PM, John Eells [EMAIL PROTECTED] said:

What documentation are you looking at?

The dead tree manual tailored to the ServerPac order.

I think Appendix A.7 in ServerPac: Using the Installation Dialog 
(the command reference part of the book) pretty clearly says 
that CH MCAT N exists

The issue isn't whether it exists but whether it is permissible; the
documentation states that master catalog is forced, which I interpreted as
meaning more than simply a default.
 
-- 
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 ISO position; see http://patriot.net/~shmuel/resume/brief.html 
We don't care. We don't have to care, we're Congress.
(S877: The Shut up and Eat Your spam act of 2003)

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


Re: VARY too many devices offline

2007-10-25 Thread Edward Jaffe

David Long wrote:
In 1989 I was working in a shop where the operator accidentally entered the 
ipl date as yy/mm/98 instead of yy/mm/89.  This was not noticed until all the 
jobs that read tapes started failing because the tape datasets had expired.


I ended up writing a little program to make the operator verify that the date 
was correct before the ipl could procede.
  


But, the operator that made the mistake was fired on the spot. Right? ;-)

--
Edward E Jaffe
Phoenix Software International, Inc
5200 W Century Blvd, Suite 800
Los Angeles, CA 90045
310-338-0400 x318
[EMAIL PROTECTED]
http://www.phoenixsoftware.com/

--
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: ServerPac master catalog flag

2007-10-25 Thread Shmuel Metz (Seymour J.)
In [EMAIL PROTECTED], on 10/24/2007
   at 03:14 PM, Mark Zelden [EMAIL PROTECTED] said:

Which documentation?  ServerPac manual or ISPF help screens?

The former, specifically the tailored manual that comes with the order.
The text uses the term forced, which implies more than just a default.
 
-- 
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 ISO position; see http://patriot.net/~shmuel/resume/brief.html 
We don't care. We don't have to care, we're Congress.
(S877: The Shut up and Eat Your spam act of 2003)

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


Re: SDSF in a sysplex

2007-10-25 Thread Edward Jaffe

Staller, Allan wrote:

IIRC SDSF uses the RMF data area for the DA display. The rest I believe
is handled by JES2.
  


SDSF requires MQSeries (an extra cost option) for full multisystem support.

--
Edward E Jaffe
Phoenix Software International, Inc
5200 W Century Blvd, Suite 800
Los Angeles, CA 90045
310-338-0400 x318
[EMAIL PROTECTED]
http://www.phoenixsoftware.com/

--
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: ServerPac master catalog flag

2007-10-25 Thread Shmuel Metz (Seymour J.)
In [EMAIL PROTECTED], on 10/24/2007
   at 03:26 PM, Mark Zelden [EMAIL PROTECTED] said:

When I posted my response I wrote:  To get the list down to just the
CPAC dsns... list by LVOLUME

I used HLQ and there was only the one data set, so that didn't affect me.
 
-- 
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 ISO position; see http://patriot.net/~shmuel/resume/brief.html 
We don't care. We don't have to care, we're Congress.
(S877: The Shut up and Eat Your spam act of 2003)

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


How can I read JESJCL from a batch program?

2007-10-25 Thread Bass, Walter W
I have written a program that reads in 80 byte cards and performs
symbolic variable substitution at execution time.  This program allows
us to create control cards that are environment generic and has
greatly reduced the number of redundant control cards than need to be
maintained.  It can even dynamically allocate and write multiple output
cards in a single execution.  This program works very well and has been
well received by our staff.  The only downside with this program is that
the symbolic values have to be passed into the program on the parm.  The
100 character limit has been a bit of an annoyance with this approach.

I would like to enhance this program to avoid to necessity of passing
the symbolic values through the parms.  I am certain I can successfully
get the information I need by parsing the JESJCL.  What I have not been
able to find out so far is where the JESJCL data is?  Is this in an MVS
data area?  Is it in a dataset allocated to the job?

If someone can help me find out how to read the JESJCL, I will be happy
to share the code with the world.  For that matter I can share what I
have now if anyone is interested.

Thanks,
Bill Bass


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

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


Re: IBM System/3 3277-1

2007-10-25 Thread Eric Bielefeld
The card sort program for the 360 Mod 20 was about 3/4 of an inch high, and 
you did put the sort control card if I remember right in the middle.  We had 
a 4K machine with the MFCM and no disk or tape.


Eric Bielefeld
Sr. z/OS Systems Programmer
Milwaukee, Wisconsin
414-475-7434

@MORE.mk.SPAMtelcordia.com wrote:



Lots of shops, no disk.
Even with a disk, the sort program was loaded from cards.
I seem to remember the sort program being huge and the input
being stuffed into the middle of the deck.


--
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: Out of space uploading to a UNIX directory

2007-10-25 Thread Aaron Walker
I think someone covered this, but it would be best for you to have 
separate mount points for different directories/users under /u/ 
(i.e. /u/steve/  would have it's own dataset, /u/mike/ would have it's 
own dataset).

That being said, another way that you can expand the size of your 
dataset, assuming you haven't hit a serious wall, is with the confighfs 
command (look it up in your version's Unix System Services Command 
Reference).  Do something like:

confighfs -x 50c /u/

to (attempt to) add 50 cylinders to the dataset where /u/ is mounted.

Aaron


On Thu, 25 Oct 2007 11:18:40 -0500, Support, DUNNIT SYSTEMS LTD. 
[EMAIL PROTECTED] wrote:

Be nice to novices. :)

I tried FTP'ing a large file to directory /u/ on our z/OS system. This 
failed
because there was not enough space.

However, the DASD volume itself has plenty of free space. What 
needs to be
done to allow more volume space to be allocated for directory /u/, 
a.k.a.,
dataset HFS.USERS?

TIA.

Jerry

--
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: EDTINFO DEVSTAT ?

2007-10-25 Thread Rob Scott
Paul

I would suggest that you compare the following and see which comes out best :

(1) Issue EDTINFO and then run UCBSCAN for DASD and then update your 
device array as you loop thru the UCBs

(2) Issue EDTINFO and then run the device array and issue UCBLOOK for 
required entries


Rob Scott
Rocket Software, Inc
275 Grove Street
Newton, MA 02466
617-614-2305
[EMAIL PROTECTED]


-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Paul 
Schuster
Sent: 25 October 2007 18:35
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: EDTINFO DEVSTAT ?

I use EDTINFO to obtain only the device #'s that belong to a particular unit 
(like SYSDA or SYSALLDA or DISK100 or whatever).  UCBSCAN does not have that 
granularity--it gets all of the UCB's for DASD, which could contain many I am 
not interested in.

Thank you.

Paul

On Thu, 25 Oct 2007 13:19:23 -0400, Rob Scott [EMAIL PROTECTED] wrote:

Paul,

Is there any reason why you are avoiding UCBSCAN and then a test for UCBONLI ?

If so, then I suppose you could consider doing the UCBSCAN once (at
init)
and then use an ENF listener (codes 23/24/30) to update your table of units.
However, this might seem a little extreme just to avoid UCBSCAN...


Rob Scott
Rocket Software, Inc
275 Grove Street
Newton, MA 02466
617-614-2305
[EMAIL PROTECTED]


-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf
Of Paul Schuster
Sent: 25 October 2007 17:25
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: EDTINFO DEVSTAT ?

Let me further expand:

I do a EDTINFO  RTNDEVN,UNITNAME=,DEVNLIST=DEVNLIST

to (for example) get the list of device numbers associated with
UNIT=SYSALLDA.  All of these device numbers will have a UCB associated with 
them, but many are 'dummy' UCB's that have no real volume associated with them. 
(These are UCB's that have been genned for future DASD expansion.)

Does doing a

EDTINFO  CHKUNIT,UNITNAME=,DEVLIST=,DEVCOUNT=,DEVSTAT=

provide me the status if a real UCB is at that device # address?

What I'm trying to accomplish is to build a list of on-line UCB's.  I
know
I can do a UCBLOOK on each of the device #'s returned with the EDTINFO RTNDEVN 
macro and then check if the UCB is online, but I am looking for something 
faster.

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

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

--
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: VARY too many devices offline

2007-10-25 Thread Eric Bielefeld
Ed - You sure have a thing about firing people.  Its a good thing you're not 
employed now, as you can't fire anyone.  Lets look at some of the costs of 
firing a bunch of consultants.  Lets just say there were 5 consultants who 
did what you described.  Say the average time they have been working was 6 
months.  By now they know the projects they are working on, and how your 
company does things.  You would have your management throw out all the 
training and knowledge in your systems these people had, and more than 
likely waste most of the work they already did.  Firing people  or 
consultants for mistakes can be very expensive.


Eric Bielefeld
Sr. z/OS Systems Programmer
Milwaukee, Wisconsin
414-475-7434

- Original Message - 
From: Ed Gould [EMAIL PROTECTED]

They were not happy at all. I just wish the consultants had been fired.

Ed


--
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: SDSF in a sysplex

2007-10-25 Thread Staller, Allan
Thanks for the update. I was not aware of that requirement.

snip
Staller, Allan wrote:
 IIRC SDSF uses the RMF data area for the DA display. The rest I
believe
 is handled by JES2.
   

SDSF requires MQSeries (an extra cost option) for full multisystem
support.

-- 
Edward E Jaffe
/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: S028 after ALESERV

2007-10-25 Thread David Day

Looks like a hardware error, doesn't it?



028




Explanation: The system could not complete a paging operation for one of the 
following reasons:


 a.. A permanent I/O error occurred during a page-in or swap-in operation. 
The data being paged in or swapped in is lost.


 b.. A page cannot be accessed on auxiliary storage because of a previous 
I/O error.


 c.. An indeterminable error occurred during management of central storage 
paging. The system ends processing. Register 15 may contain a reason code.


 d.. The operator canceled a Time Sharing Option Extensions (TSO/E) user 
before the TSO/E logon completed.


 e.. An address space referred to a pageable link pack area (PLPA) page 
that contains noncontiguous code or large constant areas. The system had 
already detected this error and issued message IEA928I. See message IEA928I.


 f.. The system found an unexpected error while processing a swap-in or 
swap-out request. The error is described by a reason code in register 6.


 g.. The only current copy of a page resides in a defective frame on 
expanded storage. An error occurred when the system tried to bring the page 
into central storage from the defective expanded frame.


 h.. An I/O error occurred when the system wrote the page to auxiliary 
storage.


 i.. An I/O error occurred when the system attempted to transfer data from 
a data-in-virtual object into a mapped window page.



System Action: The system abnormally ends the current task or address space.
Operator Response: If the system issued message IEA928I, see the operator 
response for that message. Otherwise, notify the system programmer.


System Programmer Response: Look for messages indicating a hardware error. 
If you find any, contact hardware support. Search problem reporting data 
bases for a fix for the problem. If no fix exists, contact the IBM Support 
Center. The logrec data set error record might not contain information 
regarding this abend.


Source: Auxiliary storage manager (ASM) and real storage manager (RSM)

- Original Message - 
From: Gary Weinhold [EMAIL PROTECTED]

Newsgroups: bit.listserv.ibm-main
To: IBM-MAIN@BAMA.UA.EDU
Sent: Thursday, October 25, 2007 11:14 AM
Subject: S028 after ALESERV



We are getting a sporadic S028 in a job that uses the ALET returned by
the privileged ALESERV used to access a public dataspace (the privileged
ALESERV is issued through a PC).  The public dataspace is DSPSERV
CREATEd by another address space and has been ALESERVed in that address
space so it can be initialized, so we know the dataspace is initialized.

We only seem to get the S028 when many public dataspaces are created.
The S028 goes away; if we rerun the job it doesn't always get the
ALESERV.

We concede that our situation is a bit dated since this error occurs on
a uniprocessor MP3000 (31-bit) with z/OS 1.4.  But I have trouble
understanding how it could be happening at all.

Gary Weinhold
Data Kinetics, Ltd.

--
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: Java Support question

2007-10-25 Thread Mark Zelden
On Thu, 25 Oct 2007 12:41:51 -0400, Andy White [EMAIL PROTECTED] wrote:

I am trying to find out from anyone out there running z/OS and supporting
Java. We have multiple programming areas that are requesting we put up a
very specific version of Java or SDK.

Let me be specific we have installed a ddef SAJV15D which has a path of
/service/tgta/usr/lpp/java/J5.0_64/IBM/
and we have multiple versions of java installed.

Originally we used SMP/E to install Java.  But since each update is a 
complete replacement, we really found no benefit.   When a new version
was needed, the requirement came from the WebSphere group and they
always requested the updates by names like 1.4.2 SR5.  


Now here is the real life challenge. We are installing IBM's EDK (for data
encryption key store) they have a very specific JDK/SDK . We can easily
copy it to its own directory but how does one maintain it in an automated
way?


Not sure what you mean by maintain it in an automated way?

Now the question is when your told to install a specific version, we run
RSU monthly etc but if it doesn't know about it in the SMP/E zone how do
you do it?


You can't.  But if you want, you can create different target zones for each
release... but we need different levels of the same release so that just doesn't
work (see above).

Since you are told to install a specific version (as we are), then that is
what prompts you to get something new.  Or you can just look periodically
at IBM's web site:

http://www-03.ibm.com/servers/eserver/zseries/software/java/

Here is what we do.  We support a system level default Java.  The level
is at the lowest common denominator (example: 1.4.2 31-bit).  It gets
mounted at the default mount point of /usr/lpp/JAVA.   We put JAVA_HOME
and other environment vars in /etc/profile to point to the default.
This is usually good enough for the majority of our Java users.  

The OS team supports the default version.  We used to support all
of the versions, but since WebSphere drove most of the requirements,
they started installing and maintaining their own versions.  

For WebSphere, they have their own environment variables and point
at a static local directory where we install z/OS UNIX software.  In 
production and QA, that directory is a symlink pointing to where they have the
desired version of Java. That way, they just update the symlink to swap
new levels in.  Our WebSphere development LPAR often has 3 or
4 different levels of Java mounted.

That same directory structure is used for all the other levels / flavors of
Java as well.  They get pointed to via environment variables in the 
process(es) that invokes them if they don't want the default.   For example,
we are installing a product that required 1.4.2 SR7 (IIRC). That application
runs in batch and while it could use BPXBTCH, JZOS was preferred and is
being used.  JZOS gives you a convenient way to specify the environment
variables to point to the right level of Java.  Another product being tested
needed V5 64-bit.

HTH,

Mark
--
Mark Zelden
Sr. Software and Systems Architect - z/OS Team Lead
Zurich North America / Farmers Insurance Group - ZFUS G-ITO
mailto:[EMAIL PROTECTED]
z/OS Systems Programming expert at http://expertanswercenter.techtarget.com/
Mark's MVS Utilities: http://home.flash.net/~mzelden/mvsutil.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: How can I read JESJCL from a batch program?

2007-10-25 Thread Itschak Mugzach
Bill, 

There is no problem in reading spool files, including JESJCL. If you have
SDSF, you can write a small CLIST/REXX that will run in a batch step, call
SDSF (Or what ever you use for spool browsing) to copy that file to a
temporary file and then analyze it in your program (It can be the rexx
itself). SDSF has a batch interface that receive commands from SDSFIN. Have
a look at SDSF users guide for the complete text. The command start with
'++' and can do most sdsf terminal commands, including 'FIND JESJCL' and
select, print, etc.. 

If you need some help I can write you a small skeleton to start with. 

Itschak  

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf
Of Bass, Walter W
Sent: Thursday, October 25, 2007 8:12 PM
To: IBM-MAIN@BAMA.UA.EDU
Subject: How can I read JESJCL from a batch program?

I have written a program that reads in 80 byte cards and performs symbolic
variable substitution at execution time.  This program allows us to create
control cards that are environment generic and has greatly reduced the
number of redundant control cards than need to be maintained.  It can even
dynamically allocate and write multiple output cards in a single execution.
This program works very well and has been well received by our staff.  The
only downside with this program is that the symbolic values have to be
passed into the program on the parm.  The 100 character limit has been a bit
of an annoyance with this approach.

I would like to enhance this program to avoid to necessity of passing the
symbolic values through the parms.  I am certain I can successfully get the
information I need by parsing the JESJCL.  What I have not been able to find
out so far is where the JESJCL data is?  Is this in an MVS data area?  Is it
in a dataset allocated to the job?

If someone can help me find out how to read the JESJCL, I will be happy to
share the code with the world.  For that matter I can share what I have now
if anyone is interested.

Thanks,
Bill Bass


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

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email
to [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: VARY too many devices offline

2007-10-25 Thread Ed Gould

On Oct 25, 2007, at 1:50 PM, Eric Bielefeld wrote:

Ed - You sure have a thing about firing people.  Its a good thing  
you're not employed now, as you can't fire anyone.  Lets look at  
some of the costs of firing a bunch of consultants.  Lets just say  
there were 5 consultants who did what you described.  Say the  
average time they have been working was 6 months.  By now they know  
the projects they are working on, and how your company does  
things.  You would have your management throw out all the training  
and knowledge in your systems these people had, and more than  
likely waste most of the work they already did.  Firing people  or  
consultants for mistakes can be very expensive.


Eric Bielefeld
Sr. z/OS Systems Programmer
Milwaukee, Wisconsin
414-475-7434


Eric:

What would you do with dishonest consultants?

Ed

--
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: SDSF in a sysplex

2007-10-25 Thread George Fogg
 On system1/connected to server1, can I do a 'DA' to see and browse the
 output of jobs running on system2?

 On system1/connected to server1, can I see the CPU utilization of jobs
 on system2 on the DA panel?

Yes to both if you have SDSF set up correctly.
On system 1 you enter SYSNAME system2 and the DA panel will show DA stuff
for system2, even CPU utilization (CPU time and CPU% too)
To see the log on system2 then use the copmmand SYSID system2 or if you set
up the OPERLOG correctly then enter LOG O for both system1 and system2 log
data.
You only need MQ for SDSF if you wish to see system2 SDSF data, for example, 
in the PR, PUN, and RDR panels.
George Fogg

--
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: How can I read JESJCL from a batch program?

2007-10-25 Thread Gerhard Postpischil

Bass, Walter W wrote:

I would like to enhance this program to avoid to necessity of passing
the symbolic values through the parms.  I am certain I can successfully
get the information I need by parsing the JESJCL.  What I have not been
able to find out so far is where the JESJCL data is?  Is this in an MVS
data area?  Is it in a dataset allocated to the job?


You don't say whether you're using JES2 or JES3. I've only 
worked with JES2, for which the processing is as follows: JCL is 
read by a reader (with an optional exit) and saved to the spool 
in the JESJCL pseudo data set. In-line data cards are extracted 
and written separately. The job is passed to the 
Converter/Interpreter, where JCL is read, passed to the IEFUJV 
exit, and processed into OS JobQueue format, passed through an 
optional text exit (not intended for user access), and written 
as another pseudo data set. When the job executes, one or more 
times, the JobQueue records are read and converted to system 
control blocks (JCT, ACT, SCTs, SIOTs, etc.) in virtual memory.


If you wish to change the JCL, you need to do so in the JES 
reader exit, or in IEFUJV. It is possible to read the JESJCL 
data set at a later time (for code look at the Q command at 
cbttape.org), but any changes you make will be ignored. The big 
gotcha is the annoying little detail that the reader and 
converter need not run on the system the job will execute on. To 
make the changes at execution time, you could use the IEFUJI 
(job initiation exit), and read and possibly alter the text 
records in JobQueue format.


If you look at the group archives, you'll find a slew of 
messages regarding the resolution of symbolic parameters, which 
seems to be what you're driving at. If you only have a single 
system, the easiest place to make substitutions would in IEFUJV 
or the JES reader exit, and forget about the JESJCL data set.



Gerhard Postpischil
Bradford, VT

new e-mail address: gerhardp (at) charter (dot) net

--
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 1.8 Conditional Storage Obtain/Getmain Return Code

2007-10-25 Thread Webster, Chris
News to me and I could not find any trace in the archives.

 

With z/OS v1.8 and later, r15 behavior has changed for a conditional
storage obtain/getmain.  For a successful request, the register may
contain: 0010_

 

IBM has (poorly) documented this behavior at
http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/IEA2A980/67.2
.8?SHELF=IEA2BK80DT=20070514031429CASE=

 

Which states:

When running in an AMODE64 environment, only the low half of GPR15
contains a return code. There is no guarantee for the contents of the
high half of GPR15. 

 

IOW, do not use LTGR to test for a successful getmain/storage obtain
unless preceded by LLGFR.

 

...chris.

 

bmcsoftware

10431 Morado Circle

Austin, Tx. 78759

 


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


How to change RMM dataset Catalog Status

2007-10-25 Thread John Mattson
I need to change a number of RMM Dataset entry Catalog Status fields in 
RMM from UNKNOWN to YES 
However, the CHANGEDATASET command does not seem to have any options for 
doing this. 
Does anyone know how to do this?  And no, we are not at an RMM level to 
have CATSYNCH yet. 

--
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: SDSF in a sysplex

2007-10-25 Thread Edward Jaffe

George Fogg wrote:
You only need MQ for SDSF if you wish to see system2 SDSF data, for example, 
in the PR, PUN, and RDR panels.
  


Or if you'd like to see an active job's output grow line-by-line instead 
of block by block. The in-core buffer from jobs running on other 
systems is not available otherwise. Without MQSeries, you will need to 
browse a long-running job with important messages e.g., HSM from the 
system on which it's running.


--
Edward E Jaffe
Phoenix Software International, Inc
5200 W Century Blvd, Suite 800
Los Angeles, CA 90045
310-338-0400 x318
[EMAIL PROTECTED]
http://www.phoenixsoftware.com/

--
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: SMS Question - Rename STORAGE CLASS

2007-10-25 Thread Tom Marchant
On Fri, 26 Oct 2007 02:45:49 +1000, John Dawes wrote:

The problem occurred overnight.  Seems that user wanted 
to use the same STORAGE CLASS name which exists in 
another partition - B...

This way he wouldn't have to change his jcls, procs.

I hope this was not an ordinary user specifying storage class. 
It should not be necessary to specify a storage class for the 
vast majority of data set allocations.

-- 
Tom Marchant

--
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: How can I read JESJCL from a batch program?

2007-10-25 Thread Kirk Wolf
Gerhard,

Thanks for the nice explanation.

Do you know if it is possible for a running job to read the values of PROC
and/or SET JCL variables in effect for its (current) jobstep?
It appears that those are all resolved/washed away in the system control
blocks, but I wonder if they are lost after CI processing as well.



On 10/25/07, Gerhard Postpischil [EMAIL PROTECTED] wrote:

 Bass, Walter W wrote:
  I would like to enhance this program to avoid to necessity of passing
  the symbolic values through the parms.  I am certain I can successfully
  get the information I need by parsing the JESJCL.  What I have not been
  able to find out so far is where the JESJCL data is?  Is this in an MVS
  data area?  Is it in a dataset allocated to the job?

 You don't say whether you're using JES2 or JES3. I've only
 worked with JES2, for which the processing is as follows: JCL is
 read by a reader (with an optional exit) and saved to the spool
 in the JESJCL pseudo data set. In-line data cards are extracted
 and written separately. The job is passed to the
 Converter/Interpreter, where JCL is read, passed to the IEFUJV
 exit, and processed into OS JobQueue format, passed through an
 optional text exit (not intended for user access), and written
 as another pseudo data set. When the job executes, one or more
 times, the JobQueue records are read and converted to system
 control blocks (JCT, ACT, SCTs, SIOTs, etc.) in virtual memory.

 If you wish to change the JCL, you need to do so in the JES
 reader exit, or in IEFUJV. It is possible to read the JESJCL
 data set at a later time (for code look at the Q command at
 cbttape.org), but any changes you make will be ignored. The big
 gotcha is the annoying little detail that the reader and
 converter need not run on the system the job will execute on. To
 make the changes at execution time, you could use the IEFUJI
 (job initiation exit), and read and possibly alter the text
 records in JobQueue format.

 If you look at the group archives, you'll find a slew of
 messages regarding the resolution of symbolic parameters, which
 seems to be what you're driving at. If you only have a single
 system, the easiest place to make substitutions would in IEFUJV
 or the JES reader exit, and forget about the JESJCL data set.


 Gerhard Postpischil
 Bradford, VT

 new e-mail address: gerhardp (at) charter (dot) net

 --
 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: VARY too many devices offline

2007-10-25 Thread Thompson, Steve
-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Ed Gould
Sent: Thursday, October 25, 2007 2:13 PM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: VARY too many devices offline

snip

Eric:

What would you do with dishonest consultants?

snip

A clue was given when it was said that SMF had been turned off. Now, if
charge-back accounting was being done AND these consultants were in some
way being charged for CPU time (and/or other resources) that they used
then this was a form of theft or embezzlement/fraud. 

That being the case: depending on what corporate counsel advised, I
would present them with a bill for 1.5 times their average use on a
weekend, point out specific points in any contract that shows or states
this is a material breach. It would also be pointed out, if the contract
does not preclude it, that this behavior crossed the line of GRAND
THEFT. And then tell them we would entertain a payment schedule to heal
any breach that this behavior caused.

But the situation would be well documented and would definitely be part
of any future negotiations.

Regards,
Steve Thompson

-- Opinions expressed are strictly my own --

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


Shared DASD and PAVs

2007-10-25 Thread George Dranes
I've got a few PAV question for the hardware gurus out there.   I define all of 
my DASD to my production LPAR (these are monoplexes) as WLMPAV=YES, 
alias and base and I have WLM managing them.  I have another LPAR that 
accesses some of these volumes (actually it is the one accessing these 
volumes 99% of the time).  In this LPAR I only have the bases defined no 
aliases and do not have WLM managing these devices including WLMPAV=NO 
for the devices defined in the OS.  The reason we did this was for ease of 
volume maintenance, make them all PAV and not worry about it.  Really the 
only access of these volumes from the producation LPAR is for backups once a 
week.  I'm curious what the recommended way of defining these devices is  
for a situation like this?  Should I be setting these devices as WLMPAV=NO on 
the production system (which blows the ease of maintenance idea).  Would 
issues could I run into with the current setup?  Thanks for the help!

--
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 System/3 3277-1

2007-10-25 Thread Patrick O'Keefe
On Thu, 25 Oct 2007 10:48:22 -0500, Eric Bielefeld eric-
[EMAIL PROTECTED] wrote:

What do you mean by radix sort? 

Did anybody anwer that question yet?  I didn't see one.
A radix sort is one that processes each possition of the key at a 
time.  For a decimal key it simply separates the input into 10 strings.
You then take outputs in in ascending sequence (at least for a 
least-significant-digit-first radix sort), feed that combined batch 
back into the hopper, selected the next key possition and repeat.

For non-numeric keys you have to make multiple passes on the same
column, picking up the zone punches as if they were between the
columns.

...  Also, all the sorters I've ever seen had 12 pockets, not 10.  ...

I suspect you are right, but for a radix sort the extra two wouldn't 
be needed.  For a standard encoding like EBCDIC alphanumeric 
you need only 0-9 for numerical or 0-7 (for zone) plus 1-9 (for 
digit for alphabetical.  (I have no idea how you handle all 256
punch combinations, but I know it was done, and I suspect it
needed 10 or fewer stackers ... but many passes.)


The person Howard quoted said the machine was the size of
a wall.  I've never seen a sorter I'd call that big, ...

I guess it depends on the size of your walls.  :-)
...

360 Mod 20 to sort small decks of cards.  It was faster on small 
decks with over 10 columns to sort on.  I don't remember sorting
much alphabetically, but I'm sure I did it.

I don't remember what sorting technique the mod 20 Sort/Merge
used, but it was definitely not a radix sort.  For one thing, it 
compared the whole key, not individual single positions.  It also
had the wonderful characteristic of telling you how many more 
passes were needed.  And if you happened to transfer the cards 
from stacker to hopper in the wrong order you simply increased the
number of passes a little bit.  If you did that on the card sort machine
you'd better remember which column you screwed up on because 
you had to redo the sort from that column on.

And if you happened to get a card jam on one of the big sorters you 
were in big trouble.  They fed cards so fast that many were mangled 
before it could shut down.  The mod 20's MFCM was slow enough to 
damage very few cards.  (Of course, with the MFCM, a card jam was 
almost guaranteed.)

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


Richard Pape is on business trip in Malaysia

2007-10-25 Thread Richard J Pape
I will be out of the office starting  10/25/2007 and will not return until
10/29/2007.

If urgent SMS me on 65- 97437055  .

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


Sharing DS8300 data from two z/OS sites

2007-10-25 Thread Leon Schwering
We are getting ready to share data on our DS8300 between our two z/OS
sites.  I would appreciate your collective thought on what I should be
looking out for.  Our sites are about 40 km apart.

Thanks   

Leon Schwering
Technical Analyst
407 ETR Concession Co. Ltd.
905-265-4070 x5422
647-273-7772 (mobile)
[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: VARY too many devices offline

2007-10-25 Thread Eric Bielefeld
I guess I saw the part about turning SMF recording off, but it didn't 
register.  Yes, if they were stealing services or committing some act of 
fraud, maybe they should get fired.  I used the quote below more because I 
was getting fed up with Ed Gould's constant talk of firing people.  I know I 
have caused a few IPLs in my career.  I don't think people should be fired 
for one or two honest mistakes.  If someone makes mistakes over and over, 
thats one thing, but making one mistake that causes an outage shouldn't be 
grounds for firing.


Eric Bielefeld
Sr. z/OS Systems Programmer
Milwaukee, Wisconsin
414-475-7434

- Original Message - 
From: Thompson, Steve [EMAIL PROTECTED]

Eric:

What would you do with dishonest consultants?

snip

A clue was given when it was said that SMF had been turned off. Now, if
charge-back accounting was being done AND these consultants were in some
way being charged for CPU time (and/or other resources) that they used
then this was a form of theft or embezzlement/fraud.

That being the case: depending on what corporate counsel advised, I
would present them with a bill for 1.5 times their average use on a
weekend, point out specific points in any contract that shows or states
this is a material breach. It would also be pointed out, if the contract
does not preclude it, that this behavior crossed the line of GRAND
THEFT. And then tell them we would entertain a payment schedule to heal
any breach that this behavior caused.

But the situation would be well documented and would definitely be part
of any future negotiations.

Regards,
Steve Thompson


--
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 1.8 Conditional Storage Obtain/Getmain Return Code

2007-10-25 Thread Jim Mulder
IBM Mainframe Discussion List IBM-MAIN@BAMA.UA.EDU wrote on 10/25/2007 
03:20:31 PM:

 News to me and I could not find any trace in the archives.
 
 With z/OS v1.8 and later, r15 behavior has changed for a conditional
 storage obtain/getmain.  For a successful request, the register may
 contain: 0010_
 
 IBM has (poorly) documented this behavior at
 http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/IEA2A980/67.2
 8?SHELF=IEA2BK80DT=20070514031429CASE=
 
 Which states:
 
 When running in an AMODE64 environment, only the low half of GPR15
 contains a return code. There is no guarantee for the contents of the
 high half of GPR15. 

 I don't think that VSM changed the r15 behavior  in z/OS v1.8.  More 
likely, someone requested that the documentation be updated to attempt
to better describe the existing behavior.  However, as you point out,
an AMODE64 environment is rather nebulous terminology, and in fact
Amode has nothing to do with this.  The fact is that VSM sets a return
code in bits 32-63 of GPR15, and does not at that point do anything
to change the contents of bits 0-31 of GPR15, and that is the same
behavior which existed prior to z/OS v1.8. 

Jim Mulder   z/OS System Test   IBM Corp.  Poughkeepsie,  NY

--
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: VARY too many devices offline

2007-10-25 Thread Ted MacNEIL
I was getting fed up with Ed Gould's constant talk of firing people.

Ed has been retired for so long that any opinion he has is not worth listening 
to.

From STAR TREK (Friday's Child):

His words are unimportant, and we do not hear them!

-
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: About dispatching process

2007-10-25 Thread Gregory, Gary G
Years ago I was able to save many an IPL when QMF users would run these
huge outer joins of two databases.  If I could hit the right TCB, I
would cancel the task and 90% of the time it would save an IPL (which
was my next option).

Regards,

Gary
 

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Hunkeler Peter (KIUK 3)
Sent: Wednesday, October 24, 2007 4:41 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: About dispatching process

Never had the chance to use HMC (I guess the restart key must be 
there), do you mean after pressing it we will be prompted to select 
the action to take?

It used to be a physical button on a real console's keyboard. Since 
consoles are mostly plain PCs with 3270 emulators nowadays, that 
key is no longer available from the console. Its an HMC action.

Yes, once the restart interrupt is generated, you'll see a bunch of
messages at the master console (or is it the system console). Similar 
appearance to the messages you see after V XCF,...,OFFLINE when 
the system is in the wait state.

The restart messages tell you a bit about the job/task running on the
interrupted processor and then give you the choice of (relying on my
failing memory here): 
- ABEND the interrupted task
- Giving control back to the interrupted task (is it RETRY?)
- Having the system scan and repair, if neccessary, its vital control 
  blocks, then continue.

It doesn't use nor depend on CONSOLE communication. The restart 
interrupt handler communicates directly with the operator via
disabled console communication. You need to alway reply with
R 00,

It's always worth a try before you decide to IPL a dead system.
Could save you an IPL and doesn't waste a lot of time if it doesn't
help.

-- 
Peter Hunkeler
Credit Suisse

--
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: Another squirrel strike

2007-10-25 Thread Gregory, Gary G
One winter Saturday afternoon in 1985 I was working for UCCEL (down at
the datacenter) and RIGHT in the middle of upgrading our VSE platform to
VSE/SP 2.1.  A squirrel had crossed our two independent power feeds and
knocked out ALL of the power in the building.  We still had some 3330's
and had to wait for the CE to come out to retract the r/w heads of the
volumes.



-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Jon Brock
Sent: Wednesday, October 24, 2007 8:47 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: Another squirrel strike

From the article Phil linked to:

As a rather poignant footnote, the Jersey Journal notes that the
Millars' house is fully decked out in anticipation of Halloween,
complete with a tiny plastic tombstone on their front lawn. Tony
Millar said the family will consider dedicating the tombstone to the
squirrel.


We had a squirrel take down the data center once, maybe twenty or so
years ago.

Jon



snip
ISTR one of their number taking hte list down a while back ...

http://www.theregister.co.uk/2007/10/24/kamikaze_squirrel/
/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: z/OS 1.8 Conditional Storage Obtain/Getmain Return Code

2007-10-25 Thread Martin Packer
Jim Mulder said

 I don't think that VSM changed the r15 behavior  in z/OS v1.8.

I realise this may be a total red herring but, given RSM got a substantial 
rewrite in 1.8, is there ANY possibility this might be a side effect of 
that rewrite?

I think it unlikely but sillier questions have sometimes turned up trumps. 
:-)

Martin

Martin Packer
Performance Consultant
IBM United Kingdom Ltd
+44-20-8832-5167
+44-7802-245-584
[EMAIL PROTECTED]







Unless stated otherwise above:
IBM United Kingdom Limited - Registered in England and Wales with number 
741598. 
Registered office: PO Box 41, North Harbour, Portsmouth, Hampshire PO6 3AU






--
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: About dispatching process

2007-10-25 Thread Ted MacNEIL
Years ago I was able to save many an IPL when QMF users would run these huge 
outer joins of two databases.

I'm still trying to figure out why these queries need to be cancelled.
I have found, most of the time, they have to run for business needs.
Usually, when you cancel them, the user just has to re-submit.
Is that a saving of resource?
-
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: About dispatching process

2007-10-25 Thread Gregory, Gary G
We didn't have any governors in place (at the time) and the system would
end up thrashing. 

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Ted MacNEIL
Sent: Thursday, October 25, 2007 4:55 PM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: About dispatching process

Years ago I was able to save many an IPL when QMF users would run these
huge outer joins of two databases.

I'm still trying to figure out why these queries need to be cancelled.
I have found, most of the time, they have to run for business needs.
Usually, when you cancel them, the user just has to re-submit.
Is that a saving of resource?
-
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

--
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: About dispatching process

2007-10-25 Thread Gregory, Gary G
It was more or less product ignorance; once I implemented the governors
then they didn't need to run these jobs during primetime under TMP.  We
had special batch classes that would accommodate their request(s).  Our
CICS community was a lot more important.

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Ted MacNEIL
Sent: Thursday, October 25, 2007 4:55 PM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: About dispatching process

Years ago I was able to save many an IPL when QMF users would run these
huge outer joins of two databases.

I'm still trying to figure out why these queries need to be cancelled.
I have found, most of the time, they have to run for business needs.
Usually, when you cancel them, the user just has to re-submit.
Is that a saving of resource?
-
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

--
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: Sharing DS8300 data from two z/OS sites

2007-10-25 Thread R.S.

Leon Schwering wrote:

We are getting ready to share data on our DS8300 between our two z/OS
sites.  I would appreciate your collective thought on what I should be
looking out for.  Our sites are about 40 km apart.


It is feasible. Some delays can be observed due to the distance (40km). 
IMHO If you want further thoughts, you should provide more details about 
your configurations and your doubts.


Regards
--
Radoslaw Skorupka
Lodz, Poland


--
BRE Bank SA
ul. Senatorska 18
00-950 Warszawa
www.brebank.pl

Sd Rejonowy dla m. st. Warszawy 
XII Wydzia Gospodarczy Krajowego Rejestru Sdowego, 
nr rejestru przedsibiorców KRS 025237

NIP: 526-021-50-88
Wedug stanu na dzie 01.01.2007 r. kapita zakadowy BRE Banku SA (w caoci 
opacony) wynosi 118.064.140 z. W zwizku z realizacj warunkowego 
podwyszenia kapitau zakadowego, na podstawie uchwa XVI WZ z dnia 21.05.2003 
r., kapita zakadowy BRE Banku SA moe ulec podwyszeniu do kwoty 118.760.528 
z. Akcje w podwyszonym kapitale zakadowym bd w caoci opacone.

--
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: How can I read JESJCL from a batch program?

2007-10-25 Thread Rick Fochtman

Bass, Walter W wrote:


I have written a program that reads in 80 byte cards and performs symbolic variable 
substitution at execution time.  This program allows us to create control cards that are 
environment generic and has greatly reduced the number of redundant control 
cards than need to be maintained.  It can even dynamically allocate and write multiple 
output cards in a single execution.  This program works very well and has been well 
received by our staff.  The only downside with this program is that the symbolic values 
have to be passed into the program on the parm.  The 100 character limit has been a bit 
of an annoyance with this approach.

I would like to enhance this program to avoid to necessity of passing the 
symbolic values through the parms.  I am certain I can successfully get the 
information I need by parsing the JESJCL.  What I have not been able to find 
out so far is where the JESJCL data is?  Is this in an MVS data area?  Is it in 
a dataset allocated to the job?

If someone can help me find out how to read the JESJCL, I will be happy to 
share the code with the world.  For that matter I can share what I have now if 
anyone is interested.

Thanks,
Bill Bass
 


-
Bill, I have something similar that was originally written by a friend, 
Mike Eager, to do much the same. I've modified the code somewhat to 
include system information, like the SMF System ID, volser data from 
selected DD statements, etc. I call it IMAGE and you can have a copy 
if you like. I'll share it with anyone who contacts me off-list and 
expect to contribute it to the CBTTAPE site, along with some other 
goodies I have kicking around.


--
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: VARY too many devices offline

2007-10-25 Thread Rick Fochtman

What would you do with dishonest consultants?

I'd be taking one really HARD LOOK at the selection process! Let's treat 
the whole problem, not just the most obvious  symptom!


--
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 1.8 Conditional Storage Obtain/Getmain Return Code

2007-10-25 Thread Webster, Chris
The behavior does differ.  The change is that r15 now contains something
in bits 0-31.  This has been verified by clearing r15 prior to the
getmain and getting the same result.  While I understand the doc change
now indicates this can happen, it is not in an obvious location.  I
experienced the problem with a getmain and searched through the getmain
doc.  Even in storage obtain, it should also be doc'ed in the output
register information.  

Part of the concern here is whether the use of LTGR is valid after any
SVC/PC/callable service or, it can be used with some or, it must be used
with some.

The posting was to let others know about the change in behavior
(intended or otherwise).

You are correct about AMODE 64 has nothing to do with it - part of the
poorly doc'ed comment.

...chris.

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Jim Mulder
Sent: Thursday, October 25, 2007 4:22 PM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: z/OS 1.8 Conditional Storage Obtain/Getmain Return Code

IBM Mainframe Discussion List IBM-MAIN@BAMA.UA.EDU wrote on 10/25/2007

03:20:31 PM:

 News to me and I could not find any trace in the archives.
 
 With z/OS v1.8 and later, r15 behavior has changed for a conditional
 storage obtain/getmain.  For a successful request, the register may
 contain: 0010_
 
 IBM has (poorly) documented this behavior at

http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/IEA2A980/67.2
 8?SHELF=IEA2BK80DT=20070514031429CASE=
 
 Which states:
 
 When running in an AMODE64 environment, only the low half of GPR15
 contains a return code. There is no guarantee for the contents of the
 high half of GPR15. 

 I don't think that VSM changed the r15 behavior  in z/OS v1.8.  More 
likely, someone requested that the documentation be updated to attempt
to better describe the existing behavior.  However, as you point out,
an AMODE64 environment is rather nebulous terminology, and in fact
Amode has nothing to do with this.  The fact is that VSM sets a return
code in bits 32-63 of GPR15, and does not at that point do anything
to change the contents of bits 0-31 of GPR15, and that is the same
behavior which existed prior to z/OS v1.8. 

Jim Mulder   z/OS System Test   IBM Corp.  Poughkeepsie,  NY

--
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: VARY too many devices offline

2007-10-25 Thread Campbell Jay
A rogue oprerative may sneak in...
I think they have a few times...
But we will definitely find that person.

And... As an added bonus...
Whatever they thought they may have destroyed...
It's all recoverable.

SUPER DISCLAIMER - This is my own perception
Not to be affiliated in any way with my company. 

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Rick Fochtman
Sent: Thursday, October 25, 2007 6:53 PM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: VARY too many devices offline

What would you do with dishonest consultants?

I'd be taking one really HARD LOOK at the selection process! Let's treat
the whole problem, not just the most obvious  symptom!

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


  1   2   >