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

["Bob Bledsoe" <bledsoe.bob@xxxxxxxxx>]

The Data Structure Seems to work great. I would never have thought of that.

Thanks All

Bob B

On Thu, Jan 8, 2009 at 7:35 PM, <Asher613Smith@xxxxxxx> wrote:

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