Re: Address fields

["Booth Martin" <Booth@xxxxxxxxxxxx>]

Create an array of 7 lines:
Eval  Inx
If  Field7 <> *blanks
Eval    NewLine(Inx)
Eval    Inx End
If  Field6 <> *blanks
Eval    NewLine(Inx)
Eval    Inx End
If  Field5 <> *blanks
Eval    NewLine(Inx)
Eval    Inx End
....

-----------------------------------------------
Booth Martin ResoDirect, ext. 528
BMartin@ResoDirect.com
Booth@MartinVT.com
http://www.MartinVT.com
-----------------------------------------------
-------Original Message-------

From: rpg400-l@midrange.com
Date: Tuesday, May 21, 2002 17:35:53
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.