Re: SQLRPG Help

[Seth.D.Shields@xxxxxxxx]

Mark,

Give this a try.  Note: I'm no fan of RPG Cycle but it is effective in some
places.

 FMYFILE      UPE E                    DISK
 C                     UPDATMYFILE

Compile this with parm IGNDECERR(*YES) and run it.  I think this will do exactly
what you want it to do.

Kind Regards,
Seth Shields




|--------+---------------------------->
|        |          Mark McCarty      |
|        |          <M_McCarty@worldne|
|        |          t.att.net>        |
|        |                            |
|        |          02/17/00 05:56 PM |
|        |          Please respond to |
|        |          RPG400-L          |
|        |                            |
|--------+---------------------------->
  >--------------------------------------------------|
  |                                                  |
  |       To:     RPG400-L@midrange.com              |
  |       cc:     (bcc: Seth D Shields/BUS/blum)     |
  |       Subject:     SQLRPG Help                   |
  >--------------------------------------------------|





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