Re: Catch an error in ILE PRG

[Raul Jager <raul@xxxxxxxxxx>]

There are several ways to do it:

1- Instead of CALL use SUBJOB. The process goes to batch an your main job 
keeps working reagaarless of the way the other ends.

2- Add the modifier e in CALL(e)  and then use "If %error()...

3- Use a MONITOR group

4- Add validation in the called progran, so it will end gracefully.

________________________________________________________________
El Friday 03 December 2004 07:38, Jaime Lopez Ortega escribió:
> 
> Hi,
> 
> I did 2 programms,Program A, that is checking a IFS folder every 10 seconds 
and if there is any files inside, then calls to Program B. This Program B 
with the IBM XML Toolkit (QXML4PR400) reads the files and writes the data in 
our DB. So far so good. We have this system in about 10 different customers 
and we process more than 1000 files per day (all together). In just one of 
our customer we have a problem, and in 6 months (time that the process is 
already tunning), the Program B crashes. The Log is the following:
> 
> Pointer not set for location referenced.
> Function check. MCH3601 unmonitored by QXML4PR400 at statement 0000000001, 
instruction X'0000'.
> The call to ABC_UPDATE ended in error (C G D F)
> 
> The Program A calls the Program B like this:
> 
>      C                   call      'ZO1084'
>      C                   parm                    strFile
>      C                   parm                    strFromII
> 
> Is there a easy way of if this error comes again, just to stop the Program B 
without making Program A also crash. (Doesn´t really matter what is happening 
with the XML file and the data)?
> Some sort of Try / Catch (like Java) in RPG?
> 
> Thanks a lot 
> 
> Mit freundlichen Grüssen
> 
> Jaime López Ortega
> 
> Ldv Systema Software GesmbH
> Linzer Bundesstrasse 61A
> A-5023 Salzburg
> Tel      +43 662 664640 ..14
> Fax      +43 662 664640 2514
> Mail     ortega@xxxxxx 
> Internet www.ldv.at
> 
> --
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>