|
The Except statement puts the records out immediately as well. I had similar problem once before. Although some might consider the Except statement archaic for this purpose but it gets the job done easily <g>. Ron Power Programmer Information Services City Of St. John's, NL P.O. Box 908 St. John's, NL A1C 5M2 Tel: 709-576-8132 Email: rpower@xxxxxxxxxx Website: http://www.stjohns.ca/ ___________________________________________________________________________ Success is going from failure to failure without a loss of enthusiasm. - Sir Winston Churchill Ken Sims <mdrg4136@xxxxxxxxx> Sent by: rpg400-l-bounces@xxxxxxxxxxxx 13/08/2004 12:26 AM Please respond to RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx> To rpg400-l@xxxxxxxxxxxx cc Subject Re: chain problem >The CHAIN is probably failing because the write was buffered. > >You can either try a FEOD (force end of data) after the WRITE to force the >record to disk or change the file's force-write ratio to something smaller >(like 1). Either use CHGPF FRCRATIO(1) or OVRDBF FRCRATIO(1) Don't use FRCRATIO(1). That forces the program to wait until the data is actually written to the disk. Use OVRDBF SEQONLY(*NO) or block(*no) on the F-spec if you're in RPG IV. If you're using RPG III and don't want to use OVRDBF, you can code the file as update/add and have some dummy operations to keep the compiler happy. Any of these methods will eliminate program buffering so that the data is immediately available, but still allow the operating system to write it to the hard drive asynchronously. -- Ken http://www.ke9nr.net/ Opinions expressed are my own and do not necessarily represent the views of my employer or anyone in their right mind. -- 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 OutBound email has been scanned for Viruses
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.