×
The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.
And that should have been eval-corr (not evalR). Oi!
Here is it re-presented.
D ds_Bad DS LikeRec( BadFileFmt: *output )
D ds_Old DS LikeRec( OldFileFmt )
D ds_New DS LikeRec( NewFileFmt: *output )
DoU %eof( OldFile );
Read OldFile ds_Old;
If not %eof( OldFile );
eval-corr ds_New = ds_Old;
// Handle any change in field name/definitions
Monitor;
ds_New.SizeN = %int( ds_Old.SizeA );
Write NewFileFmt ds_New;
On-Error;
ds_Bad = ds_Old;
Write BadFile ds_Bad;
EndMon;
EndIf;
EndDo;
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Kurt Anderson
Sent: Monday, February 20, 2012 1:20 PM
To: RPG programming on the IBM i / System i
Subject: RE: Print Data Decimal Error in RPGLE
And of course you'd have to loop the read (or cycle it).
Was trying to throw something together quickly.
-Kurt
-----Original Message-----
Hi William,
You could have the program read in the old file and write out to the new file while monitoring for any issues. If you encounter an issue, write to a bad file (which should have the same layout as the 'old' file).
Kurt Anderson
Sr. Programmer/Analyst
CustomCall Data Systems
--
This is the RPG programming on the IBM i / System i (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.
midrange.com
