> -----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
