Looking at my code below, it seems like I didn't have to guess whether the
time came from the JES2 default or was coded. This was the check:
CLC 3(4,R2),=C'0000' CHECK FOR STEP DEFAULT
--
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 09:49:25 -0500, Mark Zelden <[email protected]> wrote:
>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
