RE: Issue with chain and SETLL

["Holden Tommy" <Tommy.Holden@xxxxxxxxxxxxxxxxx>]

This just SCREAMS SQL...
c   *entry plist
c          parm         fromdate
c          parm         todate
c/exec sql
c+ declare cursor SalesData For
c+   Select ilnsoldto,ilninvdate,ilnstk,ilnqtyshp,ilneprice,ilneuavcst from
c+  impiln00 where ilninvdate between ? and ? Order By ilnsoldto,ilninvdate
c+               ,ilnstk
c/end-exec
c/exec sql
c+ Open SalesData Using :fromdate,:todate
c/end-exec

then to read...

c/exec sql
c+ Fetch SalesData Into :MyDS
c/end-exec

where myDS is the same layout as the record.  positioning is off i'm sure I 
coded this in outlook...but you should be able to get the idea...

Thanks,
Tommy Holden


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Douglas W. Palme
Sent: Thursday, June 02, 2005 3:43 PM
To: RPG Group
Subject: Issue with chain and SETLL


I am in need of some help......

I have a LF that contains the following:

0001.00                 R SALES                     PFILE(IMPILN00) 
0002.00      A            ILNSOLDTO                                 
0003.00      A            ILNINVDATE                                
0004.00      A            ILNSTK                                    
0005.00      A            ILNQTYSHP                                 
0006.00      A            ILNEPRICE                                 
0007.00      A            ILNEUAVCST                                
0008.00      A          K ILNINVDATE                                
0009.00      A          K ILNSOLDTO                                 
0010.00      A          K ILNSTK                                    

What I am trying to accomplish here is display a subfile with stock totals 
for the various sales staff individuals for their respective customers.

At first I had the primary K set to ILNSOLDTO so I could chain the file and 
verify the entered (coming from a DSPF) customer number is / was valid.  
Then I need to do a SETLL for the specific data range they want....

I really need to keep the records grouped by the customer number, then in 
date order and then by stock number, that way I can do a READE until the 
customer number changes and thus EOF display the data and I'm out.

I know I can eval each record for the date but it seems that will only take 
a ton more time....correct? Incorrect? 

Suggestions or ideas would be appreciated.