RE: Arrays

["Guy Henza" <guyhenza@xxxxxxxxxxx>]

How about something like:

C/EXEC SQL
C+ Declare C1 cursor for
C+ select a.csal, a.ccust, sum(c.lamt)
C+   from rcm a
C+   join ech b on b.hcust = a.ccust
C+   join ecl c on c.lord = b.hord
C+   where a.csal = :salesman
C+     and c.ldesc like '%CYLINDER%'
C+   group by a.csal, a.ccust
C+   order by a.csal, a.ccust
C/END-EXEC

C/EXEC SQL
C+ Open C1
C/END-EXEC

C/EXEC SQL
C+ fetch from C1 into :Salemn, :customer, :cylamt
C/END-EXEC

C/EXEC SQL
C+ Close C1
C/END-EXEC

Guy
> ------------------------------
>
> date: Tue, 29 Mar 2005 06:27:28 -0800
> from: "Douglas W. Palme" <dpalme@xxxxxxxxxxxxxxxxxxxxx>
> subject: Re: Arrays
>
> I have never used work files, so I would have to do some research on that,
> not that I am opposed to such a venture, but I was hoping to resuse some of
> my existing skills.
>
> The whole reason behind this question is that I have to create a subfile
> that will display based on what salesman number the user enters, YTD
> hardgood sales (which is contained within the customer master file) and 
> then
> Cylinder rent which would be a cumulative amount from the line item file
> (which contains 1.3 million records) and then a calculated field showing 
> the
> total, this has to be done for each different customer number assigned to
> the salesman, and to top it off, I need the data displayed in descending
> order LOL
>
> Pulling the info from the customer master is easy enough, but I would have
> to loop through the line item file hundreds or even thousands of times to
> get the totals.
>
> I thought about creating a logical file for each salesman in customer order
> but maintenance would be heavy, as each time we add a new salesman I have 
> to
> create a new logical file and then modify the code.
>
> I suppose I could create a logical joined file with the pertinent info and
> then key in on the salesman and then customer, but I am not sure if that is
> the best answer.
>
> I am open ears to anyone with any suggestions :)