Re: Replacing characters

["Jim Franz" <franz400@xxxxxxxxxxxx>]

since no one else has posted a rpg solution....
 rpg update of every record in file
exuse the psuedo code & indicators
scan for dash '-'
                z-add 1   x                                          =
      '-'        scan   text:x            pos1                    20
 20             eval  x = pos + 1
** scan for next dash in same line
20   '-'        scan    text:x            pos2                    20
20    pos2   sub    pos1              diff
** xxx-xxx-xxx - dashes 4 bytes apart
20     diff    ifeq      4
** get start of number
          pos1  sub     3                start
                    eval    %subst(text:start:12) = '945-111-2222'
                    update
                    endif

jim

----- Original Message ----- 
From: "Sean Porterfield" <sporter@xxxxxxxxxxxx>
To: "Midrange Systems Technical Discussion" <midrange-l@xxxxxxxxxxxx>
Sent: Friday, March 12, 2004 2:15 PM
Subject: RE: Replacing characters


> > At 11:24 AM 3/12/2004 -0500, Mark Allen wrote:
>
> > >for privacy reasons I need to change all the phone #'s to "fictitous"
> > >numbers i.e. change 706-678-9565 to 945-224-4848 or such.  The
> > >phone numbersstart in a various # of places in the file (i.e. some
> > >might start in position 33 others 55, 87 etc.) I've been racking
> > >my brain for a quick and dirty way to this without having to
> > > manually edit the file.
>
> > From: Vern Hamberg
>
> > Another idea is grep, in QShell.
>
>
> Try sed rather than grep.
>
> _______________________________________________
> This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list
> To post a message email: MIDRANGE-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/midrange-l
> or email: MIDRANGE-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/midrange-l.
>
>