Receiving a *COMP message

This is like snatching defeat from the jaws of success. I finally get my huge
file transfer to work. I get an email from the sender that it has completed.

The joblog shows this:
Cause . . . . . : Environment variable
*NONE Command 04/07/09 09:29:50.537224 QCADRV
To module . . . . . . . . . : SADESCCL
To procedure . . . . . . . : SADESCCL
Statement . . . . . . . . . : 15300
Message . . . . : 15300 - QSH CMD('/us
QSH0005 Completion 00 04/07/09 10:23:57.421232 QZSHRUNC
From module . . . . . . . . : QZSHRUNC
From procedure . . . . . . : main
Statement . . . . . . . . . : 157
To module . . . . . . . . . : SADESCCL
To procedure . . . . . . . : SADESCCL
Statement . . . . . . . . . : 15300
Message . . . . : Command ended normall


This just shows the same segment of the job log, but shows the return status.

00 04/07/09 10:23:57.421232 QZSHRUNC QSHELL *STMT SA
From module . . . . . . . . : QZSHRUNC
From procedure . . . . . . : main
Statement . . . . . . . . . : 157
To module . . . . . . . . . : SADESCCL
To procedure . . . . . . . : SADESCCL
Statement . . . . . . . . . : 15300
Message . . . . : Command ended normally with exit status 0.
04/07/09 10:23:57.691680 QCADRV QSYS 03AE SA
To module . . . . . . . . . : SADESCCL
To procedure . . . . . . . : SADESCCL
Statement . . . . . . . . . : 15600
Message . . . . : 15600 - RCVMSG MSGTYPE(*COMP) MSGDTA(&MSGDTA)
MSGID(&MSGID)


My CL code has this:

DCL VAR(&Msgdta) type(*char) len(4)
DCL VAR(&MSGID) TYPE(*CHAR) LEN(7)

QSH CMD('/usr/local/bin/xxx.scr')

/* Check for sFTP error */
RCVMSG MSGTYPE(*COMP) MSGDTA(&MSGDTA) +
MSGID(&MSGID)
/* CHGVAR VAR(&RETURNCODE) VALUE(%BIN(&MSGDTA)) */
/* CHGVAR VAR(&RC) VALUE(&RETURNCODE) */
IF COND(&MSGID *NE 'QSH0005' *OR %BIN(&MSGDTA) +
*NE 0) THEN(DO)
CHGVAR VAR(&MSGTXT) VALUE('SADESCCL/SADDESP - +
FTP FAILED')

And, the failure message was sent to QSYSOPR. Why was a failure message sent?
Something wrong with the RCVMSG or the following test?


John McKee