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