RE: Find all occurences of alpha characters in a string -- RPG400-L

Works great Carsten.  Thanks

_________________
Art Tostaine, Jr.
CCA, Inc.
Jackson, NJ 08527

> -----Original Message-----
> From: rpg400-l-admin@midrange.com [mailto:rpg400-l-admin@midrange.com]On
> Behalf Of Carsten Flensburg
> Sent: Tuesday, February 05, 2002 10:36 AM
> To: rpg400-l@midrange.com
> Subject: Re: Find all occurences of alpha characters in a string
>
>
> Replace:
> C                   If        %Check( Num: ChkAlf ) > *Zero
>
> with:
> C     Num           Check     ChkAlf
> C                   If        %Found
>
> Best regards,
> Carsten Flensburg
>
> ----- Original Message -----
> From: "Art Tostaine, Jr." <artjr@link400.com>
> To: <rpg400-l@midrange.com>
> Sent: Tuesday, February 05, 2002 4:10 PM
> Subject: RE: Find all occurences of alpha characters in a string
>
>
> > Carsten:
> >
> > Thanks, but I forgot to mention that this is V4R5.  I don't see %Check 
>there.
> >
> > _________________
> > Art Tostaine, Jr.
> > CCA, Inc.
> > Jackson, NJ 08527
> >
> > > -----Original Message-----
> > > From: rpg400-l-admin@midrange.com [mailto:rpg400-l-admin@midrange.com]On
> > > Behalf Of Carsten Flensburg
> > > Sent: Tuesday, February 05, 2002 9:38 AM
> > > To: rpg400-l@midrange.com
> > > Subject: Re: Find all occurences of alpha characters in a string
> > >
> > >
> > > Hello Art,
> > >
> > > Here's one way to do it:
> > >
> > > D Pos             s              5u 0
> > > D ChkAlf          s              1a
> > > D ItmNbr          s             30a   Inz( 'C 123 456 78F' )
> > > D FldAlf          s             30a   Varying
> > > D FldNum          s             30a   Varying
> > > **
> > > D Num             c                   '0123456789'
> > > **
> > > C                   For       Pos = 1 to  %Len( %TrimR( ItmNbr ))
> > > **
> > > C                   Eval      ChkAlf     = %SubSt( ItmNbr: Pos: 1 )
> > > C                   If        ChkAlf     > *Blank
> > > **
> > > C                   If        %Check( Num: ChkAlf ) > *Zero
> > > C                   Eval      FldAlf     = FldAlf + ChkAlf
> > > **
> > > C                   Else
> > > C                   Eval      FldNum     = FldNum + ChkAlf
> > > C                   EndIf
> > > C                   EndIf
> > > **
> > > C                   EndFor
> > > **
> > > C                   Return
> > > **
> > >
> > >
> > > ----- Original Message -----
> > > From: "Art Tostaine, Jr." <artjr@link400.com>
> > > To: <rpg400-l@midrange.com>
> > > Sent: Tuesday, February 05, 2002 3:09 PM
> > > Subject: Find all occurences of alpha characters in a string
> > >
> > >
> > > > I have a field that I am trying to seperate into alpha and numeric.
> > > >
> > > > Examples would be:
> > > >
> > > > "C 123456"
> > > > "1234567C'
> > > > "C1  12345678"
> > > > "C123456"
> > > >
> > > > I want any alpha's in one field and any numerics in another alpha 
>field.  I will use Barbara's GETNUM to convert the
> > > numeric portion
> > > > to a real number later.
> > >
> > >
> > > _______________________________________________
> > > This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> > > To post a message email: RPG400-L@midrange.com
> > > To subscribe, unsubscribe, or change list options,
> > > visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> > > or email: RPG400-L-request@midrange.com
> > > Before posting, please take a moment to review the archives
> > > at http://archive.midrange.com/rpg400-l.
> > >
> > _______________________________________________
> > This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> > To post a message email: RPG400-L@midrange.com
> > To subscribe, unsubscribe, or change list options,
> > visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> > or email: RPG400-L-request@midrange.com
> > Before posting, please take a moment to review the archives
> > at http://archive.midrange.com/rpg400-l.
> >
>
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>