Ok, quick eye-ball verification from the guru's that are better ASM programmer
than I...
SMF30 RAXFLAGS is kicking out the a module for which I selectively pulled out
the DSPSERV code for allocating USERKEY SCOPE=COMMON Data space. Is it
possible that this line "DSPSERV DC A(*+4+X'80000000')" is what is setting
the storage key just prior to execution? i.e. KEY 8? I didn't create the
code, I'm just trying to understand it.
MODESET MODE=SUP SET TO SUPERVISOR STATE
L R15,DSPSERV INSURE 31 BIT MODE
BSM 0,R15 SET 31 BIT MODE
DSPSERV DC A(*+4+X'80000000')
*
DSPSERV CREATE, CREATE A DATA SPACE
STOKEN=DSPSTOKN, PUT STOKEN HERE
NAME=DSPNAME, USE THIS NAME
ORIGIN=DSPORIGN, PLACE ORIGIN ADDRESS HERE
SCOPE=COMMON, COMMON DATA SPACE
BLOCKS=(DSPBLCKS,DSPBLCKS) THIS MAX AND INITIAL
*
ST R15,RETCODE SAVE THE RETURN CODE
ST R0,REASCODE SAVE THE REASON CODE
MODESET MODE=PROB SET TO PROBLEM PROGRAM STATE
Alternatively, I know the DataSpace names that are being allocated from a D
A,stcname. Again, this is territory I don't tread into often, but is there
an easy way to determine the storage key of them?
Thanks, Dave
_________________________________________________________________
Dave Jousma
Manager Mainframe Engineering, Assistant Vice President
[email protected]
1830 East Paris, Grand Rapids, MI 49546 MD RSCB2H
p 616.653.8429
f 616.653.2717
This e-mail transmission contains information that is confidential and may be
privileged.
It is intended only for the addressee(s) named above. If you receive this
e-mail in error,
please do not read, copy or disseminate it in any manner. If you are not the
intended
recipient, any disclosure, copying, distribution or use of the contents of this
information
is prohibited. Please reply to the message immediately by informing the sender
that the
message was misdirected. After replying, please erase it from your computer
system. Your
assistance in correcting this error is appreciated.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
