Michael Babcock wrote:
...
Yes, I was lost. Anyway, I modified the code to this and have it
"mostly" working.
...
L R2,X054STMT
CLI X054STMV,C'$' THIS A JES2 COMMAND?
JNE X54RET00 NO, LEAVE EXIT
...
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:
...
$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 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
----------------------------------------------------------------------
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
