Error handling

[keith mcintosh <keith_eh@xxxxxxxx>]

When handling errors in an RPG program is it better
to use the *PSSR with the SDS, or import the
_EXCP_MSGID? or is there really a difference? 
Besides the Number of lines of code!

Example 1.
 * ...
D ErrCPF      S         7    import('_EXCP_MSGID') 
 * ... the file keithm doesn't exist.
C            If  System('CLRPFM FILE(keithm)') <> 0  
C  ErrCPF    Dsply    
C            EndIf                                    



or Using Example 2.

 * ...
D PgmSts         SDS                
D  ErrTyp                40     42  
D  CPFNum                43     46      
 * ... the file keithm doesn't exist.
C             Eval  rc = System('CLRPFM FILE(keithm)')

 * ...
C   *PSSR     BegSR 
C             Eval ErrCPF = ErrTyp + CPFNum
C   ErrCPF    dsply  
C             EndSR


Thanks
K.

_______________________________________________________
Do You Yahoo!?
Get your free @yahoo.ca address at http://mail.yahoo.ca
+---
| 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
+---