Bob Rutledge wrote:
Michael Babcock wrote:
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:
I would issue a WTO showing the 8-byte X054STMV field and another
showing the first 20 or so bytes at X054STMT. You should find that
X054STMV is the JES2 command name, $VS and X054STMT has the rest of
the command. If this turns out to be correct, try putting $DM into
the verb field and everything following into the buffer at X054STMT.
Also, you need to point X054STME to the byte after the end of the
stuff you put into X054STMT.
Bob
I broke out the POP and looked at the MVC instruction. I was able to
get a basic understanding of the code. R2 pointed to /*$VS in the old
code but X054STMT parsed out the /*. I see they were replacing the VS
with the DMR0 command. So I changed the instructions to
MVC 0(L'DMR0MSG,R2),DMR0MSG
MVC 7(8,R2),JCTJNAME SHOW JOBNAME OF USER
DMR0MSG DC CL68'$DMR0,''XXXXXXXX ATTEMPTED JES2($) COMMAND'''
I just replaced the entire command with the message and added the $ to
the DC CL68. It works now. Thanks for all of the assistance!
----------------------------------------------------------------------
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
