RE: just curious - Number of Parms(numeric zip codes and other cr imes against nature)

[Chris Bipes <chris.bipes@xxxxxxxxxxxxxxx>]

Why yes there is a solution for printing.  Use one large character field and
concatenate the individual fields together using the %Trim Biff.

i.e. 
Eval    Addr3 = %TrimR(City) + ' ' + StateCode + %TrimL(ZipCode)

Print Addr3.

Also for Green Screens, define the zip code as 6 char.  If you only have 5
characters, leave a trailing blank. If the zip code is 6 characters, Canada,
display all 6.  If the zip code if longer, show the first 5 characters with
a "+" in position 6.  Also protect the field.  The user can press F4, or
what ever, to see the full zip code in a window and edit it.

Maybe not as nice as a scrollable field but it works great!

Christopher K. Bipes    mailto:ChrisB@Cross-Check.com
Sr. Programmer/Analyst  mailto:Chris_Bipes@Yahoo.com
CrossCheck, Inc.        http://www.cross-check.com
6119 State Farm Drive   Phone: 707 586-0551 x 1102
Rohnert Park CA  94928  Fax: 707 586-1884

If consistency is the hobgoblin of little minds, only geniuses work here.
Karen Herbelin - Readers Digest 3/2000

-----Original Message-----
From: Buck Calabro [mailto:buck.calabro@aptissoftware.com]
Sent: Monday, July 31, 2000 7:05 AM
To: rpg400-l@midrange.com
Subject: Re: just curious - Number of Parms(numeric zip codes and other
cr imes against nature)


Peter Dow wrote:

I thought the very same thing until I thought about all the real estate
eaten up on every display and printer file.  This is one of those places
where green screen is weak compared to GUI.  

(obligatory RPG related comment to stay on topic:)
Fortunately for us RPG folk, there's always Visual Age for RPG or Visual
RPG...   Allows us to create a text box that is only 1 inch long but it can
"scroll" to allow many more than the nominal 10 characters.  Alas there's no
easy solution for printing.

Buck Calabro
Aptis; Albany, NY
"We are what we repeatedly do.
 Excellence, then, is not an act, but a habit." --Aristotle
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---