Re: RegEx Question

[Scott Klement <rpg400-l@xxxxxxxxxxxxxxxx>]

Personally, I wouldn't want to force the user to type everything 
right-aligned.  Why make the user do this when it's just as easy to have 
your program adjust it to the right?

Do something like this:

  evalr  BankAcct = %triml(BankAcct)

As for checking that it consists only of digits, I'd use the %CHECK BIF 
to keep things simple.

    if %check('0123456789': %trim(BankAcct)) > 0;
       // bad data in BankAcct
    endif;

That's my thought, anyway.




On 6/25/2013 8:20 AM, Buzz Fenner wrote:
> In the past, I've utilized SK's, aka The Great One, nifty little utility
> employing regular expressions within RPG. It's worked great for me up until
> now. So I figure I'm overlooking something.
>
>
>
> I have a 20-character field (bank account) that needs to only contain blanks
> or digits. In addition, the digits must be contiguous and right aligned.
> Some examples are:
>
>
>
> '12345678901234567890' (good)
>
> '                              67890' (good)
>
> '                            #67890' (not good)
>
> '                            56789  ' (not good)
>
>
>
> This is what I'm using for the pattern: '^[ ]*[0-9]+$'. I've also tried
> coding it this way: '^\s*\d+$'. It works, mostly, but doesn't flag the last
> example as a bad string. I would have thought the end-of-string anchor would
> flag the string as bad, unless it stops checking after the digit '9' thereby
> ignoring the space in the last position of the string.
>
>
>
> Buzz Fenner
>
> Business Systems Analyst/Systems Administrator
>
> City Water & Light
>
> 870.930.3374 | 870.219.5229
>
> bfenner@xxxxxxxxxxxxxxxx