Re: Return error to FTP RCMD

Hmmmm...  I replied to this question already...   did you miss my original
message, or should I re-post it?

At any rate, it both explained why calling SNDPGMMSG from QCMDEXC didn't
work, and also how to properly send your escape message from an RPG
program...


On Thu, 30 Nov 2000, Steve Moland wrote:

> Hopefully this message isn't garbled this time.
> *************
> 
> 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  
> 
> 

+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---