RE: Testing for input line

["Bob Cozzi" <cozzi@xxxxxxxxx>]

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.