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

D ds_Bad DS LikeRec( BadFileFmt: *output )
D ds_Old DS LikeRec( OldFileFmt )
D ds_New DS LikeRec( NewFileFmt: *output )

Read OldFile ds_Old;
If not %eof( OldFile );
evalR 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;

Kurt Anderson
Sr. Programmer/Analyst
CustomCall Data Systems