This discussion got me thinking about my systems, z/OS R4
on twin zSeries processors. Specifically, what would I 'see'
from TMON/MVS if a Job/Task/TSU were to use above-the-bar
storage?
So I copied the assembler code that Todd Burch posted,
added a IARV64 GETSTOR/DETACH requests that I copied
from an example from Section: "4.9.1 Operation" in the manual:
"z/OS MVS Programming: Assembler Services Reference, Volume 2
(IARR2V-XCTLX)", Manual Number: "SA22-7607-04".
As my luck goes ( which is usually not great ), the coding of the
example from the manual is not correct. From code from the manual:
IARV64 REQUEST=GETSTOR,SEGMENTS=NUMSEG,
ORIGIN=O,
RETCODE=LRETCODE,RSNCODE=LRSNCODE,
MF=(E,V64L)
The NUMSEG label was coded as below:
NUMSEG DC D'2'
The correct coding of the value for the NUMSEG label should be:
NUMSEG DC AD(2)
I checked, the z/OS R7 manual still has the value coded incorrectly.
The IBM'er I spoke to ( via an ETR ) indicated he would submit a
Reader's Comment Form to correct the coding error.
Glenn Miller
PS: If you execute the code from the example with the incorrect coding
of the NUMSEG label, you should receive the following abend:
System Abend Code: DC2, and REASON CODE=4A001520
---------------------------------------------------------------------------
This message (including any attachments) is confidential and may be
privileged. If you have received it by mistake please notify the sender by
return e-mail and delete this message from your system. Any unauthorised
use or dissemination of this message in whole or in part is strictly
prohibited. Please note that e-mails are susceptible to change.
ABN AMRO Bank N.V. (including its group companies) shall not be liable for
the improper or incomplete transmission of the information contained in
this communication nor for any delay in its receipt or damage to your
system. ABN AMRO Bank N.V. (or its group companies) does not guarantee that
the integrity of this communication has been maintained nor that this
communication is free of viruses, interceptions or interference.
---------------------------------------------------------------------------
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
