Re: Exit 6 that sets the job class was Re: EXIT to control use of Class

[Clark Morris]

[Default] On 20 Mar 2018 14:32:59 -0700, in bit.listserv.ibm-main
jesse1.robin...@sce.com (Jesse 1 Robinson) wrote:

>I'm not familiar with the CBT version of Exit 6, but ours does exactly this 
>sort of thing. You can set/change all kinds of attributes based on all kinds 
>of criteria. It's a very powerful mechanism.  
>
On more recent forms of JES2 than that for MVS/XA does code in exit 6
also have to be in other exits?

Clark Morris
>.
>J.O.Skip Robinson
>Southern California Edison Company
>Electric Dragon Team Paddler 
>SHARE MVS Program Co-Manager
>323-715-0595 Mobile
>626-543-6132 Office ?=== NEW
>robin...@sce.com
>
>
>-Original Message-
>From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On 
>Behalf Of Clark Morris
>Sent: Tuesday, March 20, 2018 2:13 PM
>To: IBM-MAIN@LISTSERV.UA.EDU
>Subject: (External):Exit 6 that sets the job class was Re: EXIT to control use 
>of Class
>
>[Default] On 16 Mar 2018 10:38:43 -0700, in bit.listserv.ibm-main 
>dbajava...@gmail.com (Peter) wrote:
>
>>Hi
>>
>>Is there an EXIT which can assign CLASS to the users based on RACF ID ? 
>>For example even if a user tries to use CLASS C the user Job must run 
>>only using CLASS A.
>
>File 175 contains the Philips Lighting JES2 mods that were designed to ease 
>the conversion from JES 3 to JES2.  The primary changes were in an upgrade to 
>the American Natural Resources EXIT6.  While the exit was based on the first 3 
>characters of user=id, it was changed after I left to use ACF2 or RACF to 
>determine privilege.
>
>
>The exit does the following:
>
>For production jobs submitted by CA-7, the class is left as A unless it uses a 
>TCAM queue in which case it is set to the class for that queue.  The class is 
>shared with test jobs.
>
>For test jobs, the class is set based on time requested in the job card and 
>the number of tape drives.  Systems programmer jobs were set to a 
>corresponding set of classes that would run if test jobs were held by turning 
>off the class.  The catalog was checked for all input data sets to determine 
>whether the data set was on tape. 
>
>In most if not all cases the class on the job card is ignored.  The FCB was 
>set based on form and there may be other things I forget offhand.
>
>All PROC usage was logged in SMF with the JES2 library concatenation.
>
>From what I have read, if you use exit 6 you may also have to code another 
>corresponding exit. With the many changes in JCL since 1991, especially, with 
>the JCLLIB, multiple levels of PROC and INCLUDE statements, major changes 
>might have to be made.
>
>The major philosophy of the exit was that the system could determine the 
>proper job class and if it could determine it, the system should set it and 
>the programmer didn't have to know the rules.
>
>Packages and workload manager may be able to handle some or all of the 
>functions of this exit. 
>
>If anyone is interested, File 175 can be downloaded from www.cbttape.org.  Sam 
>Golob has included my home phone number which does have call answer in the 
>writeup for FILE 175.  It is a standard North American phone number and I have 
>had it for over 26 years. Since I have North America wide free calling I can 
>return phone calls without penalty.  I have a copy of file 175 on my computer 
>so I may be able to help if someone actually wants to use any of the files in 
>the submission.  It has been a fun trip through memory lane.  
>
>Having the CBT tape, IPO samples and a concurrent conversion of production 
>output SYSOUT to put all reports in CA-DISPATCH enabled us to convert in a 3 - 
>4 month timeframe from JES3 to JES2 with little effect on the application 
>programmers.
>
>Clark Morris   
>>
>>This is for our training LPAR and I would like to implement this feature.
>>
>>We are at zOS1.13
>>
>>Regards
>>Peter
>
>
>--
>For IBM-MAIN subscribe / signoff / archive access instructions,
>send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Exit 6 that sets the job class was Re: EXIT to control use of Class

[Jesse 1 Robinson]

I'm not familiar with the CBT version of Exit 6, but ours does exactly this 
sort of thing. You can set/change all kinds of attributes based on all kinds of 
criteria. It's a very powerful mechanism.  

