VSAM file query

[Rashmi Nijaguni Mogali]

Hi,



I have a query regarding the read of records in a VSAM file.

Say, I have defined a VSAM file of 100 bytes with key as the first 20
bytes. The structure is -



01WS-MAIN-RECORD

05   WS-KEY  PIC  X(20)

05   WS-DATA PIC  X(80)

 

Now when I read the file as below and give in the RIDFLD as the entire
100 bytes, will the read be based on the first 20 bytes only(as this is
the key for the VSAM file) or the entire 100 bytes?



EXEC CICS READ FILE(W-FILE)   

  INTO(WS-SCRATCH-REC)   

  LENGTH(LENGTH OF WS-MAIN-RECORD)  

  RIDFLD(WS-MAIN-RECORD) 

  UPDATE 

  RESP(WS30-RESP)

END-EXEC



Regards,

Rashmi





 CAUTION - Disclaimer *
This e-mail contains PRIVILEGED AND CONFIDENTIAL INFORMATION intended solely 
for the use of the addressee(s). If you are not the intended recipient, please 
notify the sender by e-mail and delete the original message. Further, you are 
not to copy, disclose, or distribute this e-mail or its contents to any other 
person and any such actions are unlawful. This e-mail may contain viruses. 
Infosys has taken every reasonable precaution to minimize this risk, but is not 
liable for any damage you may sustain as a result of any virus in this e-mail. 
You should carry out your own virus checks before opening the e-mail or 
attachment. Infosys reserves the right to monitor and review the content of all 
messages sent to or from this e-mail address. Messages sent to or from this 
e-mail address may be stored on the Infosys e-mail system.
***INFOSYS End of Disclaimer INFOSYS***

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

DUMPSPACE in Coupling Facility

[munif sadek]

I have been asked to increase DUMPSAPCE in our coupling facility (% Storage
allocation vise - existing dumpspace is  1%  of coupling facility total
space),  although we have not seen any problems. Is there any IBM
recommedation / ROTs.

regards, munif..

--
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/LE Tuning Advice sought

[Pinnacle]

Storage Report for Enclave main 10/25/06 3:14:46 PM
Language Environment V01 R05.00

   STACK statistics:
 Initial size:49152
 Increment size:  16384
 Maximum used by all concurrent threads:  14232
 Largest used by any thread:  14232
 Number of segments allocated:1
 Number of segments freed:0
   THREADSTACK statistics:
 Initial size:49152
 Increment size:  16384
 Maximum used by all concurrent threads:  21648
 Largest used by any thread:   3488
 Number of segments allocated:8
 Number of segments freed:0
   XPLINK STACK statistics:
 Initial size:65536
 Increment size:  16384
 Largest used by any thread:  39072
 Number of segments allocated:1
 Number of segments freed:0
   XPLINK THREADSTACK statistics:
 Initial size:65536
 Increment size:  16384
 Largest used by any thread:   7392
 Number of segments allocated:8
 Number of segments freed:0
   LIBSTACK statistics:
 Initial size: 1024
 Increment size:   1024
 Maximum used by all concurrent threads:  0
 Largest used by any thread:  0
 Number of segments allocated:0
 Number of segments freed:0
   THREADHEAP statistics:
 Initial size: 4096
 Increment size:   4096
 Maximum used by all concurrent threads:  0
 Largest used by any thread:  0
 Successful Get Heap requests:0
 Successful Free Heap requests:   0
 Number of segments allocated:0
 Number of segments freed:0
   HEAP statistics:
 Initial size:  4194304
 Increment size: 524288
 Total heap storage used (sugg. initial size):  6811776
 Successful Get Heap requests: 5508
 Successful Free Heap requests:3794
 Number of segments allocated:2
 Number of segments freed:0
   HEAP24 statistics:
 Initial size: 8192
 Increment size:   4096
 Total heap storage used (sugg. initial size):0
 Successful Get Heap requests:0
 Successful Free Heap requests:   0
 Number of segments allocated:0
 Number of segments freed:0
   ANYHEAP statistics:
 Initial size:   786432
 Increment size: 131072
 Total heap storage used (sugg. initial size):   686704
 Successful Get Heap requests:  236
 Successful Free Heap requests:  87
 Number of segments allocated:1
 Number of segments freed:0
   BELOWHEAP statistics:
 Initial size:24576
 Increment size:   2048
 Total heap storage used (sugg. initial size):0
 Successful Get Heap requests:0
 Successful Free Heap requests:   0
 Number of segments allocated:0
 Number of segments freed:0
   Additional Heap statistics:
 Successful Create Heap requests:25
 Successful Discard Heap requests:0
 Total heap storage used:  58494976
 Successful Get Heap requests:5
 Successful Free Heap requests:   0
 Number of segments allocated:5
 Number of segments freed:0
   Largest number of threads concurrently active: 9
End of Storage Report
#

Re: List of standard IBM SVC numbers, please

[Charles Mills]

I've forgotten.

Charles

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf
Of Shmuel Metz (Seymour J.)
Sent: Wednesday, October 25, 2006 2:53 PM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: List of standard IBM SVC numbers, please

In <[EMAIL PROTECTED]>, on 10/25/2006
   at 02:47 PM, Binyamin Dissen <[EMAIL PROTECTED]> said:

>Don't forget the ESR SVC.

Which one?

--
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: reusability hierarchy

[Shmuel Metz (Seymour J.)]

In <[EMAIL PROTECTED]>, on 10/23/2006
   at 01:19 PM, Bruce Black <[EMAIL PROTECTED]> said:

>On REFR, when does a module ever get refreshed??

At what level? The whole mechanism used by the OS/360 MCH isw gone.

>I can conceive of a real storage parity error, where the virtual
>page is reassigned to a different real storage page, and the module
>that  occupied it refreshed.   Is this true?

If the page frame has not been altered then it is invalidated and a
different frame can be assigned for the page-in operation. If the page
frame *has* been altered then the error is non-recoverable. There is
no longer code to refresh a csect or load module from a library.

-- 
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 ISO position; see  
We don't care. We don't have to care, we're Congress.
(S877: The Shut up and Eat Your spam act of 2003)

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

Re: REFR -- Real Intent v. Actual Use?

[Shmuel Metz (Seymour J.)]

In
<[EMAIL PROTECTED]>,
on 10/25/2006
   at 11:04 AM, Robert Wright <[EMAIL PROTECTED]> said:

>REFR was intended to let the system know that it could re-fetch a
>module in circumstances such as storage going bad or overlays being
>detected that might impact the module.  As things like the ability to
>load from DCBs that had been opened temporarily became prevalent, it
>became less practical, 

No; the MCH never supported refreshing code in the JPA. What made it
irrelevant was that the code that needed to be refreshed was R/O and
pageable in SVS and MVS.

-- 
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 ISO position; see  
We don't care. We don't have to care, we're Congress.
(S877: The Shut up and Eat Your spam act of 2003)

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

Re: REFR -- Real Intent v. Actual Use?

[Shmuel Metz (Seymour J.)]

In <[EMAIL PROTECTED]>,
on 10/25/2006
   at 10:44 AM, "Thompson, Steve (SCI TW)"
<[EMAIL PROTECTED]> said:

>REFR as an attribute, does this also imply that the code is
>self-relocating so that if the code is reloaded at a different place,
>it is still able to continue execution (of the task in flight)?

No. For Nucleus csects the MCH refreshed the code from SYS1.ASRLIB,
which held the contents after relocation. For code in transient areas
address constants were prohibited.

>But in DAT days where everything is V=V, just what is the purpose of
>REFR?

OS/VS1 still had transient areas. For SVS and MVS, REFR was a dead
letter.

-- 
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 ISO position; see  
We don't care. We don't have to care, we're Congress.
(S877: The Shut up and Eat Your spam act of 2003)

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

Re: question on the load list

[Shmuel Metz (Seymour J.)]

In <[EMAIL PROTECTED]>, on 10/23/2006
   at 02:13 PM, john gilmore <[EMAIL PROTECTED]> said:

>and this is exactly right.  In those days the official LE definition
>of a  reentrant module envisaged that it could perhaps modify itself
>(typically  once and typically early) iff it held "a global lock"
>while doing so, which  was/is more restrictive than "with
>serialization".

In those days the was no global lock. The only available forms of
serialization were ENQ, SSM and TS. The official definition require
that you get correct results when multiple invocations ran in
parallel; it was neither necessary nor sufficient that it be
refreshable.

>A refreshable module, which could not do so, was thus reentrant; 

No.

>Everyone appears to have his own notion of what reentrant means,

But the IBM OS/360 documentation from the 1960s is still available.

-- 
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 ISO position; see  
We don't care. We don't have to care, we're Congress.
(S877: The Shut up and Eat Your spam act of 2003)

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

Re: Question on the load list

[Shmuel Metz (Seymour J.)]

In
<[EMAIL PROTECTED]>,
on 10/23/2006
   at 08:02 AM, Peter Relson <[EMAIL PROTECTED]> said:

>I think you cannot have a refreshable module that is not reentrant,

There may be Binder code that prevents setting certain combinations of
attributes, but you can[1] certainly write code that is refreshable
and not reentrant:

L R0,CVTUSER
BCTR  R0,0
STR0,CVTUSER

>and I think refreshable implies must be read-only.

Also no.

>So doesn't that make refreshable stronger than reentrant?

No, because the premises were false.

[1] But I'd scream bloody murder during the code review.
 
-- 
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 ISO position; see  
We don't care. We don't have to care, we're Congress.
(S877: The Shut up and Eat Your spam act of 2003)

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

Re: Question on the load list

[Shmuel Metz (Seymour J.)]

In
<[EMAIL PROTECTED]>,
on 10/23/2006
   at 07:15 AM, John P Kalinich <[EMAIL PROTECTED]> said:

>My understand of this in the OS/360 era was that if a module had the
>"refreshable" attribute it could be replaced on the fly by the
>machine check handler (MCH) in order to recover from memory errors.

ERP, SVC and selected nucleus csects. Not LPA or JPA.
 
-- 
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 ISO position; see  
We don't care. We don't have to care, we're Congress.
(S877: The Shut up and Eat Your spam act of 2003)

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

Re: Multiple FTP Problems

[Shmuel Metz (Seymour J.)]

In <[EMAIL PROTECTED]>, on
10/24/2006
   at 10:47 AM, Hal Merritt <[EMAIL PROTECTED]> said:

>I like your thought. This might point to a firewall somewhere that
>constrains the number of ports to a small range. PC people have a
>very hard time understanding why you need more than one port for
>anything.

WTF? You need multiple ports on a PC for the same reason that you do
on z/OS.
 
-- 
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 ISO position; see  
We don't care. We don't have to care, we're Congress.
(S877: The Shut up and Eat Your spam act of 2003)

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

Re: Multiple FTP Problems

[Shmuel Metz (Seymour J.)]

In <[EMAIL PROTECTED]>,
on 10/23/2006
   at 08:04 AM, "McKown, John" <[EMAIL PROTECTED]> said:

>I do hope you're kidding.

Not at all. It's easy as pie. BTDTGTTS[1]

>Try to get a legacy z/OS COBOL programmer to
>learn Perl and NET::FTP?!?

It might be easier to write the Perl code yourself ;-)

>It would also violate our current policy of "no custom code" for 
>things like this.

How is the REXX code you described not custom code?

[1] Just the tee shirt, no scars.
 
-- 
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 ISO position; see  
We don't care. We don't have to care, we're Congress.
(S877: The Shut up and Eat Your spam act of 2003)

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

Re: Macro Updates Not Going to SMPMTS

[Shmuel Metz (Seymour J.)]

In
<[EMAIL PROTECTED]>,
on 10/24/2006
   at 04:40 PM, "Miller, Pat" <[EMAIL PROTECTED]> said:

>UK06680 makes changes to several macros in ISF.SISFSRC.  UA20901
>assembles some modules that use these macros.  UA20901 is failing
>because it's pulling the macros via the SYSLIB concatenation from the
>original (i.e. not the cloned) target library.

Then you've set SMP up improperly. SYSLIB should contain the correct
libraries for the zones you're using it for. That means, in
particular, the correct SMPMTS and target libraries.

>By my recollection and according to the SMP/E User's Guide, updated
>macros should be pulled from the SMPMTS, which is the first library
>in the SYSLIB concatenation.

Where does it say that? SMPPTS is there to hold macros for which there
is no target library, and must be included in SYSLIB.

>The SMPMTS is, in fact, the first one in SYSLIB, but it's empty.

Which SMPPTS? It needs to be the correct one for your target zone.

-- 
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 ISO position; see  
We don't care. We don't have to care, we're Congress.
(S877: The Shut up and Eat Your spam act of 2003)

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

Re: List of standard IBM SVC numbers, please

[Shmuel Metz (Seymour J.)]

In <[EMAIL PROTECTED]>, on 10/25/2006
   at 06:27 AM, Jan MOEYERSONS <[EMAIL PROTECTED]> said:

>Any pointer, please?

Diagnosis: Reference.

>This is not a 'homework' type of question. In fact, I need to set up
>a  trace for capturing all LOADs and LINKs a given program is doing

Don't forget ATTACH and XCTL. Also, is there a PC interface these
days?

-- 
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 ISO position; see  
We don't care. We don't have to care, we're Congress.
(S877: The Shut up and Eat Your spam act of 2003)

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

Re: List of standard IBM SVC numbers, please

[Shmuel Metz (Seymour J.)]

In <[EMAIL PROTECTED]>, on 10/25/2006
   at 02:47 PM, Binyamin Dissen <[EMAIL PROTECTED]> said:

>Don't forget the ESR SVC.

Which one?
 
-- 
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 ISO position; see  
We don't care. We don't have to care, we're Congress.
(S877: The Shut up and Eat Your spam act of 2003)

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

Re: Is the teaching of non-reentrant HLASM coding practices ever defensible?

[Shmuel Metz (Seymour J.)]

In <[EMAIL PROTECTED]>, on 10/24/2006
   at 02:19 PM, "Patrick O'Keefe" <[EMAIL PROTECTED]> said:

>Eons ago I was told (very probably incorrectly) that dated back to
>the ancient pre-virtual days of Rollin/Rollout.

Only by coincidence the RO/RI code rolled out entire regions; it did
not test the REFR attribute.
 
-- 
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 ISO position; see  
We don't care. We don't have to care, we're Congress.
(S877: The Shut up and Eat Your spam act of 2003)

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

Re: Is the teaching of non-reentrant HLASM coding practices ever defensible?

[Shmuel Metz (Seymour J.)]

In <[EMAIL PROTECTED]>, on 10/23/2006
   at 06:02 PM, Thomas Berg <[EMAIL PROTECTED]> said:

>I think it's funny that this thread that started
>from details in teaching basic assembler to newbies
>has evolved into an interactive lesson in very advanced
>assembler.

Except that there is disagreement as to what is basic and what is
advanced.
 
-- 
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 ISO position; see  
We don't care. We don't have to care, we're Congress.
(S877: The Shut up and Eat Your spam act of 2003)

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

Re: Is the teaching of non-reentrant HLASM coding practices ever defensible?

