Return error to FTP RCMD

[Steve Moland <Steve@xxxxxxxxxxx>]

I’ve an ILE RPG program which is called from FTP via RCMD and the RPG pgm does various things based on the value of parameters.

 

Sometimes there are reasons the RPG pgm cannot complete it’s tasks and I want to raise some error message process so that an FTP’s 550 message will contain the text of a message I prepare from within the RPG pgm. For various reasons I do not want to call the RPG pgm by calling a CL first.

 

I’ve tried used Qcmdexc from with the RPG pgm to do the following  SNDPGMMSG  MSGID(CPF9898) MSGF(QCPFMSG)  MSGDTA('THIS PGM FAILED') MSGTYPE(*ESCAPE)                      

 

After executing this I ended the RPG pgm normally. FTP got a 250 message for a successful execution. I put the SNDPGMMSG in a CL pgm and called it directly from FTP and my error text message appeared in an FTP 550 message.

 

Any ideas on why I can’t accomplish sending back the error message from within the RPG pgm.

 

Steve Moland