FILTER FILE - Filtros generales sobre fuentes de datos

[Mikel Gómez]

Con FILTER FILE es posible la definición de filtros generales sobre
cualquier fichero o tabla y su consiguiente activación para su uso
(durante toda la sesión) con cualquiera de las peticiones posteriores
sobre la citada fuente de datos.

*** Sintaxis:

FILTER FILE <master> [CLEAR|ADD]
[defines-filter;]
NAME=nombre1 [,DESC=descripción1]
filtros WHERE
.
.
NAME=filtron [,DESC=descripciónn]
filtros WHERE
END

*** Ejemplo:

-* FILTER FILE - Filtro general a fichero CAR.
FILTER FILE CAR
-* Campos temporales/locales.
CONTA/I5 WITH MODEL = CONTA + 1 ;
MARGEN/D9 = RCOST - DCOST ;
-* Definición de filtros.
NAME=NO4, DESC=No recuperar primeros 4 registros
WHERE CONTA GT 4
NAME=EUROPE, DESC=Países europeos.
WHERE COUNTRY NE 'JAPAN'
NAME=NOEUROPE, DESC=Países no europeos.
WHERE COUNTRY EQ 'JAPAN'
NAME=PUERTAS4, DESC=Modelos de 4 puertas.
WHERE MODEL CONTAINS '4 DOOR'
NAME=MARGEN, DESC=Ventas > 1000 con margen > 1000.
WHERE MARGEN GT 1000
WHERE SALES GT 1000
END
-RUN

-* Mantenimiento de filtros activos con JOIN.
SET KEEPFILTERS = ON

-* Activación de 3 de los filtros.
SET FILTER=EUROPE PUERTAS4 IN CAR ON
SET FILTER=MARGEN IN CAR ON
-RUN

-* Visualización de filtros activos.
? FILTER

-* Mantenimiento de filtros activos con JOIN
SET KEEPFILTERS = ON

-* Consulta.
TABLE FILE CAR
SUM SALES RCOST DCOST
BY COUNTRY
BY CAR
BY MODEL
END
-RUN

*** Salida de ? FILTER

SET FILE FILTER NAME DESCRIPTION
--- -------- ----------- ---------------------------------
CAR NO4 No recuperar primeros 4 registros
* CAR EUROPE Países europeos.
CAR NOEUROPE Países no europeos.
* CAR PUERTAS4 Modelos de 4 puertas.
* CAR MARGEN Ventas > 1000 con margen > 1000.
NUMBER OF RECORDS IN TABLE= 4 LINES= 4
ACCESS LIMITED BY FILTERS

*** Referencia:
http://documentation.informationbuilders.com/masterindex/html/html_wf_76/wf76crlang/lng_usop13.htm