Re: Interactive version of STRDBRDR

["Simon Coulter" <shc@xxxxxxxxxxxxxxxxx>]

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  / \
--------------------------------------------------------------------