.
.
J.O.Skip Robinson
Southern California Edison Company
Electric Dragon Team Paddler 
SHARE MVS Program Co-Manager
323-715-0595 Mobile
626-543-6132 Office ⇐=== NEW
robin...@sce.com


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Clark Morris
Sent: Tuesday, March 20, 2018 2:13 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: (External):Exit 6 that sets the job class was Re: EXIT to control use 
of Class

[Default] On 16 Mar 2018 10:38:43 -0700, in bit.listserv.ibm-main 
dbajava...@gmail.com (Peter) wrote:

>Hi
>
>Is there an EXIT which can assign CLASS to the users based on RACF ID ? 
>For example even if a user tries to use CLASS C the user Job must run 
>only using CLASS A.

File 175 contains the Philips Lighting JES2 mods that were designed to ease the 
conversion from JES 3 to JES2.  The primary changes were in an upgrade to the 
American Natural Resources EXIT6.  While the exit was based on the first 3 
characters of user=id, it was changed after I left to use ACF2 or RACF to 
determine privilege.


The exit does the following:

For production jobs submitted by CA-7, the class is left as A unless it uses a 
TCAM queue in which case it is set to the class for that queue.  The class is 
shared with test jobs.

For test jobs, the class is set based on time requested in the job card and the 
number of tape drives.  Systems programmer jobs were set to a corresponding set 
of classes that would run if test jobs were held by turning off the class.  The 
catalog was checked for all input data sets to determine whether the data set 
was on tape. 

In most if not all cases the class on the job card is ignored.  The FCB was set 
based on form and there may be other things I forget offhand.

All PROC usage was logged in SMF with the JES2 library concatenation.

From what I have read, if you use exit 6 you may also have to code another 
corresponding exit. With the many changes in JCL since 1991, especially, with 
the JCLLIB, multiple levels of PROC and INCLUDE statements, major changes might 
have to be made.

The major philosophy of the exit was that the system could determine the proper 
job class and if it could determine it, the system should set it and the 
programmer didn't have to know the rules.

Packages and workload manager may be able to handle some or all of the 
functions of this exit. 

If anyone is interested, File 175 can be downloaded from www.cbttape.org.  Sam 
Golob has included my home phone number which does have call answer in the 
writeup for FILE 175.  It is a standard North American phone number and I have 
had it for over 26 years. Since I have North America wide free calling I can 
return phone calls without penalty.  I have a copy of file 175 on my computer 
so I may be able to help if someone actually wants to use any of the files in 
the submission.  It has been a fun trip through memory lane.  

Having the CBT tape, IPO samples and a concurrent conversion of production 
output SYSOUT to put all reports in CA-DISPATCH enabled us to convert in a 3 - 
4 month timeframe from JES3 to JES2 with little effect on the application 
programmers.

Clark Morris   
>
>This is for our training LPAR and I would like to implement this feature.
>
>We are at zOS1.13
>
>Regards
>Peter


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Exit 6 that sets the job class was Re: EXIT to control use of Class

[Clark Morris]

[Default] On 16 Mar 2018 10:38:43 -0700, in bit.listserv.ibm-main
dbajava...@gmail.com (Peter) wrote:

>Hi
>
>Is there an EXIT which can assign CLASS to the users based on RACF ID ? For
>example even if a user tries to use CLASS C the user Job must run only
>using CLASS A.

File 175 contains the Philips Lighting JES2 mods that were designed to
ease the conversion from JES 3 to JES2.  The primary changes were in
an upgrade to the American Natural Resources EXIT6.  While the exit
was based on the first 3 characters of user=id, it was changed after I
left to use ACF2 or RACF to determine privilege.


The exit does the following:

For production jobs submitted by CA-7, the class is left as A unless
it uses a TCAM queue in which case it is set to the class for that
queue.  The class is shared with test jobs.

For test jobs, the class is set based on time requested in the job
card and the number of tape drives.  Systems programmer jobs were set
to a corresponding set of classes that would run if test jobs were
held by turning off the class.  The catalog was checked for all input
data sets to determine whether the data set was on tape. 

In most if not all cases the class on the job card is ignored.  The
FCB was set based on form and there may be other things I forget
offhand.

All PROC usage was logged in SMF with the JES2 library concatenation.

