RE: Address fields

[Jim Langston <jlangston@xxxxxxxxxxx>]

The way I've done it, 7 different fields.

AddLines = 0
If Add1 <> *Blanks
   Print Add1
   AddLines = AddLines + 1
EndIf
If Add2 <> *Blanks
   Print Add2
   AddLines = AddLines + 1
EndIf
If Add3 <> *Blanks
   Print Add3
   AddLines = AddLines + 1
EndIf
etc...

I usually do the AddLines type variable because I usually need to know how
many blank lines to print afterward so the next non address line prints in
the same spot regardless of how many address lines I printed.

Regards,

Jim Langston

-----Original Message-----
From: Wills, Mike N. (TC) [mailto:MNWills@taylorcorp.com]
Sent: Tuesday, May 21, 2002 2:31 PM
To: Midrange - RPG (E-mail)
Subject: Address fields


I am creating a PO and need the users would like me to scrunch the address
together. I am not sure how to best do this. There is to 7 lines for the
address most of the time it will only be 4.

Example:
(this is what I have now)
Mike Wills
123 Wills St.


Somewhere, MN 56000


(this is what I want)
Mike Wills
123 Wills St.
Somewhere, MN 56000

This is in my print file header record.

Any ideas would be helpful.

Mike Wills
IT Corporate Support
Taylor Corporation
mnwills@taylorcorp.com
Phone: (507) 386-3187


_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
or email: RPG400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.