Hi Daniel (Dan?) I have a program that gets some of that info from control blocks, courtesy of Gil Saint-Flour. Here is the info block at the beginning, along with a website to get you started: * THE NAME OF THE CONTROL-BLOCK IS INDICATED IN POS 1-6 OF * * THE PROCEDURE DIVISION LINES. * * THE LAYOUT OF THE MVS CONTROL BLOCKS IS DESCRIBED IN THE * * MVS DATA AREAS MANUALS, WHICH CAN BE FOUND ON ANY MVS OR * * OS/390 CD COLLECTION OR VIEWED ON-LINE BY GOING TO: * * HTTP://WWW.S390.IBM.COM/BOOKMGR-CGI/BOOKMGR.CMD/LIBRARY<http://www.s390.ibm.com/BOOKMGR-CGI/BOOKMGR.CMD/LIBRARY>* * AND SEARCHING FOR: * * MVS DATA AREAS * * * * ORIGIN = HTTP://GSF-SOFT.COM/FREEWARE/ <http://gsf-soft.com/FREEWARE/> *
Unfortunately, my program does not return the LPAR info, but I assume it could easily be tracked down. Best of luck to you ! *don* On Wed, Jun 22, 2011 at 1:36 PM, Daniel Rose <[email protected]> wrote: > I had a COBOL programmer ask me how they could get the LPAR name, SYSNAME, > or SMFSID from a COBOL program. I could not find a LE Function that would > do that. So, a co-worker located a sample program that chases controls to > get that information. > > Does anybody know of any LE Functions or a cleaner way to do this. > > BTW, the programmer does not want to add a SORT step before the COBOL > program nor do they want to change the execution JCL. Hence the > restriction > of only obtaining this from inside the COBOL program. > > ---------------------------------------------------------------------- > 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
