Bob Rutledge wrote:
I believe the JCT you really want to be looking at is that of the
submitter. In
http://publibz.boulder.ibm.com/zoslib/pdf/J2migration_guide.pdf
there's a section that describes how to do it in the "new" exits.
Bob
Yes, I was lost. Anyway, I modified the code to this and have it
"mostly" working.
USING XPL,R7
USING JCT,R8
USING JRW,R6
USING RIDCWKAR,JRW
USING SJB,R3
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
WTO '$USRX54I - FOUND JECL STMT'
L R2,X054STMT
CLI X054STMV,C'$' THIS A JES2 COMMAND?
JNE X54RET00 NO, LEAVE EXIT
WTO '$USRX54I - FOUND $ JES STMT'
ICM R3,B'1111',RIDSJB ENSURE SJB IS NOT ZERO
BZ X54RET00 NOT A BATCH SUBMIT, EXIT
WTO '$USRX54I - RIDSJB WAS NOT ZERO'
L R8,SJBJCT GET SUBMITTERS JCT ADDRESS
TM JRWDEVTP,DCTINR INTERNAL READER?
BZ X54RET00 NOT INTRDR, EXIT
WTO '$USRX54I - JRWDEVTP WAS INTERNAL READER'
CLC =C'S',JCTJOBID IS RDR OWNED BY STC?
BE X54RET00 ... YES,ALLOW
WTO '$USRX54I - JCTJOBID WAS NOT STC'
MVC 3(L'DMR0MSG,R2),DMR0MSG
WTO '$USRX54I - CREATED ATTEMPTED MSG'
MVC 9(8,R2),JCTJNAME SHOW JOBNAME OF USER
WTO '$USRX54I - LOADED JCTJNAME IN MSG'
B X54RET00
NOTJECL DS 0H
X54RET00 $RETURN RC=0
SPACE 2
DMR0MSG DC CL68'DMR0,''XXXXXXXX ATTEMPTED JES2($) COMMAND'''
I get this output:
$USRX54I - FOUND JECL STMT
$USRX54I - FOUND $ JES STMT
$USRX54I - RIDSJB WAS NOT ZERO
$USRX54I - JRWDEVTP WAS INTERNAL READER
$USRX54I - JCTJOBID WAS NOT STC
$USRX54I - CREATED ATTEMPTED MSG
$USRX54I - LOADED JCTJNAME IN MSG
$HASP120 INTRDR $VSDMR0,'SMMYB ATTEMPTED JES2($) COMMAND' FROM
TSU03427 SMMYB
$HASP650 DMR0,'SMMY INVALID OPERAND OR MISPLACED OPERAND
The above two lines are what I'm concerned about. What is the code
doing in the two MVC instructions and how can I fix them to issue the
proper message?
I really wish I knew assembler better.
----------------------------------------------------------------------
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
