|
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.
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.