I am trying to modify JES exit 6 so that jobs, starting with a particular
string and destination is to a particular partial string, get assigned a class
of F (jobname beginning with WE# and destination beginning with VPRTxxxx). I
also want to prohibit non SY users from using class Z.
I modified our existing exit 6 and tested on our onepac system. It worked
great. However, when I tried to use the same module in our production lpar,
the class Z logic is working, but the class F will not work! I've tried for
the last two Sundays for hours!
Yesterday, changed the module name and entry name so I could make sure it was
using the new module. $d exit(6) shows the new entry. I've compared JES2
initialization members and cannot figure out why the same code works on one but
not the other. Does anyone have a suggestion on what else I can look at?
I have a small window of opportunity each week to try and get this to work.
Thought about using the trace option but don't know enough about how to do it
so would have to read up on that. Would that be of any help?
Here's the part of code that I changed: (I'm not the greatest assembler
programmer so be kind :))
SCAN LA R3,JCTJCLAS LOAD ADDRESS OF CLASS
L R4,=F'0' COLUMNS
TO BE SCANNED
EX R4,SCANCLS1 SCAN FOR INVALID
CLASS
BC 2,CHKJNAME CLASS IS VALID
EX R4,SCANCLS2 CLASS Z?
BC 2,CLASSZ IF CLASS Z,
GO CHECK USERID
MVI JCTJCLAS,C'C' NOT SY, SET CLASS
TO C
B RETURN RETURN TO
JES
CLASSZ LA R5,JCTNOUSR SUBMITTING USERID
CLC =CL2'SY',0(R5) IS THIS AN SY
USERID?
BE ALLGOOD CLASS Z OK FOR SY
MVI JCTJCLAS,C'C' CLASS Z CHANGED TO
C FOR NON SY
B RETURN RETURN TO
JES
CHKJNAME LA R6,JCTJNAME JOBNAME
CLC =CL3'WE#',0(R6) DOES JOBNAME START
WITH WE#?
BE CHKDEST YES, GO CHECK
DESTINATION
B RETURN NO, RETURN
TO JES
CHKDEST LA R7,JCTPRRID JOB PRINT DESTINATION
CLC =CL4'VPRT',0(R7) DOES PRINT DEST START
WITH VPRT
BE CHGCLAS YES, GO
CHANGE CLASS TO F
ALLGOOD B RETURN NO, RETURN TO JES
CHGCLAS MVI JCTJCLAS,C'F' MOVE F TO CLASS
B RETURN RETURN TO
JES
RETURN RETURN (14,12),RC=0
SCANCLS1 TRT 0(0,R3),TRTABLE1 LOOKIN FOR A VALID CLASS
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* VALID CLASS TABLE CHECKING FOR CLASS C,E,F,I,K,L,Q,T *
* CLASS I FOR IPO2 *
* CLASS T FOR TEST *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
TRTABLE1 DC 195X'00'
DC 1X'C3' C
DC 1X'00'
DC 1X'C5' E
DC 1X'C6' F
DC 2X'00'
DC 1X'C9' I
DC 8X'00'
DC 1X'D2' K
DC 1X'D3' L
DC 1X'D4' M
DC 3X'00'
DC 1X'D8' Q
DC 10X'00'
DC 1X'E3' T
DC 5X'00'
DC 23X'00'
* DC 1X'E9' Z
* DC 22X'00'
SCANCLS2 TRT 0(0,R3),TRTABLE2 LOOKIN FOR CLASS Z
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* VALID CLASS TABLE CHECKING FOR CLASS Z *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
TRTABLE2 DC 233X'00'
DC 1X'E9' Z
DC 22X'00'
*
Anne D. Crabtree
System Programmer
WV Office of Technology Data Center
1900 Kanawha Blvd East
Bldg 6, Room B-110
Charleston, WV 25305
(304)558-5914 ext 58292
(304)558-1441 fax
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
