RE: Catch an error in ILE PRG -- RPG400-L

If there's a command RLSIFSLCK, doesn't that imply that there would be an 
api to list ifs locks?  If there is no IFS lock then process the file?
Don't know why I didn't think of this when receiving FTP from customers.

Rob Berendt
-- 
Group Dekko Services, LLC
Dept 01.073
PO Box 2000
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com





"DeLong, Eric" <EDeLong@xxxxxxxxxxxxxxx> 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
12/03/2004 10:37 AM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
"'RPG programming on the AS400 / iSeries'" <rpg400-l@xxxxxxxxxxxx>
cc

Subject
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.



--
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.