RE: error handling during *INIT

Hey!  I know this one!!!  :-)

If you let the program open the files you can't trap the error because the
system default error handler is  in charge until your code starts running.
If you declare the files user controlled open, you can put an error
indicator on the OPEN statement and trap any errors at that time.  You can
use the *PSSR to trap and control flow, but it gets ugly.  This is one place
where it's easier to use an indicator! <old-timer-smirk>  You can get the
exact error from the program status data structure, or from the INFSR of the
file in error.

btw, start of program is "file open" or *INZSR time.  Before your code gets
control.  End of program is what happens after you SETON LR - after the last
operation in your program.  System stuff.

Buck Calabro
Billing Concepts Albany, NY

> -----Original Message-----
> From: David Prowak 
> Sent: Wednesday, June 09, 1999 3:37 PM
> To:   midrange list
> Subject:      error handling during *INIT
> 
> Hello,
> I'm trying to handle a CPF4128 (unable to allocate objects needed) from
> within an RPG program.  Unfortunately, this is not an ILE program,
> so I cannot take advantage of the much improved RPG IV 
> error handling capabilities.
> 
> The error occurs during *INIT when the file in question is under the
> control of an exclusive lock from another job.  
> 
> Here's are my questions:
>    1: What's the easiest way for me to determine the specific error?
>    2:  Since the above error occurs during *INIT, will program control be
>         directed to *PSSR or can I use INFSR?
>         This is from the RPG/400 reference:
>              If a file exception/error occurs during the start or end of a
>              program, control passes to the RPG/400 default error handler,
> 
>              and not to the user-written file exception/error or 
>              subroutine (INFSR).
>         What is meant by      "start or end of a program"?  
>      
> Thanks,
> Dave  
> 
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---