RE: Arrays

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

------------------------------

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 :)