From what I have read, if you use exit 6 you may also have to code
another corresponding exit. With the many changes in JCL since 1991,
especially, with the JCLLIB, multiple levels of PROC and INCLUDE
statements, major changes might have to be made.

The major philosophy of the exit was that the system could determine
the proper job class and if it could determine it, the system should
set it and the programmer didn't have to know the rules.

Packages and workload manager may be able to handle some or all of the
functions of this exit. 

If anyone is interested, File 175 can be downloaded from
www.cbttape.org.  Sam Golob has included my home phone number which
does have call answer in the writeup for FILE 175.  It is a standard
North American phone number and I have had it for over 26 years. Since
I have North America wide free calling I can return phone calls
without penalty.  I have a copy of file 175 on my computer so I may be
able to help if someone actually wants to use any of the files in the
submission.  It has been a fun trip through memory lane.  

Having the CBT tape, IPO samples and a concurrent conversion of
production output SYSOUT to put all reports in CA-DISPATCH enabled us
to convert in a 3 - 4 month timeframe from JES3 to JES2 with little
effect on the application programmers.

Clark Morris   
>
>This is for our training LPAR and I would like to implement this feature.
>
>We are at zOS1.13
>
>Regards
>Peter
>
>--
>For IBM-MAIN subscribe / signoff / archive access instructions,
>send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: EXIT to control use of Class

[Seymour J Metz]

I have no problem with DWYM software, excpet that it doesn't exist. I have a 
real problem with software writers who try, ineptly, to second guess the user. 
I've seen spell mischeckers come up with much worse alternatives than those in 
the classic poem, wich actuall preceeds "smart phones"..


--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3


From: IBM Mainframe Discussion List <IBM-MAIN@listserv.ua.edu> on behalf of 
Paul Gilmartin <000433f07816-dmarc-requ...@listserv.ua.edu>
Sent: Saturday, March 17, 2018 8:59 PM
To: IBM-MAIN@listserv.ua.edu
Subject: Re: EXIT to control use of Class

On Sat, 17 Mar 2018 17:22:40 -0700, retired mainframer wrote:

>If I remember correctly, the OP wanted to change the job class if the user 
>specified the wrong one.  I don't think RACF will do that.
>
Largely, I resent DWIM: code that purports to correct perceived errors.
With smartphones this has spawned legendary examples, some risqué.

http://secure-web.cisco.com/16wUFkOvar4dGOF2-SF0rg_0DN4S5bF2qOsveDdgo8ruffrtadpZKerRHl6jUaKqPuX7oN8_l_bpJk6S0d3I7tBn5_qMdqe75Rr-TAExAKUHiEdZdTuahxfSJQBgChoyD_XiDEaQszVoVogeHTJRSf8j86cU_PiJkxXx91F6M8CArCrBgtmosJ3CONNxU7_-8KkooWg5MhKP9HRFCcHO4MY6ctyp3NszXeEMbSjXPQVUq6AMy9s-sh1xBMAkSWfrBHNYFF33KTV4t3MW2rGesq4-EMuUF9NDBRwjOeBUlmoDWqIyFHugtoin7cS2kuOrhmMA3IYFjL0BWBNKyVg7kEWfQg9QDnfqbM3LRl_QiOfo-1ndKMReRW-qp5TVzVeraAuxn_VKGrZVeOu3RfcdHc9363Q2UjziK8cT4XvkAiGJXnkdN2aasNSFyfGv2nQrD/http%3A%2F%2Fwww.paulhensel.org%2Fteachspell.html

I prefer a failure so I can choose an alternative.

-- gil

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: EXIT to control use of Class

[Paul Gilmartin]

On Sat, 17 Mar 2018 17:22:40 -0700, retired mainframer wrote:

>If I remember correctly, the OP wanted to change the job class if the user 
>specified the wrong one.  I don't think RACF will do that.
> 
Largely, I resent DWIM: code that purports to correct perceived errors.
With smartphones this has spawned legendary examples, some risqué.
http://www.paulhensel.org/teachspell.html

I prefer a failure so I can choose an alternative.

-- gil

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: EXIT to control use of Class

[retired mainframer]

If I remember correctly, the OP wanted to change the job class if the user 
specified the wrong one.  I don't think RACF will do that.

