On Tue, Aug 4, 2009 at 11:42 AM, Frank Swarbrick < [email protected]> wrote:
> This is a test, this is only a test. I want to perform this only so I can > then be locked out from performing this. I am trying to use a Cobol program > to create a system level token (level 4). This program can successfully > create lower level tokens (levels 1, 2 and 3). I am linking with AC=1 into > the library PROD.APPL.LOADLIB. See below: > > <SNIP> > The parm specifies the token level followed by the token name. If I > specify level 3 I get a return code of 0. If I specify level 4 I get a > return code level of 16 (hex 10: 'Meaning: An unauthorized caller attempted > to create a system-level name/token pair.'). > > The only purpose of me doing this is to "prove" that PROD.APPL.LOADLIB is > APF authorized in this case because of LNKAUTH=LNKLST. I thought that this > would succeed, so that we could then switch to LNKAUTH=APFTAB and cause it > to fail. Is there something else I need to do to make this program > authorized? Can only assembler programs be authorized? > All programs (even APF authorized programs) begin execution in problem state and (unless there is an overriding entry in the program properties table) in PSW key 8. Problem state programs with PSW keys 8-F cannot create system level pairs. So even if your COBOL program IS running APF authorized, that isn't good enough. It must be running in a system PSW key (0-7) and (optionally) in supervisor state. You can get your COBOL program running in a system key by putting an entry for it in the program properties table, but you can't get it running in supervisor state without calling an assembler stub that would issue the MODESET to supervisor state - which would be a bad idea anyway. LE would be quite astonished unless you put everything back the way it was at the beginning before exiting. -- This email might be from the artist formerly known as CC (or not) You be the judge. ---------------------------------------------------------------------- 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
