You could always either display it at beginning of job or if you can not do that due to shop standards move it from one Working storage variable to another at the beginning of the program. All of the programs I write moves the WHEN-COMPILED special register to an eyecatcher message field at the beginning of working storage which I then display on SYSOUT
Bob Lawrence DBA Boscov's Dept Stores LLc > -----Original Message----- > From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] > Behalf Of john gilmore > Sent: Tuesday, July 05, 2005 9:25 AM > To: [email protected] > Subject: Re: Loadlibraryname for a loaded module > > > Gerhard Postpischil's post includes some excellent advice for HLASM modules, > but the extension of the technique he suggests to COBOL he proposes: > > > > >For CoBOL, the change date could be added to Working Storage, for the same > >effect. > > > > is problematic when, as should be the case, OPT(FULL) is specified for the > compilation steps of jobs that add COBOL load modules or program objects to > libraries. With OPT(FULL) in effect the Enterprise compilers delete > unreferenced elements from working [static] storage. > > It is clear that some kind of mediated LOAD will meet your special needs > here, and this is as well because the very general preoblem posed in your > original post is unsolvable. > > One can hope to sit on a subset of loads in order to determine at load time > the libraries from which a load is taking place. One cannot hope to be able > to determine in general the library from which a currently resident module > was loaded retrospectively. > > John Gilmore > Ashland, MA 01721 > USA > > _________________________________________________________________ > FREE pop-up blocking with the new MSN Toolbar get it now! > http://toolbar.msn.click-url.com/go/onm00200415ave/direct/01/ > > ---------------------------------------------------------------------- > 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
