/**
 * Formato para generar listados a partir de las bases bibliográficas de Catalis.
 * FG, 2007-11-06
 *
 * Uso:
 *      mx biblio pft=@listado.pft now > listado.txt
 *
 * Luego abrir listado.txt con una aplicación como Excel, indicando que se trata de texto delimitado por '|'.
 *
 * Comentarios, sugerencias: catalis@googlegroups.com
 */

lw(1000),

/* Número(s) de inventario */
(v859^p+|, |)

'|',

/* Título y mención de responsabilidad */
proc('a2450~',replace(v245*3, '^', '~a2450~'),'~'),
(
    x1, v2450*1,
),

'|',

/* Datos de publicación */
proc('a2600~',replace(v260*3, '^', '~a2600~'),'~'),
(
    x1, v2600*1,
),

'|',

/* Clasificación Dewey */
if p(v082) then  v082^a, fi,

'|',

/* Punto de acceso principal */
if p(v100) then
    proc('a1000~',replace(v100*3, '^', '~a1000~'),'~'),
fi,
if p(v110) then
    proc('a1000~',replace(v110*3, '^', '~a1000~'),'~'),
fi,
if p(v111) then
    proc('a1000~',replace(v111*3, '^', '~a1000~'),'~'),
fi,
(
    x1, v1000*1,
),

'|',

/* Descriptores o encabezamientos de materia */
proc('d6500a6500~',replace(v650[1]*3, '^', '~a6500~'),'~'),
(
    if iocc > 1 then '--', fi,
    v6500*1,
),
if v650[2] > '' then
    '|',
    proc('d6500a6500~',replace(v650[2]*3, '^', '~a6500~'),'~'),
    (
        if iocc > 1 then '--', fi,
        v6500*1,
    ),
fi


,/