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
--
This is the RPG programming on the IBM i / System i (RPG400-L) mailing
list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.



**************A Good Credit Score is 700 or Above. See yours in just 2 easy
steps!
(
http://pr.atwola.com/promoclk/100000075x1215047751x1200957972/aol?redir=http://www.freecreditreport.com/pm/default.aspx?sc=668072%26hmpgID=62%26bcd=De
cemailfooterNO62)
--
This is the RPG programming on the IBM i / System i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.