×
The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.
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
midrange.com