> -Original Message-
> From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> On Behalf
> Of Dan D
> Sent: Saturday, March 17, 2018 11:56 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: EXIT to control use of Class
> 
> Hi Peter,
> 
> I think this may be simpler than others are making out ...
> 
> https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.1.0/com.ibm.zos.v2r1.icha7
> 00/ControllingJobClassUsage.htm
> 
>  An installation can control job class usage by granting access based 
> on the
> submitter’s profile, or based on the owner’s profile, or both. 

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: EXIT to control use of Class

[Dan D]

Hi Peter,

I think this may be simpler than others are making out ...

https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.1.0/com.ibm.zos.v2r1.icha700/ControllingJobClassUsage.htm

 An installation can control job class usage by granting access based on 
the submitter’s profile, or based on the owner’s profile, or both. 

Dan

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: EXIT to control use of Class

[zMan]

Oh, if only class was so easily acquired! Think of the people we could
improve...

(sorry)

On Fri, Mar 16, 2018 at 4:00 PM, Carmen Vitullo <cvitu...@hughes.net> wrote:

> ok, I didn't think you could intergedate the JCL, and modify the JCL
> within one exit. very nice !
>
>
>
> Carmen Vitullo
>
> - Original Message -
>
> From: "Steely.Mark" <steely.m...@aaa-texas.com>
> To: IBM-MAIN@LISTSERV.UA.EDU
> Sent: Friday, March 16, 2018 2:53:39 PM
> Subject: Re: EXIT to control use of Class
>
> Here is the JES2 Exit 50 we used.
>
> If the ID is CA7ONL class U was forced.
>
> Thanks
>
> HASX50A TITLE 'USER EXIT 50 MODULE -- PROLOG (MODULE COMMENT BLOCK)'
> 0001
> ***
> 0014
> * * 0015
> * MODULE NAME = HASX50A (HASX50A load module) * 0016
> * * 0017
> * DESCRIPTIVE NAME = JOB STATEMENT SCAN * 0018
> * * 0019
> * STATUS = OS/VS2 - SEE $MODULE EXPANSION BELOW FOR FMID, VERSION *
> 0020
> * * 0021
> * FUNCTION = * 0022
> * * 0023
> * * 0023
> * * 0023
> * * 0023
> * * 0026
> * * 0042
> * REGISTER CONVENTIONS = SEE ENTRY POINT DOCUMENTATION * 0043
> * * 0044
> * PATCH LABEL = NONE * 0045
> * * 0046
> * MODULE TYPE = Procedure ( CSECT type ) * 0047
> * * 0048
> * PROCESSOR = IBM High Level Assembler/MVS 1.5.0 @Z07LASM 0049
> * * 0050
> * MODULE SIZE = SEE $MODEND MACRO EXPANSION AT END OF ASSEMBLY * 0051
> * * 0052
> * ATTRIBUTES = JES2 REENTRANT, RMODE ANY, AMODE 31 * 0053
> * Supervisor state, protect key of JES2's (1) * 0054
> * * 0055
> * ENTRY POINT = EXIT50A * 0056
> * * 0057
> * PURPOSE = SEE FUNCTION * 0058
> * * 0059
> * LINKAGE = STANDARD MVS LINKAGE * 0060
> * * 0061
> * EXIT-NORMAL = RETURN TO CALLER (HASPRDR) * 0062
> * * 0063
> * EXIT-ERROR = NONE * 0064
> * * 0065
> * EXTERNAL REFERENCES = SEE BELOW * 0066
> * * 0067
> * ROUTINES = MISCELLANEOUS JES2 SERVICE ROUTINES * 0068
> * * 0069
> * DATA AREAS = SEE $MODULE MACRO EXPANSION * 0070
> * * 0071
> * CONTROL BLOCKS = SEE $MODULE MACRO EXPANSION * 0072
> * * 0073
> * TABLES = SEE $MODULE MACRO DEFINITION (BELOW) * 0074
> * * 0075
> * MACROS = JES2 - $DOGBERT, $ENTRY, $JCTXGET, $MODEND, $MODULE, * 0076
> * $RETURN * 0077
> * * 0078
> * MACROS = MVS - none * 0079
> * * 0080
> * CHANGE ACTIVITY: * 0081
> * * 0082
> * $Z07LASM=NJETCP HJE7720 050203 CLW: HLASM 5.0 support * 0083
> * * 0084
> * A00-99 CREATED FOR JES2 z/OS 1.7 @Z07LTCP 0085
> ***
> 0086
> TITLE 'USER EXIT 50 MODULE -- PROLOG ($HASPGBL)' 0087
> COPY $HASPGBL COPY HASP GLOBALS 0088
> TITLE 'USER EXIT 50 MODULE -- PROLOG ($MODULE)' 0089
> ** 0090
> * Note that the environment for this module is * 0091
> * (USER,ANY). All routines compiled in this * 0092
> * environment require R11 to be the HCCT address, * 0093
> * and will use main task $SAVE/$RETURN services * 0094
> * when invoked from the main task, and special * 0095
> * USER environment $SAVE/RETURN services in other * 0096
> * run-time environments. * 0097
> * * 0098
> * This allows (with special code in $EXIT 20) the * 0099
> * same routine to be shared by both $EXIT 20 and * 0100
> * $EXIT 50. Note that while many services require * 0101
> * different linkage and parameters in different * 0102
> * run-time environments, this exit uses none of * 0103
> * those services. See HASX55A for an example of * 0104
> * how to implement environment-dependent services * 0105
> * from this type of exit. * 0106
> ** 0107
> EJECT , 0108
> HASX50A $MODULE ENVIRON=(USER,ANY), C0109
> RMODE=ANY, C0110
> IBMJES2=SAMPLE, C0111
> TITLE='USER EXIT 50 MODULE', C0112
> $BERT, Generate HASP BERT DSECT C0113
> $BERTTAB, Generate HASP BERTTAB DSECT C0114
> $BUFFER, GENERATE HASP BUFFER DSECT C0115
> $CADDR, GENERATE HASP CADDR DSECT C0116
> $CATBERT, Generate HASP CATBERT DSECT C0117
> $HASPEQU, GENERATE HASP EQU DSECT C0118
> $HCCT, Generate HASP HCCT DSECT C0119
> $HCT, GENERATE HASP HCT DSECT C0120
> $JCT, GENERATE HASP JCT DSECT C0121
> $JCTX, Generate HASP JCTX DSECT C0122
> $JQE, Generate HASP JQE DSECT C0123
> $MIT, GENERATE HASP

