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

If more than one char is non-blank, the trimmed length of the four together
will be > 1.
e.g "YbbN' or "bNYb" (where b = blank)

So, try this:

D CharFieldsDS DS
D Field1 1 A
D Field2 1 A
D Field3 1 A
D Field4 1 A
D AllFields 1 4 A
(This overlays the four fields)

// free
if %Len( %Trim( AllFields ) ) > 1 ;
// your error handler goes here
endf ;
// end-free

Good Luck

In a message dated 1/9/2009 1:57:18 A.M. Jerusalem Standard Time,
bledsoe.bob@xxxxxxxxx writes:

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