Re: Interactive version of STRDBRDR

Simon,

I would be very interested in the code for STDERR.  Would you be willing to 
share?

Regards,
Michael Polutta
Atlanta, GA

> Hello Joe,
>
> You wrote:
> >This looks very nice, Simon.  EXTQUALOBJ I understand, but I'm a little
> >unclear as to what exactly STDERR does.  Also, just so you know, the mailing
> >list truncates the lines, so the header comments get lost.  No big deal, I
> >can deal with that.
>
> The headers were intact in the copy I received from the list.  They had
> wrapped so the ending comment characters were on the following line but that
> is easily fixed.
>
> STDERR is just a standard error handler but wrapped in a command and CPP so I
> don't have to clone error handling code in all my CL programs.  I say 'just'
> but it is a bit cleverer than that.  It alters its behaviour according to
> whether the caller is a CLP or CLLE and it can vary for CPP, VCP, POP, CP,
> etc.  It can send a message to the system operator and wait for a reply.  It
> can dump the job, program stack, job structures, or addressed objects.
> However, you could easily replace it with the usual:
>
> ERROR:      RCVMSG     MSGTYPE(*EXCP) MSGDTA(&MSGDTA) MSGID(&MSGID) +
>                          MSGF(&MSGF) MSGFLIB(&MSGFLIB)
>             MONMSG     MSGID(CPF0000 MCH0000) EXEC(RETURN)
>             /* just in case */
>             IF         COND(&MSGID *NE &BLANK) THEN(DO)
>               SNDPGMMSG  MSGID(&MSGID) MSGF(&MSGFLIB/&MSGF) +
>                            MSGDTA(&MSGDTA) MSGTYPE(*ESCAPE)
>               MONMSG     MSGID(CPF0000 MCH0000) EXEC(RETURN)
>               /* just in case */
>             ENDDO
>
> or something similar.
>
> Regards,
> Simon Coulter.
> --------------------------------------------------------------------
>   FlyByNight Software         AS/400 Technical Specialists
>
>   http://www.flybynight.com.au/
>   Phone: +61 3 9419 0175   Mobile: +61 0411 091 400        /"\
>   Fax:   +61 3 9419 0175   mailto: shc@flybynight.com.au   \ /
>                                                             X
>                 ASCII Ribbon campaign against HTML E-Mail  / \
> --------------------------------------------------------------------