Re: SQLRPG Help

[Mark McCarty <M_McCarty@xxxxxxxxxxxxxxxx>]

I would like to thank you all for the great info on handling data
decimal errors.  What I did was a combination of Gary Guthrie's cpyf
suggestion and some embedded sql.

1. recreated source into 'dummy' pf
2. inserted fields from 'production' pf along with default 0 for error
field into 'dummy' 
3. used embedded sql with an rpgle select statement for good, end, and
bad records. The good fields went into    'dummy' and the bad fields
were replaced with 0.
4. cpyf 'dummy' straight back to 'production'.

I probably did more work than necessary, but it's right and I got some
practice with sql.  Once again thank you for your suggestions and WHEN I
come across this same situation again I have a wealth of information to
draw on. 

 
 

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
+---