Re: Best method to determine if more than one field not blank

["Rory Hewitt" <roryhewitt@xxxxxxxxx>]

Bob,

You could have them all defined in a DS and then check the trimmed length of
the DS...

D Fields          DS
D   Fld1                     1A
D   Fld2                     1A
D   Fld3                     1A
D   Fld4                     1A

if %len( %trim( Fields ) ) > 1;
  exsr error;
endif;

Rory

On Thu, Jan 8, 2009 at 3:37 PM, Bob Bledsoe <bledsoe.bob@xxxxxxxxx> wrote:

> I have four 1 char fields and I only want 1 of the four to be able to
> contain a char at a time. I could check each field after it returns from
> the
> screen and add 1 to a variable if it is not blank and if the variable is
> greater than 1 return an error.
>
> Is there a better way to do this?
>
> Thanks,
> Bob B