Here is a shorter one for really storage constrained systems :-)
LOOPER CSECT
LOOPER RMODE ANY
LOOPER AMODE 31
BR 15
END
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Chase, John
Sent: Thursday, January 19, 2006 7:53 AM
To: [email protected]
Subject: Re: Operator Training Scenarios
> -----Original Message-----
> From: IBM Mainframe Discussion List On Behalf Of Craig Bakken
>
> We would like to develop some scenarios to help train our
> operations staff in situations were the operators need to
> diagnose a problem and take such actions as taking a
> standalone dump, partitioning an ill system out of a sysplex
> or identifying a task causing a problem (ie looping or
> holding a lock). Does anyone have some documented scenarios
> and/or any program code that may cause problems that could be
> used to train operators on a standalone system?
Well, here's a Q&D program that will just loop "for a long time":
LOOPER CSECT ,
LOOPER RMODE ANY in case you're storage-constrained :-)
USING *,15
STM 14,12,12(,3) save caller's regs
SR 2,2 zero outer loop counter
SR 3,3 zero inner loop counter
LOOP EQU *
BCT 3,LOOP iterate inner
BCT 2,LOOP iterate outer
LM 14,12,12(13) restore caller's regs
SR 15,15 set rc=0
BR 14 return to caller
END LOOPER
-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
