Re: arangeing 10 fields

[Jim Langston <jlangston@xxxxxxxxxxxxxxxx>]

I was thinking this too, but wouldn't it be possible to overlay another
array with the fields?  I'm not sure of the syntax, but build an array
and overlay it starting with Field1.

Then you can do

    Eval    CurrentArr = 1
    DO    10    X
    If        FieldArr(X) <> *Blanks
    Eval    NewArray(CurrentArr) = FieldArr(X)
    Eval    CurrentArr = CurrentArr + 1
    EndIf

And at the end you'll have your NewArray filled with the values from
the fields, from 1 to the number of active fields.

Regards,

Jim Langston

"Martin, Booth" wrote:

>   If    Field1 <> *BLANKS
>   EVAL  IDX = (Idx + 1)
>   EVAL  ARRAY(IDX)= Field1
>   End
>
>   If    Field2 <> *Blanks
>   EVAL  IDX = (Idx + 1)
>   EVAL  ARRAY(IDX)= Field2
>   End
>
> etc....
>
> The array will have the data in close-order.  Your problem is trivial at
> that point.
>
> -----Original Message-----
> From: Chris Beck [mailto:CBeck@good-sam.com]
> Sent: Friday, February 11, 2000 1:55 PM
> To: boothm@goddard.edu
> 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
> +---

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