Re: Trapping errors with CALLP?

[bmorris@xxxxxxxxxx]

>Date: Thu, 23 Dec 1999 09:02:35 -0600
>From: David Gibbs <dgibbs@mks.com>
> ...
>I've run into a problem using CALLP ... I can't trap errors.
> ...

David, the only way you can trap errors in CALLP in V3R2 is
to wrap the call in a subprocedure that has a *PSSR subroutine.
This technique can be used for any sequence of code that might
get an error.

D DoCmd           PR             1A
D   Cmd                       4096A   CONST
D   Len                         15P 5 CONST

C              EVAL   *IN99 = DoCmd('ADDLIBLE ASDF'
C                           : %SIZE('ADDLIBLE ASDF')


P DoCmd           B                   EXPORT
D DoCmd           PI             1A
D   Cmd                       4096A   CONST
D   Len                         15P 5 CONST

DQCMDEXC          PR                  EXTPGM('QCMDEXC')
D prCmdStr                    4096A   CONST
D prCmdLen                      15P 5 CONST

C              CALLP  QCMDEXC (Cmd : Len)
C              RETURN '0'

C     *PSSR    BEGSR
C              RETURN '1'
C              ENDSR

P DoCmd           E

Barbara Morris


+---
| 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
+---