Re: Constraining a logical file

[rob@xxxxxxxxx]

You don't filter an index.  You filter in a view
CREATE VIEW.
ORDER BY is not allowed in a view.

select * from rob/parninpf
....+....1....+....2....+
FIELD2  FIELD1  SOMESTUFF
          A 
  X       A 
  X       B 
  X       Q 
          R 
********  End of data  **

select * from rob/parninpf 
where field2='X' and field1 in('A', 'B', 'C')
....+....1....+....2....+
FIELD2  FIELD1  SOMESTUFF
  X       A 
  X       B 
********  End of data  **

CREATE VIEW ROB/PARNINLF as( 
select * from rob/parninpf 
where field2='X' and field1 in('A', 'B', 'C'))

select * from rob/parninlf
....+....1....+....2....+
FIELD2  FIELD1  SOMESTUFF
  X       A 
  X       B 
********  End of data  **

And, much to my surprise I was able to process the view with traditional 
RLA.
     FPARNINLF  IF   E             DISK    rename(parninlf:parninlfr)
      /free
       dou 1<>1;
         read(e) parninlf;
         if %error or %eof(parninlf);
           leave;
         ENDIF;
         // your processing here
         dsply field2;
       EndDo;
       *inlr=*on;
      /end-free 

> call parninpgm 
  Arrival sequence ignored for member PARNINLF.
  DSPLY  X 
  DSPLY  X 


Rob Berendt