RE: Help,. I'm stumped.

["Bob Cozzi" <cozzi@xxxxxxxxx>]

I don't have a clue what you're asking for but...
If you generate the DDS, rather than use the TEXT keyword, use the COLHDG
keyword. That way you can separate the title into three parts like this:

  A        MyField       3A     COLHDG('Poor' 'Flow/Grade' 'Y')

Of course, you probably mean that your data is "POOR Flow/Grade" and you
want to parse that value and then put another field's content underneath it.
If so, then forget the COLHDG thing and write a simple parse that paginates
the content of the field into the right size chunks.
-Bob


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of RPower@xxxxxxxxxx
Sent: Tuesday, July 27, 2004 12:19 PM
To: RPG programming on the AS400 / iSeries
Subject: Help,. I'm stumped.

I'm getting off track I can tell.
Here's what I need to do.  Creating a dynamic DDS for a physical file for 
the user in showcase.  The descriptions for the fields can change in a 
data file.  Descriptions are 30 long.  Example of the data:
CAUSE DESC 
Poor Flow/Grade 
Roots 
Grease/Heavy In Line
Debris In Line 
Damaged/Squat 
Pipe Dropped 
Unknown 
Internal Problem 
To create the DDS from these descriptions, I'd like to have them look good 
for Showcase.  For example

Poor
Flow/Grade
   'Y'

I'm not doing a good job of explaining this I know...
Anyway, does anyone have a good way of parsing out the descriptions so 
that I can have the columns look good?  I thought I had an idea about an 
hour ago, but I'm not getting anywhere now.  The max for a column in the 
DDS is 20 per line, plus I'd like to use the blanks as the line separation 
point.  Drawing a blank now, and I quit smoking over the weekend so I'm 
not concentrating like I could I'm sure.  Any help would be appreciated.

Ron Power
Programmer
Information Services
City Of St. John's, NL
P.O. Box 908
St. John's, NL
A1C 5M2
Tel: 709-576-8132
Email: rpower@xxxxxxxxxx
Website: http://www.stjohns.ca/
___________________________________________________________________________
Success is going from failure to failure without a loss of enthusiasm. - 
Sir Winston Churchill


This OutBound email has been scanned for Viruses
--
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.