The exit I wrote was back at MVS/XA 2.2. I looked back and I may have
had the same issue. Here is a snippet of code:
===============================================
*********************************************************************
* CHECK EXEC STATMENT FOR USAGE OF TIME PARAMETERS
*********************************************************************
CHKEXEC CLI 0(R2),ENDK END OF INTERNAL TEXT IMAGE?
BE RETURN0 YES, DONE WITH THIS TEXT, GET OUT
CLI 0(R2),TIMEEEK EXEC "TIME=" KEY (X'93')
BNE CHKTIME2 NO, BRANCH FOR SECOND CHECK
CLC 3(4,R2),=C'0000' CHECK FOR STEP DEFAULT
BNE NOTDEFLT TIME=(0000,03) FROM
CLC 8(2,R2),=C'03' JES2 PARMS JOBCLASS(Q)
BE RETURN0 TIME OK, DONE WITH THIS TEXT-GET OUT
NOTDEFLT MVI TIMEFLAG,C'Y' CHG TIME USAGE FLAG IN WKAREA TO 'Y'
B RETURN0 DONE WITH THIS TEXT, GET OUT
CHKTIME2 CLI 0(R2),TIMEPEK EXEC "TIME." JCLOVRD KEY (X'8F')
BNE EXLOOP NO, GO FIND TO NEXT KEYWORD
MVI TIMEFLAG,C'Y' CHG TIME USAGE FLAG IN WKAREA TO 'Y'
B RETURN0 DONE WITH THIS TEXT, GET OUT
===============================================
Regards,
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
On Mon, 3 Aug 2009 00:25:08 -0500, Bruce Hewson <[email protected]>
wrote:
>Hi Mark,
>
>I thought it would be simple when I agreed to add RACF checking for the TIME
>parameter, but during my research I found that there was always a TIME
>value encoded on the STEP card when it was being processed by JES2 EXIT6.
>So I then had to work out what the jobclass default was to "guess" if the user
>had coded a TIME= value on his STEP card JCL. This led to earlier postings in
>IBM-MAIN which gave me the directions to using these JES2 MACRO calls.
>
>It was fun getting it right.
>
>On Thu, 30 Jul 2009 08:44:07 -0500, Mark Zelden
><[email protected]> wrote:
>
>>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).
>>
><snip>
>>Mark
>>--
>>Mark Zelden
>>Sr. Software and Systems Architect - z/OS Team Lead
>>Zurich North America / Farmers Insurance Group - ZFUS G-ITO
>
>
>Regards
>Bruce Hewson
>
>----------------------------------------------------------------------
>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
