Re: SQLRPG Help

[Gary Guthrie <GaryGuthrie@xxxxxxxx>]

You can create an identical file with an additional numeric field at the
end (1 byte with 0 decimal positions is fine). Use CPYF to copy from
your original file to the new file. Then CPYF back from the new file to
the original file. Use FMTOPT(*MAP *DROP) on the CPYFs.

This will set any numeric fields with invalid decimal data to their
default value (ZERO is the default default!).

Gary Guthrie



Mark McCarty wrote:
> 
> I have a decimal data error that somehow long ago got into a field.  Is
> there a way using sql toreplace the error with a 0.  When I try a simple
> update it gives me an 802 error with type 6(data decimal).
> 
> The way I am looking at is to copy all the records minus the field into
> a dummy file and place a zero
> into default zero in the bad field, update the non error fields with the
> correct values and that would leave 0 in the bad records, then cpyf back
> to the real file.
> 
> Any suggestions on a simpler approach?
> 
> Mark A McCarty
> +---
> | This is the RPG/400 Mailing List!
> | To submit a new message, send your mail to RPG400-L@midrange.com.
> | To subscribe to this list send email to RPG400-L-SUB@midrange.com.
> | To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator: david@midrange.com
> +---
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---