Re: Identifying Numeric Columns with Bad Data - S36 DDS Conversion

[Jim Franz <franz9000@xxxxxxxxx>]

simple rpgle  - it does not identify where the bad data is inserted, but
will fix the numeric columns
this is a fix after file converted to dds

HALWNULL(*INPUTONLY) FIXNBR(*ZONED)
Faddr      up   e           k disk
C                   update    @addr
****************** End of data *******

if character data issue (like copy/paste from word docs or email... replace
invalid character data with a blank
f* 10/24/2015 jf replace invalid characters with blank

Faddr      up   e             disk

D svlong          S            150

D @chg            S              1

D pos             S              3S 0
 position
D Valid           C                   'ABCDEFGHIJKLMNOPQRSTUVWXYZ012345678-

D                                     9!abcdefghijklmnopqrstuvwxyz:;_''"-

D                                     @#$%&*()+-=/?,.\<> '

c*

c                   eval      svlong = adlong

c                   eval      @chg = 'N'

c* replace invalid characters with blank

c                   dow       1=1

c                   eval      pos=%check(valid  : adlong)

c                   if        pos > 0

c                   eval      %subst(adlong:pos:1) = ' '

c                   eval      @chg = 'Y'

c                   else

c                   leave

c                   ENDIF

c                   ENDDO

c                   if        @chg  = 'Y'

c                   update    @addr

c                   endif
****************** End of data *

Jim Franz

On Mon, Mar 16, 2026 at 11:58 AM <dr2@xxxxxxxx> wrote:

> OK, I've not done this in a long time, but presuming you can still
> compile with ignore decimal data error, create a conversion pgm that has
> that, then test each field you're reading in and respond/correct pro re
> nata....
>
> Just a thought off the top of my balding pointed little head....
>
> DR2
> --
> This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
> To post a message email: MIDRANGE-L@xxxxxxxxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: https://lists.midrange.com/mailman/listinfo/midrange-l
> or email: MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at https://archive.midrange.com/midrange-l.
>
> Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related
> questions.