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