Re: EXIT to control use of Class

[Carmen Vitullo]

ok, I didn't think you could intergedate the JCL, and modify the JCL within one 
exit. very nice ! 



Carmen Vitullo 

- Original Message -

From: "Steely.Mark" <steely.m...@aaa-texas.com> 
To: IBM-MAIN@LISTSERV.UA.EDU 
Sent: Friday, March 16, 2018 2:53:39 PM 
Subject: Re: EXIT to control use of Class 

Here is the JES2 Exit 50 we used. 

If the ID is CA7ONL class U was forced. 

Thanks 

HASX50A TITLE 'USER EXIT 50 MODULE -- PROLOG (MODULE COMMENT BLOCK)' 0001 
*** 
0014 
* * 0015 
* MODULE NAME = HASX50A (HASX50A load module) * 0016 
* * 0017 
* DESCRIPTIVE NAME = JOB STATEMENT SCAN * 0018 
* * 0019 
* STATUS = OS/VS2 - SEE $MODULE EXPANSION BELOW FOR FMID, VERSION * 0020 
* * 0021 
* FUNCTION = * 0022 
* * 0023 
* * 0023 
* * 0023 
* * 0023 
* * 0026 
* * 0042 
* REGISTER CONVENTIONS = SEE ENTRY POINT DOCUMENTATION * 0043 
* * 0044 
* PATCH LABEL = NONE * 0045 
* * 0046 
* MODULE TYPE = Procedure ( CSECT type ) * 0047 
* * 0048 
* PROCESSOR = IBM High Level Assembler/MVS 1.5.0 @Z07LASM 0049 
* * 0050 
* MODULE SIZE = SEE $MODEND MACRO EXPANSION AT END OF ASSEMBLY * 0051 
* * 0052 
* ATTRIBUTES = JES2 REENTRANT, RMODE ANY, AMODE 31 * 0053 
* Supervisor state, protect key of JES2's (1) * 0054 
* * 0055 
* ENTRY POINT = EXIT50A * 0056 
* * 0057 
* PURPOSE = SEE FUNCTION * 0058 
* * 0059 
* LINKAGE = STANDARD MVS LINKAGE * 0060 
* * 0061 
* EXIT-NORMAL = RETURN TO CALLER (HASPRDR) * 0062 
* * 0063 
* EXIT-ERROR = NONE * 0064 
* * 0065 
* EXTERNAL REFERENCES = SEE BELOW * 0066 
* * 0067 
* ROUTINES = MISCELLANEOUS JES2 SERVICE ROUTINES * 0068 
* * 0069 
* DATA AREAS = SEE $MODULE MACRO EXPANSION * 0070 
* * 0071 
* CONTROL BLOCKS = SEE $MODULE MACRO EXPANSION * 0072 
* * 0073 
* TABLES = SEE $MODULE MACRO DEFINITION (BELOW) * 0074 
* * 0075 
* MACROS = JES2 - $DOGBERT, $ENTRY, $JCTXGET, $MODEND, $MODULE, * 0076 
* $RETURN * 0077 
* * 0078 
* MACROS = MVS - none * 0079 
* * 0080 
* CHANGE ACTIVITY: * 0081 
* * 0082 
* $Z07LASM=NJETCP HJE7720 050203 CLW: HLASM 5.0 support * 0083 
* * 0084 
* A00-99 CREATED FOR JES2 z/OS 1.7 @Z07LTCP 0085 
*** 
0086 
TITLE 'USER EXIT 50 MODULE -- PROLOG ($HASPGBL)' 0087 
COPY $HASPGBL COPY HASP GLOBALS 0088 
TITLE 'USER EXIT 50 MODULE -- PROLOG ($MODULE)' 0089 
** 0090 
* Note that the environment for this module is * 0091 
* (USER,ANY). All routines compiled in this * 0092 
* environment require R11 to be the HCCT address, * 0093 
* and will use main task $SAVE/$RETURN services * 0094 
* when invoked from the main task, and special * 0095 
* USER environment $SAVE/RETURN services in other * 0096 
* run-time environments. * 0097 
* * 0098 
* This allows (with special code in $EXIT 20) the * 0099 
* same routine to be shared by both $EXIT 20 and * 0100 
* $EXIT 50. Note that while many services require * 0101 
* different linkage and parameters in different * 0102 
* run-time environments, this exit uses none of * 0103 
* those services. See HASX55A for an example of * 0104 
* how to implement environment-dependent services * 0105 
* from this type of exit. * 0106 
** 0107 
EJECT , 0108 
HASX50A $MODULE ENVIRON=(USER,ANY), C0109 
RMODE=ANY, C0110 
IBMJES2=SAMPLE, C0111 
TITLE='USER EXIT 50 MODULE', C0112 
$BERT, Generate HASP BERT DSECT C0113 
$BERTTAB, Generate HASP BERTTAB DSECT C0114 
$BUFFER, GENERATE HASP BUFFER DSECT C0115 
$CADDR, GENERATE HASP CADDR DSECT C0116 
$CATBERT, Generate HASP CATBERT DSECT C0117 
$HASPEQU, GENERATE HASP EQU DSECT C0118 
$HCCT, Generate HASP HCCT DSECT C0119 
$HCT, GENERATE HASP HCT DSECT C0120 
$JCT, GENERATE HASP JCT DSECT C0121 
$JCTX, Generate HASP JCTX DSECT C0122 
$JQE, Generate HASP JQE DSECT C0123 
$MIT, GENERATE HASP MIT DSECT C0124 
$MITETBL, Generate HASP MTE dsect C0125 
$PADDR, GENERATE HASP PADDR DSECT C0126 
$PARMLST, GENERATE HASP PADDR DSECT C0127 
$PCE, GENERATE HASP PCE DSECT C0128 
$PSV, GENERATE HASP PSV DSECT C0129 
$TRE, Generate HASP TRE DSECT C0130 
$USERCBS, GENERATE HASP USERCBDS DSECT C0131 
$XECB, GENERATE HASP XECB DSECT C0132 
$XIT, Generate HASP XIT DSECT C0133 
$XPL Generate HASP XPL DSECT 0134 
TITLE 'USER EXIT 50 MODULE -- JOB STATEMENT SCAN' 0135 
*** 
0136 
* * 0137 
* EXIT50 - INSTALLATION EXIT 50 ROUTINE * 013800

