On Thu, 30 Jul 2009 06:01:05 -0500, Bruce Hewson <[email protected]> wrote:
>Hi Tom, > >I did this in JES2 Exit 6, with SAF calls for access checking. > >The difficult piece for STEP level TIME cards was to determine the JOBCLASS >default TIME value that gets automatically placed onto all EXEC card images. > >Some determined access to JES2 control blocks via $DSERV and $DOGCAT >calls allowed me to get the default TIME values for comparison. If your TIME >value exceeded that of the JOBCLASS specification, then a call is made to a >FACILITY class resource to confirm you are allowed to code a STEP level TIME >card. Access failure triggers a JCL ERROR. More complicated than mine. I just checked the internal text for any sort of TIME= which was either allowed or not depending on the JOBCLASS and if the user had access to the "time" resource in the "$JEXIT" resource class (locally defined). This was back at MVS/XA 2.2 when I was fairly new at this. I would have never figured out JES2 assembler programming and calling RACF without some CBT / JES2 MODS examples. > >I also validate JOBCLASS and REGION usage in this exit. > Ditto for jobclass (resource JOBCLASS.x). Region was just set in IEFUSI, not validated. Mark -- Mark Zelden Sr. Software and Systems Architect - z/OS Team Lead Zurich North America / Farmers Insurance Group - ZFUS G-ITO mailto:[email protected] z/OS Systems Programming expert at http://expertanswercenter.techtarget.com/ Mark's MVS Utilities: http://home.flash.net/~mzelden/mvsutil.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
