#2 Short program to invoke CALLRTM for your own address space. ASID=0
is the default.
IEF402I INIT FAILED IN ADDRESS SPACE 004E
SYSTEM ABEND SBAD
IEF402I DSS06ZSD FAILED IN ADDRESS SPACE 004E
$HASP310 DSS06ZSD TERMINATED AT END OF MEMORY
SYSTEM ABEND SBAD
$HASP310 INIT TERMINATED AT END OF MEMORY
Best Regards, Sam Knutson (GEICO)
*
* KILL MYSELF IN A SPECTACULAR FASHION
*
PUNCH ' SETCODE AC(1)' MUST BE APF FOR CALLRTM
CALLRTM CSECT
CALLRTM AMODE 31
CALLRTM RMODE ANY
BAKR R14,R0
LR R12,R15
USING CALLRTM,R12
*
MODESET KEY=ZERO,MODE=SUP CALLRTM REQ KEY 0 & SUPV STATE
*
* CALLRTM MACRO INVOCATION
* A 72 BYTE SAVE AREA IS REQUIRED AND MUST BE POINTED TO REGISTER 13
*
LA 13,CALLRTM_SAVEAREA ASID OPTION REQUIRES SAVE AREA IN R13
CALLRTM TYPE=MEMTERM,COMPCOD=X'BAD',STEP=NO
*
EXIT DS 0Y
PR ,
YREGS
CALLRTM_SAVEAREA DC 18F'0'
LTORG , LITERAL POOL GOES HERE
CVT DSECT=YES
IHAPSA
END
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Bob Stark
Sent: Friday, November 02, 2007 11:20 AM
To: [email protected]
Subject: How to force initiator failure
I am refurbishing some console automation that restarts an initiator if
it fails.
Two questions:
1. Is there any new facility that does this automatically for a JES2-
managed initiator? (WLM-managed initiators handle themselves)
2. Anyone know a good way to get an initiator to abend and terminate?
(for testing) I tried running a simple program which gradually
getmained all the user storage in a step with REGION=0M, but I got an
aux storage shortage before I actually got all the memory. Perhaps I
need to add page datasets, or write a more complex authorized program
so I can get other subpools and be non-swappable. I'm pretty sure
someone has plowed this ground before.
====================
This email/fax message is for the sole use of the intended
recipient(s) and may contain confidential and privileged information.
Any unauthorized review, use, disclosure or distribution of this
email/fax is prohibited. If you are not the intended recipient, please
destroy all paper and electronic copies of the original message.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