Re: EXIT to control use of Class

[Steely.Mark]

 -- EPILOG ($MODEND)'
$MODEND 1000
APARNUM  DCCL8'NONE'   APAR NUMBER  9997
PTFNUM   DCCL8'NONE'   PTF NUMBER   9998
 END   ,   END OF HASX50A   


Thanks

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Peter
Sent: Friday, March 16, 2018 12:40 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: EXIT to control use of Class

Hi

Is there an EXIT which can assign CLASS to the users based on RACF ID ? For 
example even if a user tries to use CLASS C the user Job must run only using 
CLASS A.

This is for our training LPAR and I would like to implement this feature.

We are at zOS1.13

Regards
Peter

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

*** Disclaimer ***
This communication (including all attachments) is solely for the use of the 
person to whom it is addressed and is a confidential AAA communication. If you 
are not the intended recipient, any use, distribution, printing, or copying is 
prohibited. If you received this email in error, please immediately delete it 
and notify the sender.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: EXIT to control use of Class

[Pew, Curtis G]

On Mar 16, 2018, at 12:50 PM, John McKown  wrote:
> 
> IMO, the simplest would be JES2 exit 20. In this exit, you can override
> the CLASS specified by simply putting the class desired into the JCTJCLAS.
> We use it to "disable" the use of PRTY by setting the JCTJPRTY value to "9".

