Re: Catch an error in ILE PRG

[Mike Barton <Mike.Barton@xxxxxxxxxxxxxxxxx>]

>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


Jamie
        there is a quik'n'dirty method - simply put an indicator into the LO
column.
     C                   call      'ZO1084'                             99
     C   99              Dump  

Alternatively (n.b. havn't tried this) try the Monitor / Endmon Op-codes

Personally, I would try & delve a bit more into the reason for
the failure if possible. ....

HTH

Mike
###########################################

This message has been scanned by F-Secure Anti-Virus for Microsoft Exchange.
For more information, connect to http://www.F-Secure.com/


This communication and the information it contains: - (a) Is intended for the 
person(s) or organisation(s) named above and for no other person(s) or 
organisation(s). Access to this mail by anyone else is unauthorised. (b) Is 
confidential, and may be legally privileged or otherwise protected in law. 
Unauthorised use, circulation, copying or disclosure of any part of this 
communication may be unlawful. (c) May be susceptible to interference, and 
should not be assumed that it has come in its original form and/or from the 
stated sender or PinkRoccade UK accepts no responsibility for information, 
errors or omissions in this e-mail or use or misuse thereof or any act done or 
omitted to be done in connection with this communication. If you are not the 
intended recipient, please inform postmaster@xxxxxxxxxxxxxxxxx immediately and 
delete it and all copies from your system.