[Shmuel Metz (Seymour J.)]

In <[EMAIL PROTECTED]>, on 10/23/2006
   at 11:19 AM, Phil Payne <[EMAIL PROTECTED]> said:

>It goes back at least as far as later versions of the 360/65 machine
>check handler.  I'm not sure it was ever implemented.  IBM made lots
>of noises about how good /65 MCH was going to be, but they only
>delivered a reasonable version a few months before the /165s
>arrived.

SYS1.ASRLIB was also relevant to the S/370.

>We spent quite some time checking out REFR before we decided it
>didn't affect us. 

Why would it, unless you were writing a nucleus csect, an ERP or an
SVC? The MCH in OS/360 never refreshed anything else.

-- 
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 ISO position; see  
We don't care. We don't have to care, we're Congress.
(S877: The Shut up and Eat Your spam act of 2003)

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

Re: Why would Rexx Date/Time be different from ASCBEWST Date/T

[Paul Gilmartin]

In a recent note, Lindy Mayfield said:

> Date: Wed, 25 Oct 2006 23:57:20 +0200
> 
> Is it correct that here in Finland I have zero seconds of leaping seconds?
> 
> I tried to read the links provided with the explanations about it all and my 
> head
>  started to spin and I had to lie down.  It was like when I tried to read the 
> fir
> st page of Finnegan's Wake.  At least then I could skip to the last page and 
> read
>  it without missing much in the middle. (-:
> 
Riverrun.  (I hope that wasn't a spoiler.)

Leap seconds aren't geographically dependent.  Rather they depend
on whether your site has:

o installed a Sysplex timer (ETR, STP, whatever)

o configured to enable leap second correction.

-- gil
-- 
StorageTek
INFORMATION made POWERFUL

--
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: Why would Rexx Date/Time be different from ASCBEWST Date/T

[Ted MacNEIL]

>Is it correct that here in Finland I have zero seconds of leaping seconds?

I thought thE Lords were the ones leaping!

When in doubt.
PANIC!!  

--
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: Why would Rexx Date/Time be different from ASCBEWST Date/T

[Ted MacNEIL]

>
When in doubt.
PANIC!!  

--
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: LOCATE macro still 24-bit?

[Bob Rutledge]

Edward Jaffe wrote:

David Day wrote:

A catalog management request is expressed in a parameter list pointed 
to by register 1. Generate the parameter list with a CAMLST macro. The 
CAMLST and its associated fields must not be located in read-only 
storage and must reside below the 16 MB line.



Below 16MB???! Not in my software!



Then it's still wrong in

http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/DGT2S340/3.1?SHELF=DGT2BK60&DT=20060613195202

Bob

--
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: LOCATE macro still 24-bit?

[Edward Jaffe]

David Day wrote:
A catalog management request is expressed in a parameter list pointed 
to by register 1. Generate the parameter list with a CAMLST macro. The 
CAMLST and its associated fields must not be located in read-only 
storage and must reside below the 16 MB line.


Below 16MB???! Not in my software!

--
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: Why would Rexx Date/Time be different from ASCBEWST Date/T

[Edward Jaffe]

Lindy Mayfield wrote:

Is it correct that here in Finland I have zero seconds of leaping seconds?
  


The offset between UTC and GMT is not dependent upon the time zone in 
which you live.


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

SHARE in Tampa Florida, February 11-16, 2007

[Brian Peterson]

Greetings to all!  It's time to start thinking about the Winter SHARE,
February 11-16, 2007 in Tampa, Florida.  We have an excellent slate of
sessions, and a bevy of willing speakers. All we need is you!  We hope
you'll be able to attend, and please look us up if you do.  Check out
http://www.share.org for registration details.

PLEASE NOTE:  As a "heads up" for regular SHARE attendees, several Projects
within the MVS Program at SHARE have scheduled a strong technical program
starting Sunday afternoon at 1:30 pm for the Tampa SHARE.  Please make sure
you check the online agenda tools before making travel arrangements, so that
you get to Tampa in time to take advantage of sessions you don't want to
miss which are being offered starting Sunday afternoon.

Skip Robinson and Brian Peterson
MVS Program Managers


Getting to the latest z/OS
--
z/OS 1.8 is available, and z/OS 1.9 is just around the corner.  Have you
skipped a z/OS release or two?  The latest z/OS release includes many new
features you need to know about - for example, are your JES2 exits ready for
the major changes in z/OS 1.7?  SHARE is the place to get the latest
information to help plan your migration.  Highlighted sessions include:

Migrating to z/OS 1.8 Part 1 - Get Ready
Migrating to z/OS 1.8 Part 2 - Get Set
Migrating to z/OS 1.8 Part 3 - Go!
JES2 z/OS 1.7 Migration
JES2 Exit Migration for z/OS 1.7
JES2 Exit Conversion for z/OS 1.7 BOF
JES2 User Experiences: Exit Conversion and Other Cats in the 1.7 Bag
JES3 z/OS 1.8 New Features
JES2 z/OS 1.8 Product Overview & Review of Selected 1.7 Features
z/OS 1.8 User Experiences


The Sysplex Timer is Dead!
--
Since the beginning of Parallel Sysplex, our installations have depended
upon the IBM 9037-001 and 9037-002 Sysplex Timers to provide our sysplexes
with a common time source.  This technology has reached its end (withdrawn
from marketing at the end of 2006), and is replaced by Server Time Protocol
(STP), a new technology built into z9 and z990 servers.  Does "built in"
mean "simple"? (Here's a hint: NO!)  Do you know when you must convert?  Do
you know HOW to convert?  What about planning for critical recovery
considerations?  Come to SHARE to find out the answers - we've planned an
entire day of sessions just on Server Time Protocol!

Server Time Protocol (STP) Overview
Server Time Protocol (STP) Planning
Server Time Protocol (STP) Recovery Considerations (90 minute long session)
Server Time Protocol (STP) User Experiences Migrating to STP in the
Development Lab
Server Time Protocol (STP) User Experience at a customer


z/OS Health Checker
---
Have you supported your system for many years, or do you have an LPAR (or a
dozen) where you don't know the why's and wherefore's of your system's
settings?  Do you have a system setup issue which caused you an outage
yesterday (or will tomorrow)?  This z/OS component has even been architected
to allow users and third party vendors to create their own Health Checks. 
Everyone wants to avoid outages, right?  SHARE is the best place to find out
the latest about z/OS Health Checker.

What's New in z/OS Health Checker for z/OS 1.8
Writing a Remote Health Check
Health Checker: User Experience Beyond Installation


Introductory Sessions
-
You've just joined the ranks as a new sysprog, or perhaps you've just picked
up some new job responsibilities.  Of course, you always get to support
everything you previously had.  How do you get up to speed quickly on the
new stuff?  Why SHARE, of course!

ISPF Diaglog Developers Boot Camp (three parts)
ISPF Users Boot Camp (two parts)
Dynamic ISPF: How to Eliminate All Those Datasets in the Logon Proc
Configuring ISPF for Fun and Profit
Introduction to JES2 for New Systems Programmers
GRS 101: Non-Sysplex Ring, Sysplex Ring and Star
z/OS Websphere Application Server Basics
DFSMS Basics: What is VSAM? (two parts - SUNDAY!)
DFSMS Basics: VSAM Buffering (SUNDAY!)
DFSMS Basics: Introduction to Access Methods
DFSMS Basics: The ABCs of DFSMSrmm (two parts)
DFSMS Basics: ICF Catalog Management
z/OS Basics: A z/OS Walking Tour (three parts - SUNDAY!)


System Programmer Topics

In an OCO world, where can you go to learn about how things really work? 
Why, SHARE of course! Here is a sample of the down and dirty sessions we offer:

ISPF Hidden Treasures
ISPF Panels
Debugging Hints and Tips for z/OS 1.7 (SUNDAY!)
VSM Debugging (SUNDAY!)
Problem Determination With Dumps: IPCS Tools for Problem Resolution (SUNDAY!)
z/OS Internals: Real Storage Manager - Functions and Performance
MXI Grows Up: Introducing MXI G2
Building a "Gee Whiz" z/OS Toolkit
RRS Diagnosis and Debugging
Messing with Messages: Making the Most out of MPF


Hands-on Lab

In the SHARE "hands-on lab" you will have a unique opportunity to take the
controls and actually perform installation and customization activities on a
live system under the supervisi

Re: LOCATE macro still 24-bit?

[David Day]

A catalog management request is expressed in a parameter list pointed to by 
register 1. Generate the parameter list with a CAMLST macro. The CAMLST and 
its associated fields must not be located in read-only storage and must 
reside below the 16 MB line.
- Original Message - 
From: "Mark L. Wheeler" <[EMAIL PROTECTED]>

Newsgroups: bit.listserv.ibm-main
To: 
Sent: Wednesday, October 25, 2006 1:34 PM
Subject: LOCATE macro still 24-bit?



Greetings,

I've been asked to update an old assembler program (ca. 1993) to let it 
run

in 31-bit mode. It uses the LOCATE macro so there's special code in it to
force 24-bit mode, allegedly because LOCATE had to run 24-bit back then. 
It

seems unlikely that this restriction hasn't been lifted sometime in the
last 13 years, but I can't find anywhere that says so specifically. Anyone
have the straight scoop?

I've been away from MVS for almost 20 years but have managed to retain my
assembler skills. This is what I get for volunteering!

Best regards,

Mark Wheeler, 3M Company

--
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: Why would Rexx Date/Time be different from ASCBEWST Date/T

[Lindy Mayfield]

Is it correct that here in Finland I have zero seconds of leaping seconds?  

I tried to read the links provided with the explanations about it all and my 
head started to spin and I had to lie down.  It was like when I tried to read 
the first page of Finnegan's Wake.  At least then I could skip to the last page 
and read it without missing much in the middle. (-:

Lindy
(Mostly Harmless)

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Ted 
MacNEIL
Sent: Wednesday, October 25, 2006 11:02 PM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: Why would Rexx Date/Time be different from ASCBEWST Date/T

>The Data Areas doc says it is a double word in TOD format.

Number of milliseconds since midnight.

When in doubt.
PANIC!!  

--
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/LE Tuning Advice sought

[Chase, John]

> -Original Message-
> From: IBM Mainframe Discussion List On Behalf Of Nicholas Carbone
> 
> [ snip ]
> 
> Is this a report from running the "java" program?  Maybe 
> something like "java -version" might produce something that 
> would tell me what the java application defaults are.  The 
> options report here looks more like a hello world program, 
> since most of the option values have the LE defaults.

How's this:

# export _CEE_RUNOPTS="rptstg(on),rptopts(on)" 
# /usr/lpp/java142d/J1.4/bin/java -version 
java version "1.4.2"
Java(TM) 2 Runtime Environment, Standard Edition (build 1.4.2)
Classic VM (build 1.4.2, J2RE 1.4.2 IBM z/OS Persistent Reusable VM
build cm142-20050623 (JIT enabled: jitc))
Options Report for Enclave main 10/25/06 3:14:46 PM 
Language Environment V01 R05.00
 
LAST WHERE SET OPTION 

--- 
Installation default ABPERC(NONE)
Installation default ABTERMENC(ABEND)
Installation default   NOAIXBLD  
Programmer default   ALL31(ON) 
Programmer default   ANYHEAP(786432,131072,ANYWHERE,FREE)
Installation default   NOAUTOTASK 
Programmer default   BELOWHEAP(24576,2048,FREE)
Installation default CBLOPTS(ON)
Installation default CBLPSHPOP(ON)
Installation default CBLQDA(OFF) 
Installation default CHECK(ON) 
Installation default COUNTRY(US)
Installation default   NODEBUG 
Installation default DEPTHCONDLMT(10)
Installation default ENVAR("") 
Installation default ERRCOUNT(0)
Installation default ERRUNIT(6)
Installation default FILEHIST 
Installation default FILETAG(NOAUTOCVT,NOAUTOTAG)
Default settingNOFLOW 
Programmer default
HEAP(4194304,524288,ANYWHERE,FREE,8192,4096)
Installation default HEAPCHK(OFF,1,0,0,0)
Installation default
HEAPPOOLS(OFF,8,10,32,10,128,10,256,10,1024,10,2048,10,0,10,0,10,0,10,0,
10,0,10,0,10)
Installation default INFOMSGFILTER(OFF)
Installation default INQPCOPN 
Installation default INTERRUPT(OFF) 
Installation default LIBRARY(SYSCEE)
Programmer default   LIBSTACK(1024,1024,FREE)
Installation default MSGFILE(SYSOUT,FBA,121,0,NOENQ)
Installation default MSGQ(15)
Installation default NATLANG(ENU)
IgnoredNONONIPTSTACK(See THREADSTACK)
Installation default OCSTATUS 
Installation default   NOPC 
Installation default PLITASKCOUNT(20) 
Default setting  POSIX(ON) 
Installation default PROFILE(OFF,"") 
Installation default PRTUNIT(6) 
Installation default PUNUNIT(7) 
Installation default RDRUNIT(5) 
Installation default RECPAD(OFF) 
Invocation command   RPTOPTS(ON) 
Invocation command   RPTSTG(ON) 
Installation default   NORTEREUS 
Installation default RTLS(OFF) 
Installation default   NOSIMVRD 
Programmer default
STACK(49152,16384,ANYWHERE,KEEP,65536,16384)
Programmer default   STORAGE(NONE,NONE,NONE,1024) 
Installation default TERMTHDACT(TRACE,,96) 
Installation default   NOTEST(ALL,"*","PROMPT","INSPPREF")
Installation default THREADHEAP(4096,4096,ANYWHERE,KEEP) 
Installation default
THREADSTACK(OFF,4096,4096,BELOW,KEEP,131072,131072)
Installation default TRACE(OFF,4096,DUMP,LE=0)
Installation default TRAP(ON,SPIE)
Installation default UPSI() 
Installation default   NOUSRHDLR(,) 
Installation default VCTRSAVE(OFF)
Installation default VERSION() 
Override XPLINK(ON)
Installation default XUFLOW(AUTO)
 
Storage Report for Enclave main 10/25/06 3:14:46 PM 
Language Environment V01 R05.00 
 
STACK statistics: 
  Initial size:49152 
  Increment size:  16384 
  Maximum used by all concurrent threads:  14232 
  Largest used by any thread:  14232 
  Number of segments allocated:1 
  Number of segments freed:0 
THREADSTACK statistics: 
  Initial size:49152 
  Increment size:  16384 
  Maximum used by all concurrent threads:  21648 
  Largest used by any thread:   3488 
  Number of segments allocated:8 
  Number of segments freed:0 
XPLINK STACK statistics: 
  Initial size:65536 
 

Java/LE Tuning Advice sought

[Bill Klein]

John,
  Can you modify your program (or create a test one).  If so, you might want
to try calling CEE3DMP from it - and it will show you the STORAGE settings
"in effect" - under JVM.  See:

 http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ceea1170/1.3.2.4


for both the sample source code (but not in Java) and the expected output.

For details on the "options" that you can pass to CEE3DMP, see:

 
http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/CEEA3170/2.2.5.5 

***

There are new features with LE under z/OS V1R8 - but I don't think that is
where you are, but this documentation may help get you started (if this
approach will work for you).

"Chase, John" <[EMAIL PROTECTED]> wrote in message
news:<[EMAIL PROTECTED]>..
.
> > -Original Message-
> > From: IBM Mainframe Discussion List On Behalf Of Nicholas Carbone
> > 
> > On Wed, 25 Oct 2006 12:40:42 -0500, Kirk Wolf wrote:
> > 
> > >How about starting the app from an interactive Unix Shell and pressing 
> > >Cntl-C?
> > 
> > The application is going to have to terminate normally to get 
> > the Storage Report.  So, if there is something more simple 
> > that can be run so I can get a look at the Options Report 
> > (want to see the default options for java), then maybe I see 
> > something there.
> 
> Best I can do is this, from the abortive attempt to run it
"interactively":
> 
> ---£-Options Report for Enclave main 10/25/06 2:18:37 PM 
> Language Environment V01 R05.00  
>  


--
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: S237-04 and tapes

[Choate, Bill]

Are you thinking of shared UCW instead of shared UCB?

Bill Choate
Emory University
AAIT

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Steve Arnett
Sent: Wednesday, October 25, 2006 4:16 PM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: S237-04 and tapes

I ran into this several years back...Okay, 15 years...with IBM 3422 
tapes. According to the IBM CE, the erase gaps were not being written 
properly to the tapes when a write error occured.  It wasn't until I 
went to add a string of 3420 Mod 8s that I spotted an error made by my 
precessor in the definition of the 3422s.  He had set them up without 
shared UCBs.  As I understand error recovery on 3420s and 3422s, the 
errors on these devices are posted through the UCB of the 
controller(device 0).  This is not a restriction with 3480/3490s, so not

sure what drives still require shared UCBs, but it is something to
verify.

R.S. wrote:

> I observed an abend S237-04, when reading dataset from tape (using 
> IEBGENER).
> The manual says it is due to discrepancy between # of blocks read and 
> the value written to EOF label.
>
> The manual also suggests it can be hardware error.
> Well... The drive looks OK - only one tape is affected, the media 
> looks OK (i.e. can be read using BLP).
>
> Q: What component to suspect ?
>  drive ?
>  system ?
>  application ?
>
> Any clue ?
>
> Regards

--
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: S237-04 and tapes

[Steve Arnett]

I ran into this several years back...Okay, 15 years...with IBM 3422 
tapes. According to the IBM CE, the erase gaps were not being written 
properly to the tapes when a write error occured.  It wasn't until I 
went to add a string of 3420 Mod 8s that I spotted an error made by my 
precessor in the definition of the 3422s.  He had set them up without 
shared UCBs.  As I understand error recovery on 3420s and 3422s, the 
errors on these devices are posted through the UCB of the 
controller(device 0).  This is not a restriction with 3480/3490s, so not 
sure what drives still require shared UCBs, but it is something to verify.


R.S. wrote:

I observed an abend S237-04, when reading dataset from tape (using 
IEBGENER).
The manual says it is due to discrepancy between # of blocks read and 
the value written to EOF label.


The manual also suggests it can be hardware error.
Well... The drive looks OK - only one tape is affected, the media 
looks OK (i.e. can be read using BLP).


Q: What component to suspect ?
 drive ?
 system ?
 application ?

Any clue ?

Regards


--
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/LE Tuning Advice sought

[Kirk Wolf]

This doesn't look like an options report from the "java" command to me.

Kirk

Nicholas Carbone wrote:

On Wed, 25 Oct 2006 14:42:46 -0500, Chase, John <[EMAIL PROTECTED]> wrote:

  

-Original Message-
From: IBM Mainframe Discussion List On Behalf Of Nicholas Carbone

On Wed, 25 Oct 2006 12:40:42 -0500, Kirk Wolf wrote:

  

How about starting the app from an interactive Unix Shell and pressing
Cntl-C?


The application is going to have to terminate normally to get
the Storage Report.  So, if there is something more simple
that can be run so I can get a look at the Options Report
(want to see the default options for java), then maybe I see
something there.
  
Best I can do is this, from the abortive attempt to run 


it "interactively":
  

---£-Options Report for Enclave main 10/25/06 2:18:37 PM
Language Environment V01 R05.00

LAST WHERE SET OPTION
--


-
  

Installation default ABPERC(NONE)
Installation default ABTERMENC(ABEND)
Installation default   NOAIXBLD
Installation default ALL31(OFF)
Installation default ANYHEAP(16384,8192,ANYWHERE,FREE)
Installation default   NOAUTOTASK
Installation default BELOWHEAP(8192,4096,FREE)
Installation default CBLOPTS(ON)
Installation default CBLPSHPOP(ON)
Installation default CBLQDA(OFF)
Installation default CHECK(ON)
Installation default COUNTRY(US)
Installation default   NODEBUG
Installation default DEPTHCONDLMT(10)
Installation default ENVAR("")
Installation default ERRCOUNT(0)
Installation default ERRUNIT(6)
Installation default FILEHIST
Installation default FILETAG(NOAUTOCVT,NOAUTOTAG)
Default settingNOFLOW
Installation default HEAP(32768,32768,ANYWHERE,KEEP,8192,4096)
Installation default HEAPCHK(OFF,1,0,0,0)
Installation default HEAPPOOLS


(OFF,8,10,32,10,128,10,256,10,1024,10,2048,10,0,10,0,10,0,10,0,10,0,10,0,10
)
  

Installation default INFOMSGFILTER(OFF)
Installation default INQPCOPN
Installation default INTERRUPT(OFF)
Installation default LIBRARY(SYSCEE)
Installation default LIBSTACK(4096,4096,FREE)
Installation default MSGFILE(SYSOUT,FBA,121,0,NOENQ)
Installation default MSGQ(15)
Installation default NATLANG(ENU)
IgnoredNONONIPTSTACK(See THREADSTACK)
Installation default OCSTATUS
Installation default   NOPC
Installation default PLITASKCOUNT(20)
Default setting  POSIX(ON)
Installation default PROFILE(OFF,"")
Installation default PRTUNIT(6)
Installation default PUNUNIT(7)
Installation default RDRUNIT(5)
Installation default RECPAD(OFF)
Invocation command   RPTOPTS(ON)
Invocation command   RPTSTG(ON)
Installation default   NORTEREUS
Installation default RTLS(OFF)
Installation default   NOSIMVRD
Invocation command   STACK


(131072,131072,ANYWHERE,KEEP,131072,131072)
  

Installation default STORAGE(00,NONE,NONE,0)
Installation default TERMTHDACT(TRACE,,96)
Installation default   NOTEST(ALL,"*","PROMPT","INSPPREF")
Installation default THREADHEAP(4096,4096,ANYWHERE,KEEP)
Installation default THREADSTACK


(OFF,4096,4096,BELOW,KEEP,131072,131072)
  

Installation default TRACE(OFF,4096,DUMP,LE=0)
Installation default TRAP(ON,SPIE)
Installation default UPSI()
Installation default   NOUSRHDLR(,)
Installation default VCTRSAVE(OFF)
Installation default VERSION()
Installation default XPLINK(OFF)
Installation default XUFLOW(AUTO)

#

Compared to the VSMDATA display from the dump I took the other day, the 

above does not even remotely reflect the storage allocated within the 
primary address space of the "started task" instance.
  

   -jc-




Some comments.

It seems STACK is also specified in the _CEE_RUNOPTS, but I need to see 
the Options Report when that is not specified.  In other words, just 
specify _CEE_RUNOPTS="RPTOPTS(ON) RPTSTG(ON)".


Is this a report from running the "java" program?  Maybe something 
like "java -version" might produce something that would tell me what the 
java application defaults are.  The options report here looks more like a 
hello world program, since most of the option values have the LE defaults.


I noticed STORAGE(00,NONE,NONE,0) as an "installation default".  Hopefully 
this is not ever really in effect for a Java application.  The first 
suboption says to clear heap stora

Re: REFR -- Real Intent v. Actual Use?

[Arthur T.]

On 25 Oct 2006 11:22:43 -0700, in bit.listserv.ibm-main 
(Message-ID:<[EMAIL PROTECTED]>) 
[EMAIL PROTECTED] (Tom Marchant) wrote:



 I also take REFR as a hint that the code can go into
the LPALIB concatenation.  It's my understanding that those
modules are paged-in via CLPA and never paged out.  ...


ITYM loaded and paged out at CLPA time, then never paged out
again.


 Yes.  Thanks for the correction.


 (I once tried a PMR or Share requirement (I forget
which) that all of IBM's LPA-eligible modules be linked
REFR, along with error messages for any non-REFR modules
loaded via CLPA.  It got shot down because the modules are
owned by too many different groups.  I guess the idea that
all of those groups are owned by IBM, who *should* have the
last say in QA, was too subtle.)


And moot, now that they have redefined RENT to say that "A
reenterable module cannot modify its own code."  I don't see
that there's a distinction between that and REFR any more.


 No, not quite moot.  I tried the PMR when someone put 
something in LPA that shouldn't have been there (not and 
IBM module).  I realized that if CLPA checked for REFR when 
loading the modules, we'd have been warned at IPL time, 
rather than having problems later.


 As for the redefinition of RENT ("A reenterable 
module cannot modify its own code."):  It's possible that 
the author of that Binder section was making an unjustified 
conclusion rather than meaning to make that part of the 
definition.  It's also possible that that definition is not 
shared by other equally-valid groups within IBM.  By that 
definition, we could have two RENT modules modify each 
other (carefully) but we can't have one modify 
itself.  That does seem to be the only difference (in that 
document) between RENT and REFR:  RENT can't modify itself, 
and REFR can't be modified during execution.  Oddly, it 
leaves open the option to modify a REFR other than while 
it's executing.


 I think the authors should go back and redefine these 
options based on:


1.  What's really meant, and

2.  what's really enforced.

--
I cannot receive mail at the address this was sent from.
To reply directly, send to ar23hur "at" intergate "dot" 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: Java/LE Tuning Advice sought

[Nicholas Carbone]

On Wed, 25 Oct 2006 14:42:46 -0500, Chase, John <[EMAIL PROTECTED]> wrote:

>> -Original Message-
>> From: IBM Mainframe Discussion List On Behalf Of Nicholas Carbone
>>
>> On Wed, 25 Oct 2006 12:40:42 -0500, Kirk Wolf wrote:
>>
>> >How about starting the app from an interactive Unix Shell and pressing
>> >Cntl-C?
>>
>> The application is going to have to terminate normally to get
>> the Storage Report.  So, if there is something more simple
>> that can be run so I can get a look at the Options Report
>> (want to see the default options for java), then maybe I see
>> something there.
>
>Best I can do is this, from the abortive attempt to run 
it "interactively":
>
>---£-Options Report for Enclave main 10/25/06 2:18:37 PM
>Language Environment V01 R05.00
>
>LAST WHERE SET OPTION
>--
-
>Installation default ABPERC(NONE)
>Installation default ABTERMENC(ABEND)
>Installation default   NOAIXBLD
>Installation default ALL31(OFF)
>Installation default ANYHEAP(16384,8192,ANYWHERE,FREE)
>Installation default   NOAUTOTASK
>Installation default BELOWHEAP(8192,4096,FREE)
>Installation default CBLOPTS(ON)
>Installation default CBLPSHPOP(ON)
>Installation default CBLQDA(OFF)
>Installation default CHECK(ON)
>Installation default COUNTRY(US)
>Installation default   NODEBUG
>Installation default DEPTHCONDLMT(10)
>Installation default ENVAR("")
>Installation default ERRCOUNT(0)
>Installation default ERRUNIT(6)
>Installation default FILEHIST
>Installation default FILETAG(NOAUTOCVT,NOAUTOTAG)
>Default settingNOFLOW
>Installation default HEAP(32768,32768,ANYWHERE,KEEP,8192,4096)
>Installation default HEAPCHK(OFF,1,0,0,0)
>Installation default HEAPPOOLS
(OFF,8,10,32,10,128,10,256,10,1024,10,2048,10,0,10,0,10,0,10,0,10,0,10,0,10
)
>Installation default INFOMSGFILTER(OFF)
>Installation default INQPCOPN
>Installation default INTERRUPT(OFF)
>Installation default LIBRARY(SYSCEE)
>Installation default LIBSTACK(4096,4096,FREE)
>Installation default MSGFILE(SYSOUT,FBA,121,0,NOENQ)
>Installation default MSGQ(15)
>Installation default NATLANG(ENU)
>IgnoredNONONIPTSTACK(See THREADSTACK)
>Installation default OCSTATUS
>Installation default   NOPC
>Installation default PLITASKCOUNT(20)
>Default setting  POSIX(ON)
>Installation default PROFILE(OFF,"")
>Installation default PRTUNIT(6)
>Installation default PUNUNIT(7)
>Installation default RDRUNIT(5)
>Installation default RECPAD(OFF)
>Invocation command   RPTOPTS(ON)
>Invocation command   RPTSTG(ON)
>Installation default   NORTEREUS
>Installation default RTLS(OFF)
>Installation default   NOSIMVRD
>Invocation command   STACK
(131072,131072,ANYWHERE,KEEP,131072,131072)
>Installation default STORAGE(00,NONE,NONE,0)
>Installation default TERMTHDACT(TRACE,,96)
>Installation default   NOTEST(ALL,"*","PROMPT","INSPPREF")
>Installation default THREADHEAP(4096,4096,ANYWHERE,KEEP)
>Installation default THREADSTACK
(OFF,4096,4096,BELOW,KEEP,131072,131072)
>Installation default TRACE(OFF,4096,DUMP,LE=0)
>Installation default TRAP(ON,SPIE)
>Installation default UPSI()
>Installation default   NOUSRHDLR(,)
>Installation default VCTRSAVE(OFF)
>Installation default VERSION()
>Installation default XPLINK(OFF)
>Installation default XUFLOW(AUTO)
>
>#
>
>Compared to the VSMDATA display from the dump I took the other day, the 
above does not even remotely reflect the storage allocated within the 
primary address space of the "started task" instance.
>
>-jc-
>

Some comments.

It seems STACK is also specified in the _CEE_RUNOPTS, but I need to see 
the Options Report when that is not specified.  In other words, just 
specify _CEE_RUNOPTS="RPTOPTS(ON) RPTSTG(ON)".

Is this a report from running the "java" program?  Maybe something 
like "java -version" might produce something that would tell me what the 
java application defaults are.  The options report here looks more like a 
hello world program, since most of the option values have the LE defaults.

I noticed STORAGE(00,NONE,NONE,0) as an "installation default".  Hopefully 
this is not ever really in effect for a Java application.  The first 
suboption says to clear heap storage when it is allocated, could be 
expensive.

Nick Carbone

--

Re: Why would Rexx Date/Time be different from ASCBEWST Date/T

[Ted MacNEIL]

>The Data Areas doc says it is a double word in TOD format.

Number of milliseconds since midnight.

When in doubt.
PANIC!!  

--
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: Is the teaching of non-reentrant HLASM coding practices ever defensible?

[Patrick O'Keefe]

On Wed, 25 Oct 2006 10:25:51 -0600, Jeffrey D. Smith 
<[EMAIL PROTECTED]> wrote:

...
>The syntax of the REUS option is as follows:
>REUS={NONE|SERIAL|RENT|REFR}
>The reusability values are:
>...

Ok.  Maybe reading the manual doesn't help.  The Humpty Dumpty effect
again.  The manual says a REFR module has to be RENT, but Shueml gave an 
example that clearly is refreshable but not reenterable without 
serialization.  It would pass a RENT test, though, so the non-reenterable
routine could be marked RENT.  Maybe that's all that matters.

Pat O'Keefe 

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

Re: LOCATE macro still 24-bit?

[Gilbert Saint-Flour]

Edward Jaffe wrote:

> I honestly don't know if such a restriction ever existed. I can tell you
> that our software issues both LOCATE and OBTAIN without problems in
> 31-bit mode with all parameters above 16MB.

Same here.  I have an old library which contains several programs that issued 
LOCATE in RMODE=31 under MVS/XA 2.2 with DFP 2.3 back in 1988.

-- 
 Gilbert Saint-Flour
 GSF Software
 http://gsf-soft.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: Java/LE Tuning Advice sought

[Chase, John]

> -Original Message-
> From: IBM Mainframe Discussion List On Behalf Of Nicholas Carbone
> 
> On Wed, 25 Oct 2006 12:40:42 -0500, Kirk Wolf wrote:
> 
> >How about starting the app from an interactive Unix Shell and pressing 
> >Cntl-C?
> 
> The application is going to have to terminate normally to get 
> the Storage Report.  So, if there is something more simple 
> that can be run so I can get a look at the Options Report 
> (want to see the default options for java), then maybe I see 
> something there.

Best I can do is this, from the abortive attempt to run it "interactively":

---£-Options Report for Enclave main 10/25/06 2:18:37 PM 
Language Environment V01 R05.00  
 
LAST WHERE SET OPTION 
--- 
Installation default ABPERC(NONE) 
Installation default ABTERMENC(ABEND)
Installation default   NOAIXBLD 
Installation default ALL31(OFF)
Installation default ANYHEAP(16384,8192,ANYWHERE,FREE)
Installation default   NOAUTOTASK 
Installation default BELOWHEAP(8192,4096,FREE)
Installation default CBLOPTS(ON) 
Installation default CBLPSHPOP(ON)
Installation default CBLQDA(OFF)
Installation default CHECK(ON)
Installation default COUNTRY(US)
Installation default   NODEBUG
Installation default DEPTHCONDLMT(10)
Installation default ENVAR("")
Installation default ERRCOUNT(0)
Installation default ERRUNIT(6)
Installation default FILEHIST
Installation default FILETAG(NOAUTOCVT,NOAUTOTAG)
Default settingNOFLOW 
Installation default HEAP(32768,32768,ANYWHERE,KEEP,8192,4096)
Installation default HEAPCHK(OFF,1,0,0,0)
Installation default 
HEAPPOOLS(OFF,8,10,32,10,128,10,256,10,1024,10,2048,10,0,10,0,10,0,10,0,10,0,10,0,10)
Installation default INFOMSGFILTER(OFF)
Installation default INQPCOPN
Installation default INTERRUPT(OFF)
Installation default LIBRARY(SYSCEE)
Installation default LIBSTACK(4096,4096,FREE)
Installation default MSGFILE(SYSOUT,FBA,121,0,NOENQ)
Installation default MSGQ(15)
Installation default NATLANG(ENU)
IgnoredNONONIPTSTACK(See THREADSTACK)
Installation default OCSTATUS
Installation default   NOPC 
Installation default PLITASKCOUNT(20)
Default setting  POSIX(ON)
Installation default PROFILE(OFF,"") 
Installation default PRTUNIT(6)
Installation default PUNUNIT(7)
Installation default RDRUNIT(5)
Installation default RECPAD(OFF)
Invocation command   RPTOPTS(ON)
Invocation command   RPTSTG(ON)
Installation default   NORTEREUS 
Installation default RTLS(OFF)
Installation default   NOSIMVRD 
Invocation command   
STACK(131072,131072,ANYWHERE,KEEP,131072,131072)
Installation default STORAGE(00,NONE,NONE,0)
Installation default TERMTHDACT(TRACE,,96)
Installation default   NOTEST(ALL,"*","PROMPT","INSPPREF")
Installation default THREADHEAP(4096,4096,ANYWHERE,KEEP)
Installation default 
THREADSTACK(OFF,4096,4096,BELOW,KEEP,131072,131072)
Installation default TRACE(OFF,4096,DUMP,LE=0)
Installation default TRAP(ON,SPIE)
Installation default UPSI()
Installation default   NOUSRHDLR(,)
Installation default VCTRSAVE(OFF)
Installation default VERSION()
Installation default XPLINK(OFF)
Installation default XUFLOW(AUTO)
 
Storage Report for Enclave main 10/25/06 2:18:38 PM 
Language Environment V01 R05.00
 
STACK statistics:
  Initial size:   131072 
  Increment size: 131072 
  Maximum used by all concurrent threads: 794008 
  Largest used by any thread: 794008 
  Number of segments allocated:3 
  Number of segments freed:0 
THREADSTACK statistics:
  Initial size:0 
  Increment size:  0 
  Maximum used by all concurrent threads:  0 
  Largest used by any thread:  0 
  Number of segments allocated:0 
  Number of segments freed:0 
LIBSTACK statistics: 
  Initial size: 4096 
  Increment size:   4096 
  Maximum used by all concur

Re: I love TCPIP (not!)

[Patrick O'Keefe]

On Wed, 25 Oct 2006 17:15:58 +0200, Chris Mason <[EMAIL PROTECTED]> 
wrote:

>...
>In short the GATEWAY statement is completely ignorant of CIDR. ...

And if you are doing dynamic routing rather than defining static routes
you run into OMPROUTEs ambivalence towards CIDR - fully supporting it
in some situations, completely ignoring it for others (Wild-carded IP
addresses can wild-carded only for a whole class of addresses.) and 
maliciously appying class logic in others (Undeclared interfaces are 
given a subnet mask for the class associated with their IP address.  If
you allow OMPROUTE to advertise that subnet, this MVS TCP/IP stack 
becomes your network's storm drain for that class subnet.  What fun!).

BTW, there is a SHARE requirment requesting IBM improve the wild-card 
issue.  It's open for voting right now so if you are a member of
SHARE, sign up for the Networking Requirements, and vote.  (Vote on the
other 7 requirements, too.)

Pat O'Keefe 

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

Re: Java/LE Tuning Advice sought

[Chase, John]

> -Original Message-
> From: IBM Mainframe Discussion List On Behalf Of Bill Klein
> 
> (all previous "snipped")
> 
> While researching something else today, I cam across the 
> following in the CICS (not LE) documentation,
> 
>  "Using DFHJVMRO to modify the Language Environment enclave for a JVM"
> 
> at:
> 
>  
>
http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/dfha3b01/3.17
.2 
> 
> 
> Although it is talking about CICS (only), it does sound like 
> it might have some useful advice and references)

Well, since I'm "grasping at straws" now, and this "looks like a
straw",

Thx,

-jc-

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

Re: Java/LE Tuning Advice sought

[Chase, John]

> -Original Message-
> From: IBM Mainframe Discussion List On Behalf Of Kirk Wolf
> 
> How about starting the app from an interactive Unix Shell and 
> pressing Cntl-C?

It seems it won't run when started that way.

-jc-

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

Re: LOCATE macro still 24-bit?

[Edward Jaffe]

Mark L. Wheeler wrote:

I've been asked to update an old assembler program (ca. 1993) to let it run
in 31-bit mode. It uses the LOCATE macro so there's special code in it to
force 24-bit mode, allegedly because LOCATE had to run 24-bit back then. It
seems unlikely that this restriction hasn't been lifted sometime in the
last 13 years, but I can't find anywhere that says so specifically. Anyone
have the straight scoop?
  


I honestly don't know if such a restriction ever existed. I can tell you 
that our software issues both LOCATE and OBTAIN without problems in 
31-bit mode with all parameters above 16MB.


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

LOCATE macro still 24-bit?

[Mark L. Wheeler]

Greetings,

I've been asked to update an old assembler program (ca. 1993) to let it run
in 31-bit mode. It uses the LOCATE macro so there's special code in it to
force 24-bit mode, allegedly because LOCATE had to run 24-bit back then. It
seems unlikely that this restriction hasn't been lifted sometime in the
last 13 years, but I can't find anywhere that says so specifically. Anyone
have the straight scoop?

I've been away from MVS for almost 20 years but have managed to retain my
assembler skills. This is what I get for volunteering!

Best regards,

Mark Wheeler, 3M Company

--
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: Why would Rexx Date/Time be different from ASCBEWST Date/T

[Edward Jaffe]

Lindy Mayfield wrote:

Ok, now I think I got it.  Thanks to all and you Edward.  I wonder why in the 
CVT Map they don't say that CVTTZ is depreciated and to use CVTLSO?
  


Note: I said _CVTLDTO_ -- entirely different from CVTLSO. Both 
adjustments should be used when converting UTC TOD to local time.


--
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: S237-04 and tapes

[Ed Gould]

R.S> :

30 years ago we were having a rash of them. IBM CE (NOT STK) said it  
was a hardware issue. I wrote a program to compare the block count  
read and to compare it to the EOV (EOF). In every instance we found  
it was the tape drive. We chucked STC (Now STK) drives as it was  
causing 2-3 problems a night. STC (now STK). The IBM tapedrives never  
had a 237 issue (mod 8s 6250, IIRC). The only bad thing I can say  
about IBM tape drives is that it was pure hell loading mini tapes.


Ed

On Oct 25, 2006, at 11:38 AM, R.S. wrote:

I observed an abend S237-04, when reading dataset from tape (using  
IEBGENER).
The manual says it is due to discrepancy between # of blocks read  
and the value written to EOF label.


The manual also suggests it can be hardware error.
Well... The drive looks OK - only one tape is affected, the media  
looks OK (i.e. can be read using BLP).


Q: What component to suspect ?
 drive ?
 system ?
 application ?

Any clue ?

Regards
--
Radoslaw Skorupka
Lodz, Poland

--
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: REFR -- Real Intent v. Actual Use?

[Tom Marchant]

On Wed, 25 Oct 2006 13:37:10 -0400, Arthur T. <[EMAIL PROTECTED]> wrote:

>
>  I also take REFR as a hint that the code can go into
>the LPALIB concatenation.  It's my understanding that those
>modules are paged-in via CLPA and never paged out.  ...

ITYM loaded and paged out at CLPA time, then never paged out
again.
>
>  (I once tried a PMR or Share requirement (I forget
>which) that all of IBM's LPA-eligible modules be linked
>REFR, along with error messages for any non-REFR modules
>loaded via CLPA.  It got shot down because the modules are
>owned by too many different groups.  I guess the idea that
>all of those groups are owned by IBM, who *should* have the
>last say in QA, was too subtle.)

And moot, now that they have redefined RENT to say that "A
reenterable module cannot modify its own code."  I don't see
that there's a distinction between that and REFR any more.

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: S237-04 and tapes

[Thomas H Puddicombe]

The 237-04 is due to the count of blocks actually read not matching the
number that was in the trailer label.  The error likely happened at the
time the tape dataset was created.  Possibilities:

The tape drive said it wrote a block but it lied (I haven't seen this in a
very long time).

Tape was overwritten (accidentally or deliberately)

The tape was created on a non-zOS system and the trailer label contents
weren't correct.

If you BLP (bypass label processing), then the system won't compare the
number of blocks actually read to the number in the trailer label (because
it bypasses label processing).

Successfully reading the tape using BLP means that all of the data blocks
on the tape were read successfully.  But blocks that were supposed to be
written to the tape but weren't were not read.  Of course, I'm only
guessing that the block count in the trailer label is larger than the count
of blocks actually read.

Tom




This is a PRIVATE message. If you are not the intended recipient, please
delete without copying and kindly advise us by e-mail of the mistake in
delivery. NOTE: Regardless of content, this e-mail shall not operate to
bind CSC to any order or other contract unless pursuant to explicit written
agreement or government initiative expressly permitting the use of e-mail
for such purpose.





   
 "R.S."
 <[EMAIL PROTECTED] 
 LTIBANK.COM.PL>To 
 Sent by: IBM  IBM-MAIN@BAMA.UA.EDU
 Mainframe  cc 
 Discussion List   
 <[EMAIL PROTECTED] Subject 
 .EDU> S237-04 and tapes   
   
   
 10/25/2006 12:38  
 PM
   
   
 Please respond to 
   IBM Mainframe   
  Discussion List  
 <[EMAIL PROTECTED] 
   .EDU>   
   
   




I observed an abend S237-04, when reading dataset from tape (using
IEBGENER).
The manual says it is due to discrepancy between # of blocks read and
the value written to EOF label.

The manual also suggests it can be hardware error.
Well... The drive looks OK - only one tape is affected, the media looks
OK (i.e. can be read using BLP).

Q: What component to suspect ?
  drive ?
  system ?
  application ?

Any clue ?

Regards
--
Radoslaw Skorupka
Lodz, Poland

--
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 long does Flashcopy really take?

[Ed Gould]

On Oct 24, 2006, at 11:38 PM, Joel C. Ewing wrote:
--zsnip--


Need both:
(1) a way to query the current FC state of specific drives;
(2) a system event that can be seen by system automation or  
installation exits upon completion of an individual flash copy.


A reasonable question to ask when doing 300 full-volume flashcopy  
operations is "are they all done?".  If there were an accounting  
record (like SMF) and/or console message cut when the flashcopy  
completed that could be tracked in real time, determining  
completion would be relatively simple and cheap.  With only FCQUERY  
support, you are reduced to the expensive and cumbersome technique  
of repeatedly polling the status of 300 devices to get the same  
information.


I'll have to check my records - I was thinking I put in a  
requirement for such capability in z/OS, but maybe not.  I'm  
suspecting this involves more than changes to z/OS or z/VM.  My  
impression is that the DASD subsystem might have to be changed  
first - it's unclear whether there is currently any protocol for  
reporting FC completion events to the host.


--

--SNIP--

Joel,

I would think a message would be sufficient after each volume is  
done, no? Possibly a message when all are done as well. How IBM does  
it is almost irrelevent as its their code, no? How IBM's code gets  
notified again is an IBM issue and it would be up to them to inform  
the "end user".


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: Java/LE Tuning Advice sought

[Nicholas Carbone]

On Wed, 25 Oct 2006 12:40:42 -0500, Kirk Wolf <[EMAIL PROTECTED]> wrote:

>How about starting the app from an interactive Unix Shell and pressing
>Cntl-C?
>
>Chase, John wrote:
>>> -Original Message-
>>> From: IBM Mainframe Discussion List On Behalf Of Nicholas Carbone
>>>
>>> If you send me an Options Report and Storage Report, obtained running
>>> RPTOPTS(ON) and RPTSTG(ON), I will do what I can to suggest
>>> LE options settings that may help improve performance.
>>>
>>
>> Thanks, but the application has a defect that requires it to be
>> cancelled to end execution and produce the reports.  Thus, I cannot
>> produce them.
>>
>> I do have a console dump of its address space  :-)
>>
>> -jc-
>>

The application is going to have to terminate normally to get the Storage 
Report.  So, if there is something more simple that can be run so I can 
get a look at the Options Report (want to see the default options for 
java), then maybe I see something there.

Nick Carbone

--
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: Large Format Sequential Data Sets (OA17875 may cause LARGE when not requested)

[Friske, Michael]

Thanks, Paul

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Paul Dineen
Sent: Wednesday, October 25, 2006 11:26 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: Large Format Sequential Data Sets (OA17875 may cause LARGE
when not requested)


Michael,

My only notable experience with large format datasets was not
specifically 
intended.  Any z/OS 1.7 shop might want to review some APARs which have 
been discussed here the last couple months (thanks to Ben Alford, Glenn 
Miller) dealing with large format support, but affecting 'non-large' 
datasets.   

APAR OA17875 addresses abend S737-45 which can make a dataset 
DSNTYPE=LARGE without the user requesting LARGE.  We've experienced an 
occurrence which seems to fit OA17875, applicable to dataset extension
to 
multivolume.  Not only was the dataset incorrectly flagged as 'LARGE',
but 
the S737-35 also introduced data corruption for the dataset.

To inventory any large format datasets, FDR users can use FDREPORT to
identify by specifying:  XSELECT DSORG=(PS,PO),FLAG1.EQ.LARGE
This won't separate datasets designed for large format vs. any which may

have been affected by OA17875, but is handy in determining possible 
problem scope.

Other APARs of interest regarding large format support possibly
adversely  
affecting 'non-large' datasets are OA17290 and its companions OA17365
and 
OA17370.

Hope this helps,
Paul Dineen

--
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: S237-04 and tapes

[David Andrews]

On Wed, 2006-10-25 at 18:38 +0200, R.S. wrote:
> I observed an abend S237-04, when reading dataset from tape (using 
> IEBGENER).
> The manual says it is due to discrepancy between # of blocks read and 
> the value written to EOF label.

As a matter of curiosity, was the tape ever processed DISP=MOD?

Was the tape written by a tape-to-tape copy utility?

Was it exported from a VTS?

-- 
David Andrews
A. Duda and Sons, Inc.
[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

Java/LE Tuning Advice sought

[Bill Klein]

(all previous "snipped")

While researching something else today, I cam across the following in the
CICS (not LE) documentation,

 "Using DFHJVMRO to modify the Language Environment enclave for a JVM"

at:

 http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/dfha3b01/3.17.2 


Although it is talking about CICS (only), it does sound like it might have
some useful advice and references)

--
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: REFR -- Real Intent v. Actual Use?

[Arthur T.]

On 25 Oct 2006 08:04:55 -0700, in bit.listserv.ibm-main 
(Message-ID:<[EMAIL PROTECTED]>) 
[EMAIL PROTECTED] (Robert Wright) wrote:



REFR as an attribute, does this also imply that the code is
self-relocating so that if the code is reloaded at a 
different place, it
is still able to continue execution (of the task in 
flight)? So PRE DAT

days, this would be an overlay type program, right?


REFR was intended to let the system know that it could 
re-fetch a module in
circumstances such as storage going bad or overlays being 
detected that
might impact the module.  As things like the ability to 
load from DCBs that
had been opened temporarily became prevalent, it became 
less practical, and
storage was becoming more reliable in the same time 
frame.  It's no longer

supported but the attribute has been retained.


 I also take REFR as a hint that the code can go into 
the LPALIB concatenation.  It's my understanding that those 
modules are paged-in via CLPA and never paged out.  When 
the storage is needed, the frame can be stolen.  When the 
code is needed, it can be paged in again from the original.


 So, rather than being protection from bad memory, 
it's protection from the I/O of page-out.


 (I once tried a PMR or Share requirement (I forget 
which) that all of IBM's LPA-eligible modules be linked 
REFR, along with error messages for any non-REFR modules 
loaded via CLPA.  It got shot down because the modules are 
owned by too many different groups.  I guess the idea that 
all of those groups are owned by IBM, who *should* have the 
last say in QA, was too subtle.)



--
I cannot receive mail at the address this was sent from.
To reply directly, send to ar23hur "at" intergate "dot" 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: Java/LE Tuning Advice sought

[Kirk Wolf]

How about starting the app from an interactive Unix Shell and pressing 
Cntl-C?


Chase, John wrote:

-Original Message-
From: IBM Mainframe Discussion List On Behalf Of Nicholas Carbone

If you send me an Options Report and Storage Report, obtained running
RPTOPTS(ON) and RPTSTG(ON), I will do what I can to suggest 
LE options settings that may help improve performance.



Thanks, but the application has a defect that requires it to be
cancelled to end execution and produce the reports.  Thus, I cannot
produce them.

I do have a console dump of its address space  :-)

-jc-

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

  


--
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: Why would Rexx Date/Time be different from ASCBEWST Date/Time?

[Thompson, Steve (SCI TW)]

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Lindy Mayfield
Sent: Wednesday, October 25, 2006 10:53 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: Why would Rexx Date/Time be different from ASCBEWST
Date/Time?

Very good point, Paul, thanks.  That happened to creep in because I
copied the code from an ISPF application...

I've never heard of leap seconds!  Leap years, but not leap seconds.  Is
this something with time zones in Australia?  

Lindy


The earth's rate of spin is not constant and has slowed since 1900 (for
our purposes). This results in leap seconds to allow for computing the
precise location of orbital items that are not affected by the change in
the spin speed of the earth.

So, if you have an External Time Reference that is based on GPS timing,
you have to have leap seconds to normalize UTC to GMT. Otherwise, your
computer system will be 21 or 22 seconds (I've forgotten the current
number) different from the rest of the world.

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: Why would Rexx Date/Time be different from ASCBEWST Date/T

[Lindy Mayfield]

Ok, now I think I got it.  Thanks to all and you Edward.  I wonder why in the 
CVT Map they don't say that CVTTZ is depreciated and to use CVTLSO?

Or I guess the bigger question is, is this something you just learn from 
experience and working with things, or is there a manual somewhere that 
explains all this?  I don't mind asking, but I'd rather RTFM if I can find the 
right FM. (-:

Lindy


-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of 
Edward Jaffe
Sent: Wednesday, October 25, 2006 7:46 PM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: Why would Rexx Date/Time be different from ASCBEWST Date/T

Lindy Mayfield wrote:
> I still don't quite get it though, probably cause I'm a bit thick.  What does 
> make sense to me now is that the EWST time should be offset by the CVTTZ 
> number of hours and the CVTLSO number of seconds.  That's clear.
>   

The use of CVTTZ is deprecated. You should be using CVTLDTO.

-- 
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: Java/LE Tuning Advice sought

[Chase, John]

> -Original Message-
> From: IBM Mainframe Discussion List On Behalf Of Nicholas Carbone
> 
> If you send me an Options Report and Storage Report, obtained running
> RPTOPTS(ON) and RPTSTG(ON), I will do what I can to suggest 
> LE options settings that may help improve performance.

Thanks, but the application has a defect that requires it to be
cancelled to end execution and produce the reports.  Thus, I cannot
produce them.

I do have a console dump of its address space  :-)

-jc-

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

Re: Java/LE Tuning Advice sought

[Nicholas Carbone]

If you send me an Options Report and Storage Report, obtained running 
RPTOPTS(ON) and RPTSTG(ON), I will do what I can to suggest LE options 
settings that may help improve performance.

--
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: Why would Rexx Date/Time be different from ASCBEWST Date/T

[Edward Jaffe]

Lindy Mayfield wrote:

I still don't quite get it though, probably cause I'm a bit thick.  What does 
make sense to me now is that the EWST time should be offset by the CVTTZ number 
of hours and the CVTLSO number of seconds.  That's clear.
  


The use of CVTTZ is deprecated. You should be using CVTLDTO.

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

JES2 Dynamic Exit Reloader and zOS 1.8

[ITURIEL DO NASCIMENTO NETO]

Hi all,

Do any of you have already tried Jes2 dynamic exit reloader (CBTTape file
198) in zOS 1.8 ?
I`ve tried and it seems not to work properly. When issueing $REPEXIT
loadmod, we receive message
$HASP000 loadmod not located in LINKLIST library.

I intend to do some debug but don`t want to reinvent the weel. If any of you
have done some adjust
please share.

Thanks in advance


Atenciosamente / Regards / Saludos

Ituriel do Nascimento Neto
Banco Bradesco S/A
4254/DPCD Alphaville
Suporte Técnico - Software Básico Mainframes
Tel: 55 11 4197-2021   Fax: 55 11 4197-2814






 AVISO LEGAL  Esta mensagem é destinada exclusivamente para a(s) pessoa(s) 
a quem é dirigida, podendo conter informação confidencial e/ou legalmente 
privilegiada. Se você não for destinatário desta mensagem, desde já fica 
notificado de abster-se a divulgar, copiar, distribuir, examinar ou, de 
qualquer forma, utilizar a informação contida nesta mensagem, por ser ilegal. 
Caso você tenha recebido esta mensagem por engano, pedimos que nos retorne este 
E-Mail, promovendo, desde logo, a eliminação do seu conteúdo em sua base de 
dados, registros ou sistema de controle. Fica desprovida de eficácia e validade 
a mensagem que contiver vínculos obrigacionais, expedida por quem não detenha 
poderes de representação.
+**+
 LEGAL ADVICE  This message is exclusively destined for the people to whom 
it is directed, and it can bear private and/or legally exceptional information. 
If you are not addressee of this message, since now you are advised to not 
release, copy, distribute, check or, otherwise, use the information contained 
in this message, because it is illegal. If you received this message by 
mistake, we ask you to return this email, making possible, as soon as possible, 
the elimination of its contents of your database, registrations or controls 
system. The message that bears any mandatory links, issued by someone who has 
no representation powers, shall be null or void.

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

S237-04 and tapes

[R.S.]

I observed an abend S237-04, when reading dataset from tape (using 
IEBGENER).
The manual says it is due to discrepancy between # of blocks read and 
the value written to EOF label.


The manual also suggests it can be hardware error.
Well... The drive looks OK - only one tape is affected, the media looks 
OK (i.e. can be read using BLP).


Q: What component to suspect ?
 drive ?
 system ?
 application ?

Any clue ?

Regards
--
Radoslaw Skorupka
Lodz, Poland

--
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: Why would Rexx Date/Time be different from ASCBEWST Date/T

[Lindy Mayfield]

>>>  Paul Gilmartin wrote:
>  Your ISPF application or IBM's?

Mine.  I put the date/time into a variable and was just displaying it on a 
panel.

> Yah.  It's because of all them kangaroos leaping about.

Hehe, I was thinking kangaroos, too. (-: Oh, thanks to all for the links. I'll 
read them.

I still don't quite get it though, probably cause I'm a bit thick.  What does 
make sense to me now is that the EWST time should be offset by the CVTTZ number 
of hours and the CVTLSO number of seconds.  That's clear.

What isn't immediately clear is how I should "fix" my Rexx program.  Or more 
precisely how to calculate the number of seconds of leaping I have to do:

CVT = c2d(storage(10,4)) 
say c2x(storage(d2x(CVT+80),8))  
say c2d(storage(d2x(CVT+80),8))  

Gives:
0A0307FE00FD381C 
72142915282909391

Nothing that looks like seconds.  The Data Areas doc says it is a double word 
in TOD format.  Full text below.

Lindy

--- Comment 
THE FOLLOWING FIELD CONTAINS THE OFFSET VALUE NEEDED TO CORRECT THE TOD VALUE 
TO THE CORRECT LOCAL DATE AND TIME OF DAY. IT IS SIMILAR TO CVTTZ EXCEPT THAT 
IT IS A DOUBLEWORD VALUE PLUS IT ALSO CONTAINS THE DATE CORRECTION AS WELL AS 
THE TIME CORRECTION VALUE.

 End of Comment  
56 (38) DBL WORD8 CVTLDTO LOCAL TIME/DATE (0) OFFSET 
56 (38) SIGNED  4 CVTLDTOL HIGH WORD 
60 (3C) SIGNED  4 CVTLDTOR LOW WORD 
64 (40) ADDRESS 4 CVTATCVT - POINTER TO VTAM'S CVT 1...  CVTATACT   
  "X'80'" IF ON, VTAM IS ACTIVE MDC081 
68 (44) BITSTRING 4 CVT2R044 - RESERVED 
72 (48) SIGNED  4 CVTBCLMT - NUMBER OF 130-BYTE RECORDS SET ASIDE FOR   
  BROADCAST MESSAGES 
76 (4C) SIGNED  4 CVT2R04C RESERVED 
80 (50) DBL WORD8 CVTLSO (0) LEAP SECOND OFFSET IN TOD FORMAT 
80 (50) SIGNED  4 CVTLSOH HIGH WORD
84 (54) SIGNED  4 CVTLSOL LOW WORD 
88 (58) BITSTRING 44 CVT2R058 RESERVED

--
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: Large Format Sequential Data Sets (OA17875 may cause LARGE when not requested)

[Paul Dineen]

Michael,

My only notable experience with large format datasets was not specifically 
intended.  Any z/OS 1.7 shop might want to review some APARs which have 
been discussed here the last couple months (thanks to Ben Alford, Glenn 
Miller) dealing with large format support, but affecting 'non-large' 
datasets.   

APAR OA17875 addresses abend S737-45 which can make a dataset 
DSNTYPE=LARGE without the user requesting LARGE.  We've experienced an 
occurrence which seems to fit OA17875, applicable to dataset extension to 
multivolume.  Not only was the dataset incorrectly flagged as 'LARGE', but 
the S737-35 also introduced data corruption for the dataset.

To inventory any large format datasets, FDR users can use FDREPORT to
identify by specifying:  XSELECT DSORG=(PS,PO),FLAG1.EQ.LARGE
This won't separate datasets designed for large format vs. any which may 
have been affected by OA17875, but is handy in determining possible 
problem scope.

Other APARs of interest regarding large format support possibly adversely  
affecting 'non-large' datasets are OA17290 and its companions OA17365 and 
OA17370.

Hope this helps,
Paul Dineen



On Mon, 23 Oct 2006 07:37:02 -0500, Friske, Michael 
<[EMAIL PROTECTED]> wrote:

>Does anyone have any experience, positive or negative, with using the
>new large format sequential data sets introduced in z/OS 1.7?  This
>support allows non-Extended Format data sets to exceed the 65,353 track
>limit.
>
>I am specifically interested in any problems anyone has had with JES
>spool data sets and the HSM journal data set being allocated as large
>format data sets.
>
>--
>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: Is the teaching of non-reentrant HLASM coding practices ever defensible?

[Jeffrey D. Smith]

> -Original Message-
> From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
> Behalf Of Shmuel Metz (Seymour J.)
> Sent: Wednesday, October 25, 2006 7:22 AM
> To: IBM-MAIN@BAMA.UA.EDU
> Subject: Re: Is the teaching of non-reentrant HLASM coding practices ever
> defensible?
> 
> In <[EMAIL PROTECTED]>, on 10/22/2006
>at 08:31 PM, "Jeffrey D. Smith" <[EMAIL PROTECTED]> said:
> 
> >No, that's reentrant.
> 
> RYFM.
> 
> >Refreshable means the program does not
> >modify itself *ever*.
> 
> No. It means that the program produces correct results even if
> refreshed. It can modify itself as long as losing the modifications
> doesn't cause incorrect results.
> 
> A program is reentrant if it produces correct results when multiple
> invocations run concurrently. A R/O program can fail to be reentrant,
> and a reentrant program can modify itself. It can even modify itself
> without serialization if it does not subsequently rely on the results
> of the modification.
> 
> >No, reentrant means what I wrote.
> 
> RYFM.
> 
> >Serialization has nothing
> >to do with it, unless the program is self-modifying (which is also
> >what I wrote).
> 
> That's what you wrote, but it's wrong.
> 
>  L R0,CVTUSER
>  BCTR  R0,0
>  STR0,CVTUSER
> 
> Refreshable, in fact R/O, but not reentrant; it needs serialization.
> 
> "It's not what you don't know that's the killer; it's what you know
> that isn't so."
> 
> --
>  Shmuel (Seymour J.) Metz, SysProg and JOAT

IBM Documentation, "Program Management" SC27-1130-00
Chapter 7, Binder Options, Page 123.

The syntax of the REUS option is as follows: 
REUS={NONE|SERIAL|RENT|REFR} 
The reusability values are: 

NONE 
The module cannot be reused. A new copy must be brought into virtual 
storage for each use. NONE is the default value.
 
SERIAL The module is serially reusable. It can only be executed by one task
at a time; when one task has finished executing it another task can begin. A
serially reusable module can modify its own code, but when it is reexecuted
it must initialize itself or restore any instructions or data that have been
altered. 

RENT The module is reenterable. It can be executed by more than one task at
a time. A task can begin executing it before a previous task has completed
exe-cution. A reenterable module cannot modify its own code. In some cases,
the operating system may load a reentrant program into an area of virtual
storage that cannot be modified. 
Reenterable modules are also serially reusable. 

REFR The module is refreshable. It can be replaced by a new copy during
execution without changing the sequence or results of processing. A
refreshable module cannot be modified during execution. 

A module can only be refreshable if all the control sections within it are
refreshable. The refreshable attribute is negated if any input modules are
not refreshable. Refreshable modules are also reenterable and serially
reusable. 
The refreshable attribute can be specified for any nonmodifiable module.


Jeffrey D. Smith
Principal Product Architect
Farsight Systems Corporation
700 KEN PRATT BLVD. #204-159
LONGMONT, CO 80501-6452
303-774-9381 direct
303-484-6170 FAX
http://www.farsight-systems.com/
comments are invited on my encryption project

--
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: Why would Rexx Date/Time be different from ASCBEWST Date/T

[Paul Gilmartin]

In a recent note, Lindy Mayfield said:

> Date: Wed, 25 Oct 2006 17:53:10 +0200
> 
> Very good point, Paul, thanks.  That happened to creep in because I copied 
> the code from an ISPF application...
> 
Your ISPF application or IBM's?

> I've never heard of leap seconds!  Leap years, but not leap seconds.  Is this 
> something with time zones in Australia?
> 
Yah.  It's because of all them kangaroos leaping about.

File that you are currently viewing
   Linkname: NIST Time and Frequency FAQ
URL: http://tf.nist.gov/general/leaps.htm

Link that you currently have selected
   Linkname: What is a leap second?
URL: http://tf.nist.gov/general/leaps.htm#Anchor-52904

IBM took an APAR for me because IEBCOPY was failing to account for
leap seconds.  They DTRT and changed STCK to TIME macro.

-- gil
-- 
StorageTek
INFORMATION made POWERFUL

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

Leap Seconds for Lindy

[Alan C. Field]

http://tycho.usno.navy.mil/leapsec.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: Why would Rexx Date/Time be different from ASCBEWST Date/Time?

[Lindy Mayfield]

Very good point, Paul, thanks.  That happened to creep in because I copied the 
code from an ISPF application...

I've never heard of leap seconds!  Leap years, but not leap seconds.  Is this 
something with time zones in Australia?  

Lindy

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Paul 
Gilmartin
Sent: Wednesday, October 25, 2006 6:43 PM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: Why would Rexx Date/Time be different from ASCBEWST Date/Time?

In a recent note, Lindy Mayfield said:

> Date: Wed, 25 Oct 2006 16:47:00 +0200
> 
> date=DATE(U)
> time=TIME()
> ...
> Say 'Rexx Date/Time:' date time
> 
Do not do this.  There's a (small) chance that the date will change
between the two calls, and the result printed will be in error
by 24 hours; a nasty bug for being almost impossible to reproduce.
Rather, do:

  Say 'Rexx Date/Time:' DATE(U) TIME()

I recognize this is a one-off, but as mentioned recently in these
lists, one-time code has a nasty habit of creeping into production,
as do careless habits practiced in one-time code.

-- gil
-- 
StorageTek
INFORMATION made POWERFUL

--
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: Why would Rexx Date/Time be different from ASCBEWST Date/Time?

[Paul Gilmartin]

In a recent note, Lindy Mayfield said:

> Date: Wed, 25 Oct 2006 16:47:00 +0200
> 
> date=DATE(U)
> time=TIME()
> ...
> Say 'Rexx Date/Time:' date time
> 
Do not do this.  There's a (small) chance that the date will change
between the two calls, and the result printed will be in error
by 24 hours; a nasty bug for being almost impossible to reproduce.
Rather, do:

  Say 'Rexx Date/Time:' DATE(U) TIME()

I recognize this is a one-off, but as mentioned recently in these
lists, one-time code has a nasty habit of creeping into production,
as do careless habits practiced in one-time code.

-- gil
-- 
StorageTek
INFORMATION made POWERFUL

--
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: Macro Updates Not Going to SMPMTS

[Tom Marchant]

On Wed, 25 Oct 2006 08:31:37 -0500, Miller, Pat 
<[EMAIL PROTECTED]> wrote:

>From the SMP/E User's Guide:
>The SMPMTS data set contains macros from SYSMODs that are applied. 
Therefore, the proper SYSLIB concatenation for APPLY processing includes 
the SMPMTS data set, as is shown in Figure 35.
>
>

>   |
>   |   //* -- Include SMPMTS first
>   |   //* -- followed by all macro target libraries
>   |   //* -- followed by all distribution
>   |   //*libraries
>   |   //SYSLIB   DD  DSN=SYS1.SMPMTS,DISP=OLD
>   |   // DD  DSN=SYS1.MACLIB,DISP=OLD
>   |   // DD  DSN=SYS1.MODGEN,DISP=OLD
>
>Etc.
>
>Gee, can't understand how I could have misinterpreted THAT!  I shall 
proceed to jigger the SYSLIB, now and in the future.  Thanks to all for the 
assistance!
>

You should be using DDDEFs for all your allocations, not JCL.
The SYSLIB concatenation refers to other DDDEFs.

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: List of standard IBM SVC numbers, please

[Rick Fochtman]

---
"Binyamin Dissen" <[EMAIL PROTECTED]> wrote in message


news:<[EMAIL PROTECTED]>...
 


On Wed, 25 Oct 2006 14:15:44 +0200 "Vernooy, C.P. - SPLXM"
<[EMAIL PROTECTED]> wrote:

:>I did this years ago and got my info from GC28-0708-1, OS/VS2 System
:>Programming Library: Debugging Handbook, Volume 1 (Second edition,
:>november 1978). When I received these 3 books, I really felt a
   


Systems
 


:>Programmer (with capitals!) and I still have them (I feel old now
   


when I
 


:>think about it).

:>Today you can find the list in z/OS V1R6.0 MVS Diagnosis: Reference,
:>GA22-7588, chapter 1.4 Chapter 4. SVC Summary. There hasn't changed
:>much: the last then was 138, now it is 146.

:>You need to look at Link(6), XCTL(7, you never know), Load(8) and
:>Attach(42), and possibly at BLDL/FIND(18) to see what modules are
   


being
 


:>searched and Loaded/Linked/Attached later with the DE= option.

Don't forget the ESR SVC.

   



109? 
Which function do you mean?


Kees.


-
Some OEM software uses ESR; YMMV.

--
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: http://mainframeweekly.blogspo­t.com/ What's Project ECL ipz?

[Rick Fochtman]

---


Yet one sector here simply assumes I've "blabbed" after an NDA
   



PKB.  
 


---
It's been my experience that professionals who are willing to execute a 
NDA are downright fanatical about living up to their word. As a matter 
of pride and integrity. Most of us also respect IP rights and privileges 
with the same vigor.


I know that when I have an oppurtunity to use code that isn't mine and 
doesn't come from a public forum, like CBTTAPE, I make every effort to 
contact the author and/or owner to seek permission first. In every case, 
because I took the time, and the courtesy, to seek permission, it was 
granted, sometime with the caveat that I not share it. WHEN IN DOUBT, 
TRY ASKING!!


--
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: I love TCPIP (not!)

[Chris Mason]

Shmuel

I'm afraid that is an irrelevant question.

However, you need have no shame in being ignorant of the TCP/IP for VM,
later TCP/IP for MVS and Communications Server IP GATEWAY statement. The
working of this statement has embedded within it the concepts of the old
Class A, B and C "networks" with, for most of its life, the idea that you
are allowed to add to these "networks" one and only one subnet
specification.

Whenever defining a "non-host" route, a "host" route being a route where a
complete IP address is given or to put it another way, the subnet mask is
necessarily 255.255.255.255, you need to go through some extraordinary
mental contortions in order to define a subnet when the subnet doesn't
happen to coincide with a "net", Class A, B or C. An interesting consequence
of the format of the GATEWAY statement route entry is that it is impossible
to define your subnet mask so that it defines a "supernet", which is logical
in a semantic sense I suppose.

In short the GATEWAY statement is completely ignorant of CIDR. If you have
been keeping up with this thread you will know that the intent of the OP was
to convert from the antediluvian GATEWAY format to the preferred current
format of the BEGINROUTES/ENDROUTES block which does follow CIDR in that it
allows a contiguous prefix of any length in order to represent a subnet
mask.

Personally I never understood why there was so much of a "song and dance"
over how routing tables were organised and propagated. Once you needed to
take account of a subnet mask, you may as well throw away the old "classes"
and always apply a mask. It is also obvious that you scan routing table
entries from the most mask bits to the least mask bits so why make a fuss
over limiting the number of sets of masks involved? The major benefit of
CIDR is the contiguity requirement which means a 0-32 integer can replace a
32-bit array in storage and transmission. There is also another benefit for
the poor "network administrator" in that he/she can grasp and control what
is going on rather more easily than if the bit mask has non-contiguous one
bits, a feature which need not faze programming logic.

Chris Mason

- Original Message - 
From: "Shmuel Metz (Seymour J.)" <[EMAIL PROTECTED]>
Newsgroups: bit.listserv.ibm-main
To: 
Sent: Wednesday, 25 October, 2006 2:49 PM
Subject: Re: I love TCPIP (not!)


> In <[EMAIL PROTECTED]>, on 10/18/2006
>at 02:00 AM, Chris Mason <[EMAIL PROTECTED]> said:
>
> >In fact your GATEWAY entry for the hypersockets routes is incorrect.
> >192 is a class C network,
>
> Is that still relevant with CIDR?
>
> -- 
>  Shmuel (Seymour J.) Metz, SysProg and JOAT
>  ISO position; see 
> We don't care. We don't have to care, we're Congress.
> (S877: The Shut up and Eat Your spam act of 2003)

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

Re: Why would Rexx Date/Time be different from ASCBEWST Date/Time?

[Thompson, Steve (SCI TW)]

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Lindy Mayfield
Sent: Wednesday, October 25, 2006 9:47 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Why would Rexx Date/Time be different from ASCBEWST Date/Time?

Would anyone have an idea as to what would cause these times to be
different?

When I run the following Rexx exec, I get this:

Time Zone.:  -4.00
Rexx Date/Time: 10/25/06 10:38:31 
Current EWST..: 10/25/2006 14:38:31.339265

But when someone in Australia runs it, he gets this:

Time Zone.:  10.00 
Rexx Date/Time: 10/25/06 08:50:16  
Current EWST..: 10/24/2006 22:50:37.305285 

The EWST time for the other computer is off by 21 seconds.  Is there
perhaps a problem in the exec or could there be some other cause for
this?


You need to pickup the CVT Leap Seconds Offset (CVTLSO). When an ETR is
used, with GPS timing, there are leap seconds applied. If you do not use
this adjustment, your timings will be off by the number of leap seconds
(if I remember correctly, the current number of leap seconds is 22)
compared to "system time stamped" messages.

Later,
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: Assembler question

[Rick Fochtman]

Anne Crabtree wrote:


Working on the IEFACTRT routine and it has the following assembler statements 
for getting return code ready to print on hasp:

CVD   R0,RWORKGET ADDRESS OF COND FIELD 
MVC   M1CC-1(L'M1CC+1),=X'402120202020' MOVE IN EDIT MASK   
EDM1CC-1(L'M1CC+1),RWORK+5 CONVERT RET CODE TO CHAR 


However, I want the return code to print as hexidecimal instead of decimal.  I 
tried the following after these prior 3 statements:

NCM1CC+1(4),=4X'0F'   
TRM1CC+1(4),=C'0123456789ABCDEF'  


(I don't understand exactly how this works but it is how it is coded in our old 
exit which used the SMF type 4 records).

Why is it not translating the decimal to hexadecimal???


---
Anne, do this:
(Assume R0 contains X'010C'  (268, in decimal); each work area I use 
is followed by 1X'00' padding.


ST  R0,RWORK   rwork now contains 
X'010C'

UNPK  DWK(5),RWORK+2(3)   DWK now contains X'F0F1F0FC00'
 NCDWK(4),=X'0F0F0F0F' DWK now contains X'0001000C00'
TR  DWK(4),=C'0123456789ABCDEF' DWK now contains X'F0F1F0C300'
MVC  M1CC+1(4),DWK M1CC now contains X'??F0F1F0C3'

What messed you up was that first instruction: CVD (Convert to Decimal). 
Be sure to BLANK the M1CC field; remember that you're moving 4 bytes 
into a 5-byte field.


--
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: REFR -- Real Intent v. Actual Use?

[Robert Wright]

Steve Thompson wrote on 10/25/2006 10:44:18 AM:

> REFR as an attribute, does this also imply that the code is
> self-relocating so that if the code is reloaded at a different place, it
> is still able to continue execution (of the task in flight)? So PRE DAT
> days, this would be an overlay type program, right?

REFR was intended to let the system know that it could re-fetch a module in
circumstances such as storage going bad or overlays being detected that
might impact the module.  As things like the ability to load from DCBs that
had been opened temporarily became prevalent, it became less practical, and
storage was becoming more reliable in the same time frame.  It's no longer
supported but the attribute has been retained.

Bob Wright - MVS Service Aids
--
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

Why would Rexx Date/Time be different from ASCBEWST Date/Time?

[Lindy Mayfield]

Would anyone have an idea as to what would cause these times to be different?

When I run the following Rexx exec, I get this:

Time Zone.:  -4.00
Rexx Date/Time: 10/25/06 10:38:31 
Current EWST..: 10/25/2006 14:38:31.339265

But when someone in Australia runs it, he gets this:

Time Zone.:  10.00 
Rexx Date/Time: 10/25/06 08:50:16  
Current EWST..: 10/24/2006 22:50:37.305285 

The EWST time for the other computer is off by 21 seconds.  Is there perhaps a 
problem in the exec or could there be some other cause for this?

The Rexx used follows.

Kind regards,
Lindy


/*  Rexx */ 
Trace Off   
numeric digits 20   
CVT = c2d(storage(10,4))  /* psa+10 -> cvt */   
cvttz = storage(d2x(CVT+304),4)   /* cvt+130 -> CVTTZ */
chkbyte= substr(cvttz,1,1)  
If bitand(chkbyte,'80'x) = '80'x
  then cvttz  = c2d(cvttz,4)
  else cvttz  = c2d(cvttz)  
cvttz  = cvttz * 1.048576 / 3600
cvttz  = format(cvttz,3,2)  
date=DATE(U)
time=TIME() 
MYASCB   = c2d(storage(d2x(548),4))/* PSA+224 -> psaaold */ 
CUREWST  = c2x(storage(d2x(MYASCB+72),8))  /* ascb+48 -> ewst */ 
CUREWSTD = c2d(storage(d2x(MYASCB+72),4))  /* ascb+48 -> ewst */ 
CUREWSTT = Copies(0,26)  /* force result length=26 */   
TOD_val = X2c(CUREWST)  
Address linkpgm "BLSUXTOD TOD_val CUREWSTT" 
Say 'Time Zone.:' CVTTZ 
Say 'Rexx Date/Time:' date time 
Say 'Current EWST..:' CUREWSTT  
Exit 0

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

REFR -- Real Intent v. Actual Use?

[Thompson, Steve (SCI TW)]

I thought I'd get away from the original topic title.

 

REFR as an attribute, does this also imply that the code is
self-relocating so that if the code is reloaded at a different place, it
is still able to continue execution (of the task in flight)? So PRE DAT
days, this would be an overlay type program, right?

 

But in DAT days where everything is V=V, just what is the purpose of
REFR? What does it really accomplish over RENT

 

I ask this because in reading the various postings, and IBM's stuff, I'm
getting a little lost.

 

Later,

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: List of standard IBM SVC numbers, please

[Vernooy, C.P. - SPLXM]

"Binyamin Dissen" <[EMAIL PROTECTED]> wrote in message
news:<[EMAIL PROTECTED]>...
> On Wed, 25 Oct 2006 15:11:22 +0200 "Vernooy, C.P. - SPLXM"
> <[EMAIL PROTECTED]> wrote:
> 
> :>"Binyamin Dissen" <[EMAIL PROTECTED]> wrote in message
> :>news:<[EMAIL PROTECTED]>...
> :>> On Wed, 25 Oct 2006 14:15:44 +0200 "Vernooy, C.P. - SPLXM"
> :>> <[EMAIL PROTECTED]> wrote:
>  
> :>> :>I did this years ago and got my info from GC28-0708-1, OS/VS2
System
> :>> :>Programming Library: Debugging Handbook, Volume 1 (Second
edition,
> :>> :>november 1978). When I received these 3 books, I really felt a
> :>Systems
> :>> :>Programmer (with capitals!) and I still have them (I feel old
now
> :>when I
> :>> :>think about it).
>  
> :>> :>Today you can find the list in z/OS V1R6.0 MVS Diagnosis:
Reference,
> :>> :>GA22-7588, chapter 1.4 Chapter 4. SVC Summary. There hasn't
changed
> :>> :>much: the last then was 138, now it is 146.
>  
> :>> :>You need to look at Link(6), XCTL(7, you never know), Load(8)
and
> :>> :>Attach(42), and possibly at BLDL/FIND(18) to see what modules
are
> :>being
> :>> :>searched and Loaded/Linked/Attached later with the DE= option.
>  
> :>> Don't forget the ESR SVC.
> 
> :>109? 
> :>Which function do you mean?
> 
> That isn't the only ESR.
> 
> Look at 122.
> 
> --

You're right, something changed since 1978 .

Kees.


**
For information, services and offers, please visit our web site: 
http://www.klm.com. This e-mail and any attachment may contain confidential and 
privileged material intended for the addressee only. If you are not the 
addressee, you are notified that no part of the e-mail or any attachment may be 
disclosed, copied or distributed, and that any other action related to this 
e-mail or attachment is strictly prohibited, and may be unlawful. If you have 
received this e-mail by error, please notify the sender immediately by return 
e-mail, and delete this message. Koninklijke Luchtvaart Maatschappij NV (KLM), 
its subsidiaries and/or its employees shall not be liable for the incorrect or 
incomplete transmission of this e-mail or any attachments, nor responsible for 
any delay in receipt.
Koninklijke Luchtvaart Maatschappij N.V. (also known as KLM Royal Dutch 
Airlines) is registered in Amstelveen, The Netherlands, with registered number 
33014286 
**


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

Re: Is the teaching of non-reentrant HLASM coding practices ever defensible?

[Shmuel Metz (Seymour J.)]

In <[EMAIL PROTECTED]>, on 10/22/2006
   at 08:31 PM, "Jeffrey D. Smith" <[EMAIL PROTECTED]> said:

>No, that's reentrant.

RYFM.

>Refreshable means the program does not
>modify itself *ever*. 

No. It means that the program produces correct results even if
refreshed. It can modify itself as long as losing the modifications
doesn't cause incorrect results.

A program is reentrant if it produces correct results when multiple
invocations run concurrently. A R/O program can fail to be reentrant,
and a reentrant program can modify itself. It can even modify itself
without serialization if it does not subsequently rely on the results
of the modification.

>No, reentrant means what I wrote. 

RYFM.

>Serialization has nothing
>to do with it, unless the program is self-modifying (which is also
>what I wrote).

That's what you wrote, but it's wrong.

 L R0,CVTUSER
 BCTR  R0,0
 STR0,CVTUSER

Refreshable, in fact R/O, but not reentrant; it needs serialization.

"It's not what you don't know that's the killer; it's what you know
that isn't so."
 
-- 
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 ISO position; see  
We don't care. We don't have to care, we're Congress.
(S877: The Shut up and Eat Your spam act of 2003)

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

Re: Is the teaching of non-reentrant HLASM coding practices ever defensible?

[Shmuel Metz (Seymour J.)]

In <[EMAIL PROTECTED]>, on 10/22/2006
   at 12:27 PM, Paul Gilmartin <[EMAIL PROTECTED]> said:

>In fact, the way Binder can shuffle CSECTS (e.g. as when invoked by
>SMP/E) there's little certainty that the primary CSECT will be
>first.

Worse, with PDSE there's little certainty that the module will be in a
single extent. Split RMODE wasn't an issue for PDS, and hardly anybody
used SCTR when it was supported..
 
-- 
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 ISO position; see  
We don't care. We don't have to care, we're Congress.
(S877: The Shut up and Eat Your spam act of 2003)

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

Re: Is the teaching of non-reentrant HLASM coding practices ever defensible?

[Shmuel Metz (Seymour J.)]

In <[EMAIL PROTECTED]>, on 10/22/2006
   at 12:16 PM, Paul Gilmartin <[EMAIL PROTECTED]> said:

>My understanding is that the design motivation was to be able to
>re-fetch a REFR load module in case of detected physical damage to a
>page.

Correct, and that is implicit in the definition of reshreshable, which
is weaker than R/O. However, as I recall the MCH would only refresh
code in a transient area and specified csects in the nucleus.

>Either lost in a redesign,

When there are no transient areas, you don't need to refresh the code
in them. That redesign was in SVS. When pageable nucleus csects came
along, that eliminated the need for the other piece of the design. Had
the original design of the MCH included refreshing arbitrary load
modules linked REFR then I'm sure that would have been retained.

-- 
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 ISO position; see  
We don't care. We don't have to care, we're Congress.
(S877: The Shut up and Eat Your spam act of 2003)

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

Re: I love TCPIP (not!)

[Shmuel Metz (Seymour J.)]

In <[EMAIL PROTECTED]>, on 10/18/2006
   at 02:00 AM, Chris Mason <[EMAIL PROTECTED]> said:

>In fact your GATEWAY entry for the hypersockets routes is incorrect.
>192 is a class C network,

Is that still relevant with CIDR?
 
-- 
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 ISO position; see  
We don't care. We don't have to care, we're Congress.
(S877: The Shut up and Eat Your spam act of 2003)

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

Re: http://mainframeweekly.blogspo­t.com/ What's Project ECL ipz?

[Shmuel Metz (Seymour J.)]

In <[EMAIL PROTECTED]>, on 10/24/2006
   at 08:18 PM, Phil Payne <[EMAIL PROTECTED]> said:

>There are people here who rabidly uphold IP rights, and at the same
>time lose no opportunity to diss me at every opportunity.

There's no conflict; dissing you does not violate your IP rights.

>Yet one sector here simply assumes I've "blabbed" after an NDA

PKB. 
 
-- 
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 ISO position; see  
We don't care. We don't have to care, we're Congress.
(S877: The Shut up and Eat Your spam act of 2003)

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

Re: List of standard IBM SVC numbers, please

[Binyamin Dissen]

On Wed, 25 Oct 2006 15:11:22 +0200 "Vernooy, C.P. - SPLXM"
<[EMAIL PROTECTED]> wrote:

:>"Binyamin Dissen" <[EMAIL PROTECTED]> wrote in message
:>news:<[EMAIL PROTECTED]>...
:>> On Wed, 25 Oct 2006 14:15:44 +0200 "Vernooy, C.P. - SPLXM"
:>> <[EMAIL PROTECTED]> wrote:
 
:>> :>I did this years ago and got my info from GC28-0708-1, OS/VS2 System
:>> :>Programming Library: Debugging Handbook, Volume 1 (Second edition,
:>> :>november 1978). When I received these 3 books, I really felt a
:>Systems
:>> :>Programmer (with capitals!) and I still have them (I feel old now
:>when I
:>> :>think about it).
 
:>> :>Today you can find the list in z/OS V1R6.0 MVS Diagnosis: Reference,
:>> :>GA22-7588, chapter 1.4 Chapter 4. SVC Summary. There hasn't changed
:>> :>much: the last then was 138, now it is 146.
 
:>> :>You need to look at Link(6), XCTL(7, you never know), Load(8) and
:>> :>Attach(42), and possibly at BLDL/FIND(18) to see what modules are
:>being
:>> :>searched and Loaded/Linked/Attached later with the DE= option.
 
:>> Don't forget the ESR SVC.

:>109? 
:>Which function do you mean?

That isn't the only ESR.

Look at 122.

--
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: PPRC status display & reporting

[Itschak Mugzach]

Look at this manual: z/OS DFSMSdfp Advanced Services, Document Number
SC26-7400-01. You can find it book manager under shelve DGT

Itschak 
-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of John Ticic
Sent: Wednesday, October 25, 2006 3:25 PM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: PPRC status display & reporting


-- snip --
I would like to get documentation about the info returned by the
ANTRQST macro.

I am using the "ANTRQST ILK=PPRC,REQUEST=PQUERY,..." macro instruction,
and have tried both the FORMAT=LONG and the FORMAT=PQMAP parameter. In
both cases I have had to guess the layout and/or the meaning of the
returned information.

My source of information so far has been the "z/OS DFSMS Advanced Copy
Services" manual. We are running z/OS 1.6.

Is there any documentation with detailed information about the info
returned by ANTRQST?
-- snip --

The unformatted output is mapped by the ANTPQMAP macro in sys1.maclib.

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

--
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: Macro Updates Not Going to SMPMTS

[Miller, Pat]

>From the SMP/E User's Guide:
The SMPMTS data set contains macros from SYSMODs that are applied. Therefore, 
the proper SYSLIB concatenation for APPLY processing includes the SMPMTS data 
set, as is shown in Figure 35. 

 
   |
   |   //* -- Include SMPMTS first  
   |   //* -- followed by all macro target libraries
   |   //* -- followed by all distribution  
   |   //*libraries 
   |   //SYSLIB   DD  DSN=SYS1.SMPMTS,DISP=OLD  
   |   // DD  DSN=SYS1.MACLIB,DISP=OLD  
   |   // DD  DSN=SYS1.MODGEN,DISP=OLD  

Etc.

Gee, can't understand how I could have misinterpreted THAT!  I shall proceed to 
jigger the SYSLIB, now and in the future.  Thanks to all for the assistance!


 -Original Message-
From:   IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED]  On Behalf Of 
Big Iron
Sent:   Wednesday, October 25, 2006 3:59 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject:Re: Macro Updates Not Going to SMPMTS

IIRC, updated macros for SDSF are stored directly in SISFSRC, not SMPMTS.
If you used a DD statement in JCL for SISFSRC instead of updating the DDDEF, 
then the SMP/E DDDEF is still used for the SYSLIB concatenation, which would 
mean that the wrong versions of the macros would then be used in
assemblies.

Bill

On Tue, 24 Oct 2006 15:56:15 -0700, Gerhard Adam <[EMAIL PROTECTED]> wrote:

>>UA20901 is failing because it's pulling the macros via the SYSLIB
concatenation from the >original (i.e. not the cloned) target library.  By
my recollection and according to the >SMP/E User's Guide, updated macros
should be pulled from the SMPMTS, which is the >first library in the SYSLIB
concatenation.
>
>That's not entirely true.  Updated macros will be pulled from SMPPTS only
if they do not have a target library to reside in.  In all other cases, the
appropriate target library would be updated.
>
>If the wrong library is being referenced in the SYSLIB concatenantion, then
you might want to ensure that the macro library DDDEFs are pointing to the
appropriate target libraries to ensure that the most recent updates are
being picked up.  The fact that the SMPMTS is empty suggests that you don't
have any macros that are distribution library only.
>
>Adam
>

--
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: PPRC status display & reporting

[John Ticic]

-- snip --
I would like to get documentation about the info returned by the
ANTRQST macro.

I am using the "ANTRQST ILK=PPRC,REQUEST=PQUERY,..." macro instruction,
and have tried both the FORMAT=LONG and the FORMAT=PQMAP parameter. In
both cases I have had to guess the layout and/or the meaning of the
returned information.

My source of information so far has been the "z/OS DFSMS Advanced Copy
Services" manual. We are running z/OS 1.6.

Is there any documentation with detailed information about the info
returned by ANTRQST?
-- snip --

The unformatted output is mapped by the ANTPQMAP macro in sys1.maclib.

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: How long does Flashcopy really take?

[(IBM Mainframe Discussion List)]

 
 
In a message dated 10/24/2006 11:39:25 P.M. Central Daylight Time,  
[EMAIL PROTECTED] writes:

>Need both:
>(1) a way to query the current FC state of  specific drives;
>(2) a system event that can be seen by system  automation or installation 
>exits upon completion of an individual  flash copy.
(1)A TSO command can be executed to retrieve and display the current FC  
state of a drive.  I believe there is also an operator  command.
(2) When the volume copy is complete, an unsolicted state change  interrupt 
is sent by the control unit to all attached systems.  Software  in MVS (AOM - 
the Asynchronous Operations Manager) recognizes the state change  interrupt, 
immediately queries the device to get its new full status, and  updates 
appropriate MVS control blocks where the status is stored (at least  the DCE - 
DASD 
Device Class Extension).  A system event could be  generated by this same 
software for the Event Notification Facility to  intercept.
 
Sounds like a good SHARE requirement to me.
 
Bill  Fairchild

"Facts are the enemy of truth." [Don Quixote in Man of La  Mancha]




--
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: List of standard IBM SVC numbers, please

[Vernooy, C.P. - SPLXM]

"Binyamin Dissen" <[EMAIL PROTECTED]> wrote in message
news:<[EMAIL PROTECTED]>...
> On Wed, 25 Oct 2006 14:15:44 +0200 "Vernooy, C.P. - SPLXM"
> <[EMAIL PROTECTED]> wrote:
> 
> :>I did this years ago and got my info from GC28-0708-1, OS/VS2 System
> :>Programming Library: Debugging Handbook, Volume 1 (Second edition,
> :>november 1978). When I received these 3 books, I really felt a
Systems
> :>Programmer (with capitals!) and I still have them (I feel old now
when I
> :>think about it).
> 
> :>Today you can find the list in z/OS V1R6.0 MVS Diagnosis: Reference,
> :>GA22-7588, chapter 1.4 Chapter 4. SVC Summary. There hasn't changed
> :>much: the last then was 138, now it is 146.
> 
> :>You need to look at Link(6), XCTL(7, you never know), Load(8) and
> :>Attach(42), and possibly at BLDL/FIND(18) to see what modules are
being
> :>searched and Loaded/Linked/Attached later with the DE= option.
> 
> Don't forget the ESR SVC.
> 

109? 
Which function do you mean?

Kees.


**
For information, services and offers, please visit our web site: 
http://www.klm.com. This e-mail and any attachment may contain confidential and 
privileged material intended for the addressee only. If you are not the 
addressee, you are notified that no part of the e-mail or any attachment may be 
disclosed, copied or distributed, and that any other action related to this 
e-mail or attachment is strictly prohibited, and may be unlawful. If you have 
received this e-mail by error, please notify the sender immediately by return 
e-mail, and delete this message. Koninklijke Luchtvaart Maatschappij NV (KLM), 
its subsidiaries and/or its employees shall not be liable for the incorrect or 
incomplete transmission of this e-mail or any attachments, nor responsible for 
any delay in receipt.
Koninklijke Luchtvaart Maatschappij N.V. (also known as KLM Royal Dutch 
Airlines) is registered in Amstelveen, The Netherlands, with registered number 
33014286 
**


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

Re: Assembler question

[(IBM Mainframe Discussion List)]

 
 
In a message dated 10/25/2006 7:58:39 A.M. Central Daylight Time,  
[EMAIL PROTECTED] writes:

>Changed it around using your tricky TR and it works.  Thanks  so much!


The tricky TR will not work if the program containing it is so small  that 
the tricky address *-240 does not exist.  Then you would need to use  your 
original NC and TR.
 
Bill  Fairchild

"Facts are the enemy of truth." [Don Quixote in Man of La  Mancha]

--
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: Assembler question

[Anne Crabtree]

Changed it around using your tricky TR and it works.  Thanks so much!

A

>>> [EMAIL PROTECTED] 10/24/2006 4:48 PM >>>
 
 
In a message dated 10/24/2006 3:12:07 P.M. Central Daylight Time,  
[EMAIL PROTECTED] writes:
 
>Working on the IEFACTRT routine and it has the following assembler  
statements for getting >return code ready to print on hasp:
>CVD   R0,RWORKGET  ADDRESS OF COND FIELD
Assume R0 contains the return code of X'008B'.
After the CVD, RWORK (I assume it is 8 bytes long) contains  
X'139C', which is the decimal equivalent of hex 8B.
 
>MVC   M1CC-1(L'M1CC+1),=X'402120202020' MOVE IN EDIT  MASK

I assume that M1CC has a length attribute of 5.  After the MVC,  M1CC-1 will 
contain X'402120202020'.  

>EDM1CC-1(L'M1CC+1),RWORK+5 CONVERT RET CODE TO CHAR
After this instruction, M1CC contains X'4040F0F1F3F9', which is the EBCDIC  
(printable) equivalent of decimal 139.

>However, I want the return  code to print as hexidecimal instead of decimal. 
 I tried the >following  after these prior 3 statements:
>NCM1CC+1(4),=4X'0F'
After the NC, M1CC+1 contains X'00010309'.  The NC changes the  high-order 
half of each of the four bytes to a X'0' and leaves the low-order  half alone.
 
>TRM1CC+1(4),=C'0123456789ABCDEF'
After the TR, M1CC will contain X'00010309'.  This is not EBCDIC, not  
printable, not decimal, not hexadecimal, but instead a  quasi-decimal.

>Why is it not translating the decimal to  hexadecimal???
In order to translate decimal to hex, you have to do the inverse of the  CVD. 
 I prefer to do it with the CVB instruction.  You had hex in R0  to begin 
with, then you converted it to decimal, then you mangled the decimal  rather 
than 
converting it back into hex.
 
You want printable hex, so replace the CVD, MVC, ED, NC, and TR with the  
following:
 ST R0,FULLWORD
 UNPK   M1CC+1(9),FULLWORD(5)
 TR  M1CC+1(8),=C'0123456789ABCDEF'-X'F0'
After this, M1CC will contain X'F0F0F0F0F0F0F8C2', which will print as  
008B.
 
Your NC and TR will work, but only if the original hex number is first  
unpacked into twice as many bytes.  If you use the tricky literal I used,  you 
avoid needing to do the NC instruction.  After the UNPK, you can do  either 
your 
original NC and TR or my tricky TR.


Bill  Fairchild

"Facts are the enemy of truth." [Don Quixote in Man of La  Mancha]


--
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: List of standard IBM SVC numbers, please

[Binyamin Dissen]

On Wed, 25 Oct 2006 14:15:44 +0200 "Vernooy, C.P. - SPLXM"
<[EMAIL PROTECTED]> wrote:

:>I did this years ago and got my info from GC28-0708-1, OS/VS2 System
:>Programming Library: Debugging Handbook, Volume 1 (Second edition,
:>november 1978). When I received these 3 books, I really felt a Systems
:>Programmer (with capitals!) and I still have them (I feel old now when I
:>think about it).

:>Today you can find the list in z/OS V1R6.0 MVS Diagnosis: Reference,
:>GA22-7588, chapter 1.4 Chapter 4. SVC Summary. There hasn't changed
:>much: the last then was 138, now it is 146.

:>You need to look at Link(6), XCTL(7, you never know), Load(8) and
:>Attach(42), and possibly at BLDL/FIND(18) to see what modules are being
:>searched and Loaded/Linked/Attached later with the DE= option.

Don't forget the ESR SVC.

--
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: Anyway to Map PC Disk to Mainframe (Unix Style)

[Paul Gilmartin]

In a recent note, R.S. said:

> Date: Wed, 25 Oct 2006 08:32:39 +0200
> >
> > ... Assuming always that one has a browser that can view a
> > portion of a file without loading the whole thing into local
> > storage.  Such browsers are a vanishing species.  More practical
> > to run the browser on the file server and set DISPLAY to the
> > desktop display server.
> 
> I have no details what type of data need to be shared, what application
> will be used to process the data. However *there are* such browsers,
> like "Norton Commander F3" or ISPF Browse to name a few. In fact it's
> 
I don't know Commander.  ISPF Browse has severe limits.  What happens
the first time you do a "DOWN MAX?"

-- gil
-- 
StorageTek
INFORMATION made POWERFUL

--
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/LE Tuning Advice sought

[Chase, John]

> -Original Message-
> From: IBM Mainframe Discussion List On Behalf Of Tom Grieve
> Sent: Wednesday, October 25, 2006 4:04 AM
> To: IBM-MAIN@BAMA.UA.EDU
> Subject: Re: Java/LE Tuning Advice sought
> 
> I still think it's probably a downstack size problem. Try 
> playing with the size a bit -
> 
> STACK(128K,128K,ANY,KEEP,256K,526K)
> 
> or -
> 
> STACK(128K,128K,ANY,KEEP,1024K,1024K)
> 
> If the last one doesn't make a difference, then I'm completely wrong!

I took a console dump of the a/s and found what looks like the "main
TCB" (it had a little less than 1.5GB of storage associated with it)
with VSMDATA 'NOG SUMM'.  Examined the LEDATA for that TCB and saw only
a single stack segment (above the line), but 158 heap segments (also
above the line).  According to the LE doc, the "trailing" size parms are
for 24-bit (below the line) allocations.

Oh, I had previously tried HEAP(8M,2M,ANY,KEEP) but the "benchmark" job
took 1.5 HOURS with that setting.

It also seemed odd that the a/s startup was 2 minutes faster with 128K
specified in all four parms, but the "benchmark" job ran 2 minutes
slower.  I guess "TANSTAAFL" applies here, too.  :-|

Now, if I could just get something readable from -verbosegc  I don't
know what charset it's using or how/where to change it, but it's neither
ASCII nor EBCDIC.  Output looks compressed and/or encrypted.

-jc-

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

Re: List of standard IBM SVC numbers, please

[Vernooy, C.P. - SPLXM]

Jan,

I did this years ago and got my info from GC28-0708-1, OS/VS2 System
Programming Library: Debugging Handbook, Volume 1 (Second edition,
november 1978). When I received these 3 books, I really felt a Systems
Programmer (with capitals!) and I still have them (I feel old now when I
think about it).

Today you can find the list in z/OS V1R6.0 MVS Diagnosis: Reference,
GA22-7588, chapter 1.4 Chapter 4. SVC Summary. There hasn't changed
much: the last then was 138, now it is 146.

You need to look at Link(6), XCTL(7, you never know), Load(8) and
Attach(42), and possibly at BLDL/FIND(18) to see what modules are being
searched and Loaded/Linked/Attached later with the DE= option.

Kees.

""Jan MOEYERSONS"" <[EMAIL PROTECTED]> wrote in message
news:<[EMAIL PROTECTED]>...
> Dear listers,
> 
> I am convinced there is documentation from IBM that contains a list of

> standard SVC numbers (the range below 200, that is) indicating their 
> purpose (and maybe even the corresponding assembler macro). Only I
can't 
> find it. 
> 
> Any pointer, please?
> 
> This is not a 'homework' type of question. In fact, I need to set up a

> trace for capturing all LOADs and LINKs a given program is doing and
just 
> to be on the safe side, I wanted to verify if there aren't any other
SVCs 
> that could be used to bring a load module into central storage.
> 
> Cheers,
> 
> Jantje.
> 
> --
> 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 information, services and offers, please visit our web site: 
http://www.klm.com. This e-mail and any attachment may contain confidential and 
privileged material intended for the addressee only. If you are not the 
addressee, you are notified that no part of the e-mail or any attachment may be 
disclosed, copied or distributed, and that any other action related to this 
e-mail or attachment is strictly prohibited, and may be unlawful. If you have 
received this e-mail by error, please notify the sender immediately by return 
e-mail, and delete this message. Koninklijke Luchtvaart Maatschappij NV (KLM), 
its subsidiaries and/or its employees shall not be liable for the incorrect or 
incomplete transmission of this e-mail or any attachments, nor responsible for 
any delay in receipt.
Koninklijke Luchtvaart Maatschappij N.V. (also known as KLM Royal Dutch 
Airlines) is registered in Amstelveen, The Netherlands, with registered number 
33014286 
**


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

Re: List of standard IBM SVC numbers, please

[Binyamin Dissen]

On Wed, 25 Oct 2006 06:27:58 -0500 Jan MOEYERSONS <[EMAIL PROTECTED]>
wrote:

:>I am convinced there is documentation from IBM that contains a list of 
:>standard SVC numbers (the range below 200, that is) indicating their 
:>purpose (and maybe even the corresponding assembler macro). Only I can't 
:>find it. 

:>Any pointer, please?

Diagnosis: Reference

--
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: System down after actvating Lpar.

[R.S.]

"SUBSCRIBE IBM-MAIN Anonymous" wrote:


L.,s.,
We recently had an outage of an lpar in a sysplex.
IBM told us our number of ICP and IQD channels was to high, they use the

formula: number of physical CP+ICF+ZIIP+ZAAP-1= maximum numer of virtual

internal channels.
The redbooks do not write about including IQD channels in this formula.
system Z990/b16, 8 CP's, 1 ICF.


IMHO this is not true. I used IC channels on machine with less CPs than 
# OF IC's.



--
Radoslaw Skorupka
Lodz, Poland

--
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: PPRC status display & reporting

[Rafa Pereira]

On Thu, 5 Oct 2006 15:21:17 +, Jan Vanbrabant
<[EMAIL PROTECTED]> wrote:

>Forgot to include the IBM recommendation in my previous call:
>
>issues ANTRQST REQUEST=.. (the documented and supported way).>
>
>Jan
>

Hi all,

I would like to get documentation about the info returned by the
ANTRQST macro.

I am using the "ANTRQST ILK=PPRC,REQUEST=PQUERY,..." macro instruction,
and have tried both the FORMAT=LONG and the FORMAT=PQMAP parameter. In
both cases I have had to guess the layout and/or the meaning of the
returned information.

My source of information so far has been the "z/OS DFSMS Advanced Copy
Services" manual. We are running z/OS 1.6.

Is there any documentation with detailed information about the info
returned by ANTRQST?

Thanks in advance,

Rafa.

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

List of standard IBM SVC numbers, please

[Jan MOEYERSONS]

Dear listers,

I am convinced there is documentation from IBM that contains a list of 
standard SVC numbers (the range below 200, that is) indicating their 
purpose (and maybe even the corresponding assembler macro). Only I can't 
find it. 

Any pointer, please?

This is not a 'homework' type of question. In fact, I need to set up a 
trace for capturing all LOADs and LINKs a given program is doing and just 
to be on the safe side, I wanted to verify if there aren't any other SVCs 
that could be used to bring a load module into central storage.

Cheers,

Jantje.

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

DFSFLGX0 IMS exit question.

[Arie Kremer]

I'd like to know what happens if the exit returns R15 <> 0 or issues ABEND.
Our exit writes to MVS Logger. When the write abends (logger is full), the
exit disables itself. There is a customer that wants to prevent any
relevant transaction to continue. His CDC process is critical enough to
abend the entire address space.


Thank you

Arie Kremer

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