Michael Babcock wrote:
MVC 3(L'DMR0MSG,R2),DMR0MSG
WTO '$USRX54I - CREATED ATTEMPTED MSG'
MVC 9(8,R2),JCTJNAME SHOW JOBNAME OF USER
$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?
At the point of the MVCs the code has decided that the issuer is
not authorized to request a command, and fails the request by
replacing the original command in the buffer by the error
message. HASP120 echoes the command, and HASP650 declares it to
be invalid. Please note that this is risky, as a jobname could
be a meaningful command?
I'm not familiar with this exit, but normally there should be an
option to suppress the request, or ignore the record, by setting
a flag or issuing the return with a different return code (RC=4
or =8, etc.).
Gerhard Postpischil
Bradford, VT
----------------------------------------------------------------------
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
