Thanks Michael, I tried your routine here and it did exactly what I needed, so thank you.
Peter -----Original Message----- From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> On Behalf Of Schmitt, Michael Sent: Tuesday, May 2, 2023 3:06 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: COBOL question: How to dynamically get the name of the routine that called you I am attempting to post the assembler program here for reference, we'll see if the listserv accepts it without mangling. To use, call it passing the area you want it to return the calling program name in. The call_level_e equate controls how many levels up it goes. <Snipped> This message and any attachments are intended only for the use of the addressee and may contain information that is privileged and confidential. If the reader of the message is not the intended recipient or an authorized representative of the intended recipient, you are hereby notified that any dissemination of this communication is strictly prohibited. If you have received this communication in error, please notify us immediately by e-mail and delete the message and any attachments from your system. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
