And I agree that there is a TSS way to provide this security. That requirement will be addressed. The issue is with "creative" appl programmers who think that navigating control blocks the old-fashion way sans API will always work.
So to try framing this issue a bit: Appl programmers, rightfully or not, require access to values such as LPAR name, jobid, etc, for some reason (business logic, stats, logging, etc). While we can't argue with their requirement, what we want to do is ensure that whatever information they need is obtained in a consistent manner, immune from subtle software changes, i.e. an API of some sort. Which to me reads as ASSEMBLER code, something our business programming brethren is not comfortable with. Definitely NOT COBOL! GETDSAB looks promising. Gotta dig some more. And curious about this LE/COBOL'ish method! It's all about knowing which APIs can deliver what is required. Just started browsing the LE Programming Reference. Stan mailto:[email protected] (613) 941-8091 -----Original Message----- From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf Of Doug Sent: June 23, 2011 10:41 PM To: [email protected] Subject: Re: Obtaining System Information from a COBOL program On 6/22/2011 13:36, Daniel Rose 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 > Yes there is a LE/COBOL'ish method, will hunt up an example when I get back to the office. Regards, Doug ---------------------------------------------------------------------- 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
