RE: Help I'm stumped -- RPG400-L

Ron,

What is the basis of this file? You said it got its column headings from 
another file (DSPFFD *OUTF?).

I think an easier way to do is to use SQL and write to a file (QMQRT, 
Query/400). Or is this a simplification of your challenge.

Regards,
Carel Teijgeler.

*********** REPLY SEPARATOR  ***********

On 27-7-04 at 16:29 RPower@xxxxxxxxxx wrote:

>Whoops,
>By DDS I meant I'm creating a physical file DDS.  Example:
>A            SRCS1     R               COLHDG('POOR FLOW/GRADE') 
>A            SRCS2     R               COLHDG('ROOTS') 
>A            SRCS3     R               COLHDG('GREASE/HEAVY IN LINE') 
>A            SRCS4     R               COLHDG('DEBRIS IN LINE') 
>A            SRCS5     R               COLHDG('DAMAGED/SQUAT') 
>A            SRCS6     R               COLHDG('PIPE DROPPED') 
>A            SRCS7     R               COLHDG('UNKNOWN') 
>A            SRCS8     R               COLHDG('INTERNAL PROBLEM') 
>A            SRRM1     R               COLHDG('PLUNGED') 
>A            SRRM2     R               COLHDG('CLEAR WITH RODS') 
>A            SRRM3     R               COLHDG('RUN AUGER') 
>A            SRRM4     R               COLHDG('RAN JET/VAC ALL') 
>A            SRRM5     R               COLHDG('DEGREASER/TORPEDO') 
>A            SRRM6     R               COLHDG('CLEANED OUT MANHOLE') 
>A            SRRM7     R               COLHDG('RAN VIDEO') 
>A            SRRM8     R               COLHDG('DIG, SERVICE REPAIR') 
>A            SRRM9     R               COLHDG('RENTAL PROPERY/CO' - 
>A                                      'MMERCIAL') 
>A            SRRM10    R               COLHDG('NO ACTION REQUIRED') 
>
>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
>
>
>
>
>"Larry" <Larry_Ducie@xxxxxxxxxxx> 
>Sent by: rpg400-l-bounces@xxxxxxxxxxxx
>27/07/2004 04:22 PM
>Please respond to
>RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
>
>
>To
><rpg400-l@xxxxxxxxxxxx>
>cc
>
>Subject
>RE: Help I'm stumped
>
>
>
>
>
>
>Ron,
> 
>Not sure this is what you want, but... If you simply want to display the
>field description without chopping words in half when wrapping onto a new
>line - have you thought of using a continuation field and word wrap?
> 
>You can specify your DDS field as a continuation field using CNTFLD. Here
>you set the field length and the maximum length of each section of the
>field. This will then display the field for the length of each section,
>wrapping the field and continuing it with each subsequent section at the
>same starting point but one line lower. If the field is not an exact
>multiple of the section length then the last section will be the length of
>the remaining portion of the field.
> 
>Using word wrap will cause your text to wrap neatly to fit the words into
>the sections. Your words will not be chopped in half, but wrapped to start
>at the beginning of the new section. If you use this then ensure your 
>field
>is large enough to take your description + any trailing blanks caused by
>wrapping. For example, if the description field is 30A then make your 
>field
>at least 40A. This would probably work for you as this will emulate your
>need for placing the description into two 20A fields. I think word 
>wrapping
>is turned off if there is too much data to perform wrapping gracefully. So
>you wont lose data if your description field is full, you'll just lose the
>wrapping effect. Also, if I remember correctly, you need to specify the
>field as input-output (both), but protect it (and remove underline) if you
>want an output-only continuation field.
> 
>Example (from info centre): 
>
>The following example shows how to specify the CNTFLD keyword: 
>
>|...+....1....+....2....+....3....+....4....+....5....+....6....+....7...+.
>..8
>
>00010A          R RECORD
>
>00020A            F1            90A  B  3  4CNTFLD(30) 
>This field will display as three 30A fields, one stacked above the next.
>Just add the WRDWRAP keyword and you're done!
>Hope this helps
>Cheers
>Larry 
>--
>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.
>
>
>
>
>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.