Here's a snippet from our JES2 Exit 6, which has been in place for decades. Among other actions, it limits who can use certain classes, input or output.
* THIS JES2 EXIT PROGRAM IS DESIGNED TO RUN AT CONVERTER * TIME TO ENFORCE INSTALLATION JCL STANDARDS AND TO DETERMINE * THE APPROPRIATE JOB CLASS BASED ON DEVICE UTILIZATION. * * VIOLATIONS OF JCL STANDARDS ARE DOCUMENTED BY MESSAGES * WRITTEN TO THE JES2 MESSAGE DATA SET FOR THE JOB AND * FLAGGED FOR JCL ERROR BY THE USE OF THE JES2 EXIT RETURN * CODE TO THE JES2 CONVERTER SUB-TASK. * * THIS EXIT USES THE INTERNAL TEXT DATA SET FOR ITS * PROCESSING. JES2 PASSES EACH INTERNAL TEXT STATEMENT * TO THIS EXIT FOR EXAMINATION AND/OR MODIFICATION. THE * EXIT WILL MAINTAIN A TABLE OF DATASET NAMES AND DEVICE * COUNTS TO BE USED AT END OF PROCESSING FOR DETERMINING * JOB CLASS. THE ACB FOR THE MESSAGE DATA SET IS IN THE * PCE WORK AREA AND CAN BE USED TO ISSUE ERROR MESSAGES * TO THE JOB MESSAGE PORTION OF THE LISTING. * * ALSO, THE CONVERTER IS A DUMB ANIMAL WHEN IT COMES TO * SYNTAX CHECKING. CHECKING IS MADE FOR KEYWORD VALUES, * BUT NONE IS MADE ON THE VALUE FOR THE KEYWORD. IE., * 50 CHARACTER DATA SET NAMES, 20 CHARACTER VOLUME SERIAL * NUMBERS, AND NUMEROUS SYNTAX ERRORS CAN PASS UNDETECTED * THROUGH THE CONVERTER. THESE ERRORS WILL BE CAUGHT BY * THE INTERPRETER WHEN THE JOB GOES INTO EXECUTION, BUT * THIS EXIT MUST PROCESS THEM. CURRENTLY, ALL ERRORS OF * THIS TYPE WILL ISSUE A MESSAGE TO THE EFFECT OF AN INTERNAL * ERROR AND FLUSH THE JOB. * * WRITTEN BY: * JOHN V. HOOPER * NORTHWESTERN BANK * P.O. BOX 310 * NORTH WILKESBORO, N.C. 28674 * . . 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 <IBM-MAIN@LISTSERV.UA.EDU> On Behalf Of Keith Costley Sent: Tuesday, March 10, 2020 2:39 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: (External):Re: JES2 - stopping users from sending output to specific outputclass CAUTION EXTERNAL EMAIL Thanks everyone for your help and feedback! I am going to try going down the path of the JES2 Exit 6 for now to see if that will handle the majority of our issues. Keith Costley Mastercard International Mainframe Platform Services ---------------------------------------------------------------------- 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
