Receiving a *COMP message

[John McKee <jmmckee@xxxxxxxxxxxxxx>]

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