Just to add... If the reason you are testing this is for VSM CHECKREGIONLOSS, that support restarts JES2 controlled initiators as well as WLM controlled.
Mark -- Mark Zelden Sr. Software and Systems Architect - z/OS Team Lead Zurich North America / Farmers Insurance Group - ZFUS G-ITO mailto:[EMAIL PROTECTED] z/OS Systems Programming expert at http://expertanswercenter.techtarget.com/ Mark's MVS Utilities: http://home.flash.net/~mzelden/mvsutil.html On Fri, 2 Nov 2007 11:46:41 -0400, Knutson, Sam <[EMAIL PROTECTED]> wrote: >#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: IBM-MAIN@BAMA.UA.EDU >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 ---------------------------------------------------------------------- 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