RE: Catch an error in ILE PRG

Just wondering what happens when your Program A wakes up, and sees a new
file that is still being written to the IFS?  

I've seen several techniques to control this sort of thing, like ftp'ing a
file name like ~abc123.tmp, then renaming to remove the tilde after the
transfer is complete.  This requires a change to the client that is sending
the data, so it may not be appropriate.  You could change your polling
program to capture the size (in bytes) of the files, and only process them
if the size remained unchanged for the last two or three polling intervals.
There's probably an infinite number of ways to skin this problem, but not
all of them are necessarily all that effective.  Anyway, just a thought...

Eric DeLong
Sally Beauty Company
MIS-Project Manager (BSG)
940-898-7863 or ext. 1863



-----Original Message-----
From: Jaime Lopez Ortega [mailto:Jaime.LopezOrtega@xxxxxx]
Sent: Friday, December 03, 2004 4:39 AM
To: rpg400-l@xxxxxxxxxxxx
Subject: Catch an error in ILE PRG



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.