RE: Testing for input line

Thanks Bob, I'll try that, in addition I can't seem to get the errmsg to 
display when the field is blank, but that may be a separate issue....I know 
that I have indicator 20 set for it in the field description errmsg 
condition but I'll have to deal with that after I make this trim change.

Douglas


On Wed, 9 Mar 2005 11:00:28 -0600, Bob Cozzi wrote
> Douglas,
> I've always been under the impression that *BLANK and *BLANKS were 
synonyms.
> That is the compiler would generate an internal constant that was 
> the same length as the associated variable (DNAME in this case)
>  regardless of which one you would use. Is DNAME a VARYING field? 
> Although that shouldn't make any difference either. What will work 
> is if you code this:
> 
> If  %trim(dname) = ''
> 
> Where the '' has no space between it.
> 
> -Bob
> 
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
> On Behalf Of Douglas W. Palme
> Sent: Wednesday, March 09, 2005 10:26 AM
> To: RPG programming on the AS400 / iSeries
> Subject: Testing for input line
> 
> I am trying to test for an input line to determine if there is 
> anything being passed back to the program.
> 
> I thought I could use something like
> 
> if           dname = *blank
> eval         *in20 = *on
> endif
> 
> But unfortunately putting the *blank in there always fires.  I 
> believe it happens when you have a 25 character line and not all of 
> the positions are filled.
> 
> Suggestions?
> 
> Douglas
> -- 
> This is the RPG programming on the AS400 / iSeries (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.
> 
> -- 
> This is the RPG programming on the AS400 / iSeries (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.


--
Open WebMail Project (http://openwebmail.org)