Lectura de ficheros delimitados por cualquier carácter

[Mikel Gómez]

Con FOCUS y WebFOCUS, es posible leer ficheros delimitados por
cualquier carácter, utilizando en la descripción de los datos
(Master) el sufijo DFIX (SUFFIX=DFIX) e indicando en dicho master cual
es el delimitador a utilizar.

Valga el siguiente ejemplo con un fichero delimitado por el carácter
punto y coma:

-* pfmikdfx.fex - 2006.06.14 - Mikel Gómez.
-* Ficheros delimitados por cualquier carácter.

-* Creación de master.
FILEDEF FICHERO DISK fichero.mas
-RUN
-WRITE FICHERO FILENAME=EJEMPLO, SUFFIX=DFIX
-WRITE FICHERO SEGMENT=S01, SEGTYPE=S0, $
-WRITE FICHERO FIELD=F1 , ALIAS=F1 , USAGE=A4, ACTUAL=A4, $
-WRITE FICHERO FIELD=F2 , ALIAS=F2 , USAGE=A4, ACTUAL=A4, $
-WRITE FICHERO FIELD=F3 , ALIAS=F3 , USAGE=A4, ACTUAL=A4, $
-WRITE FICHERO FIELD=DELIMITER, ALIAS=';', USAGE=A1, ACTUAL=A1, $

-* Generación de datos de ensayo.
FILEDEF FICHERO DISK fichero.dat
-RUN
-WRITE FICHERO ABC;ABC;ABC
-WRITE FICHERO 123;123;123
-WRITE FICHERO XYZ;XYZ;XYZ

-* Consulta.
TABLE FILE FICHERO
PRINT F1 F2 F3
END
-RUN

Referencias:
http://documentation.informationbuilders.com/masterindex/html/html_wf_713/wf713ddlang/vsam13.htm
http://documentation.informationbuilders.com/masterindex/html/html_iway523/i_ts/sonf52ts.html#1400273