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

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