It would be a little more difficult, but you could also use IEFUJV to override 
the JCL before conversion. That would require some minimal parsing of the JOB 
statement to find the CLASS parameter.

You could also be really hard-nosed, and use IEFUJI to cancel the job if it 
isn’t in the desired class.


-- 
Pew, Curtis G
curtis@austin.utexas.edu
ITS Systems/Core/Administrative Services


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: EXIT to control use of Class

[John McKown]

On Fri, Mar 16, 2018 at 12:39 PM, Peter  wrote:

> Hi
>
> Is there an EXIT which can assign CLASS to the users based on RACF ID ? For
> example even if a user tries to use CLASS C the user Job must run only
> using CLASS A.
>
> This is for our training LPAR and I would like to implement this feature.
>
> We are at zOS1.13
>

​IMO, the simplest would be JES2 exit 20. In this exit, you can override
the CLASS specified by simply putting the class desired into the JCTJCLAS.
We use it to "disable" the use of PRTY by setting the JCTJPRTY value to "9".

ref:
https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.1.0/com.ibm.zos.v2r1.hasc100/endoinpt.htm
​



>
> Regards
> Peter
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>



-- 
I have a theory that it's impossible to prove anything, but I can't prove
it.

Maranatha! <><
John McKown

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: EXIT to control use of Class

[Carmen Vitullo]

Peter, you'd need multiple JES2 exit to do what you want, off the top of my 
head I'm thinking 
Exit 6  Converter/Interpreter Text Scan Exit 36 Pre-security Authorization Call 
and possibly 
Exit 54 JCL and JES2 Control Statement Scan (JES2 User Environment) 


https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.1.0/com.ibm.zos.v2r1.ieae400/jes2.htm
 




or a product like thruput manager 




Carmen Vitullo 

- Original Message -

From: "Peter" <dbajava...@gmail.com> 
To: IBM-MAIN@LISTSERV.UA.EDU 
Sent: Friday, March 16, 2018 12:39:53 PM 
Subject: EXIT to control use of Class 

Hi 

Is there an EXIT which can assign CLASS to the users based on RACF ID ? For 
example even if a user tries to use CLASS C the user Job must run only 
using CLASS A. 

This is for our training LPAR and I would like to implement this feature. 

We are at zOS1.13 

Regards 
Peter 

-- 
For IBM-MAIN subscribe / signoff / archive access instructions, 
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN 


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

EXIT to control use of Class

[Peter]

Hi

Is there an EXIT which can assign CLASS to the users based on RACF ID ? For
example even if a user tries to use CLASS C the user Job must run only
using CLASS A.

This is for our training LPAR and I would like to implement this feature.

We are at zOS1.13

Regards
Peter

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN