I'm not quite sure what X054STMV points to, and I have not looked at the macro, but is it possible that it X054STMV doesn't point to the third character in the statement buffer? Compare X054STMT to CL3'/*$' (or X054STMT + 2 to '$' as in the old exit) to see if it is a command.
Regards, Steve -----Original Message----- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Michael Babcock Sent: Friday, November 09, 2007 3:29 PM To: [email protected] Subject: JES2 Exit Help First posting wasn't formatted well. Is this any better? 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 ============================================================================== Please access the attached hyperlink for an important electronic communications disclaimer: http://www.credit-suisse.com/legal/en/disclaimer_email_ib.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
