try changing CLC X054STMV,=CL8'$' THIS A JES2 COMMAND?
JNE X54RET00 NO, LEAVE EXIT
to
cli x054stmv,c'$'
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Michael Babcock
Sent: Friday, November 09, 2007 3:07 PM
To: [email protected]
Subject: JES2 Exit Help
All,
We had a very simple JES2 exit 4 under z/OS 1.4 that simply did this:
* PREVENT USE OF JES2 COMMANDS SUBMITTED THROUGH
* INTERNAL READER UNLESS INTERNAL READER IS OWNED
* BY A STARTED TASK.
HASPE004 $ENTRY BASE=(R12)
$SAVE
USING HCT,R11
USING PCE,R13
LR R12,R15
L R2,0(R1) POINT TO STATEMENT IMAGE.
LTR R0,R0 IS THIS A JES2 JECL STATEMENT?
BNZ NOTJECL ... NO, IGNORE IT
CLI 2(R2),C'$' JES2 COMMAND ?
BNE EX4RET00 ... NO
TM PCEID,PCEINRID INTERNAL READER ?
BNO EX4RET00 ... NO
L R15,PCEDCT DCT ADDRESS
CLC =C'STC',RIDJBID-DCT(R15) STC OWNER OF INRDR ?
BE EX4RET00 ... YES,ALLOW
MVC 3(L'DMR0MSG,R2),DMR0MSG
MVC 9(8,R2),RIDJNAM-DCT(R15) SHOW JOBNAME OF USER
B EX4RET00
NOTJECL DS 0H
A colleague modified the exit for z/OS 1.7 and used exit 54 instead.
Here's what it looks like.
USING XPL,R7
USING JCT,R8
USING JRW,R6
LR R12,R15
LR R7,R0 COPY XPL
L R6,X054AREA LOAD JRW
TM X054IND,X054JECL THIS A JECL STATEMENT?
JNO NOTJECL NO, NO PROCESSING TO BE DONE
L R2,X054STMT
CLC X054STMV,=CL8'$' THIS A JES2 COMMAND?
JNE X54RET00 NO, LEAVE EXIT
CLC X054JCT,CCTZEROS IS THERE A JCT?
BE X54RET00 ... NO, GET OUT
CLI JRWDEVTP,DCTINR SUBMITTED VIA INTERNAL RDR?
JNE X54RET00 NO
CLC =C'S',JCTJOBID IS RDR OWNER JOB SUBMITTED? ZOS 1.7
BE X54RET00 ... YES,ALLOW
MVC 3(L'DMR0MSG,R2),DMR0MSG
MVC 9(8,R2),JCTJNAME SHOW JOBNAME OF USER
B X54RET00
NOTJECL DS 0H
X54RET00 $RETURN RC=0
It's not working though and I was wondering if someone could spot the
error. The person who modified the code is no longer with the company
and I'm not an assembly language programmer. The code doesn't crash
and burn, but simply allows everything through. Can anyone help?
----------------------------------------------------------------------
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
