Re: arangeing 10 fields

i feel that if we would try to perform an array maniputation then the actual 
sequence of data would be corrupted, an easy way to go about it is to


     ** move incoming fields into Array1 ; subscript X, then

     DOW   x <=10
     IF    Arraya(X) > *blanks
     Eval  y = y + 1
     Eval  Array2(y) = Array1(X)
     ENDIF
     Eval  X = X + 1
     Enddo



From: "Mark Walter" <mwalter@netrax.net>
Reply-To: RPG400-L@midrange.com
To: <RPG400-L@midrange.com>
Subject: Re: arangeing 10 fields
Date: Mon, 14 Feb 2000 14:51:28 -0500

Can you try to load the data into an array and sort the array descending and
print the elements.
-----Original Message-----
From: Chris Beck <CBeck@good-sam.com>
To: RPG400-L@midrange.com <RPG400-L@midrange.com>
Date: Friday, February 11, 2000 4:37 PM
Subject: arangeing 10 fields


 >I have 10 fields. some of them have data in them, some don't and it varies
with every record.
 >
 >I need to have a report that has the data in the fields.
 >
 >
 >but I need the data to look pretty. Not just one here and one there.   so
how can I take the data and make it all line up nicely.
 >
 >What I have:   fld1     fld2      fld3      fld4     fld5      fld6
etc.....
 >                       xyz                             dba
fda
 >
 >What I want:   fld1     fld2      flk3       fld4     fld5      fld6
etc.....
 >                       xys      dba      fda
 >
 >I can do it with selects   but that seems like a lot of lines of code to 
do
this.  There must be a better way.
 >
 >any help would be appreciated.
 >
 >
 >
 >+---
 >| 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
 >+---
 >

+---
| 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
+---

______________________________________________________
Get Your Private, Free Email at http://www.hotmail.com

+---
| 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
+---