RE: Efficient Code

I've done exactly this same thing in OPNQRYF.  Used Peter's approach also.

| -----Original Message-----
| [mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Walden H. Leverich
| III

| SQL!
| 
| I would build the SQL Statement dynamically. Something like:
| 
| Sql = 'select <the fields you need> from thefile 
|       where key1=key1value 
|       and key2=key2value 
|       and key3=key3value and '
| 
| If Field1Value <> ''
|       Sql = Sql + 'Field1 = Field1Value and '
| End IF
| 
| If Field2Value <> ''
|       Sql = Sql + 'Field2 = Field2Value and '
| End IF
| 
| ...
| 
| And then open and read the SQL. 
| 
| Keep in mind that using SQL does not negate the need for a good supply if
| logicals. The SQL will work with out any logicals, but if you want it to
| perform well you'll need a good supply of logicals with the 
| "correct" keys.
| "Correct" is dependent on the data you have in each of these fields.