A personal choice here, but I've also found it very helpful over the years
to include a WRITE statement for every exit:
/*--------------------------------------------------------------------*
/* ALLOW STORAGE ADMINISTRATORS AND SYSTEM PROGRAMMERS TO *
/* SELECT THE STORAGE CLASS OF CHOICE. *
/* *
/* LOGIC SEQUENCE - 17 *
/*--------------------------------------------------------------------*
WHEN (&USER = &SPECUSR && &STORCLAS ¬= '' && &DSN ¬= &PROD_DSN)
DO
SET &STORCLAS = &STORCLAS
WRITE 'SC00010 ' &DSN
EXIT
END
It can be very helpful in debugging an issue when applications and
managment are breathing down your neck. As long as you use some unique
hook identifying the exit point, the text isn't so critical. The
variables available are many & should be chosen with some thought as to
what you'll need to debug.
**************************************************************************************
This e-mail message and all attachments transmitted with it may contain legally
privileged and/or confidential information intended solely for the use of the
addressee(s). If the reader of this message is not the intended recipient, you
are hereby notified that any reading, dissemination, distribution, copying,
forwarding or other use of this message or its attachments is strictly
prohibited. If you have received this message in error, please notify the
sender immediately and delete this message and all copies and backups thereof.
Thank you.
**************************************************************************************
----------------------------------------------------------------------
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
