/* No deseamos preservar ninguno de los campos originales, i.e. partimos de un registro en blanco */ 'd*', /* Campo 001 (Número de control, o ID) -- obligatorio */ 'a001~',mfn(6),'~', /* Datos para la cabecera (leader) */ 'a905|n|', 'a906|a|', 'a907|m|', 'a908|#|', 'a909|#|', 'a917|5|', 'a918|#|', 'a919|#|', /* Campo 005 -- obligatorio * / 'a005~', s(date).8,s(date)*9.6,'.0', '~', /* Campo 008 -- obligatorio */ 'a008~', /* 00-05: fecha de creación */ '000000', /* 06: tipo de fecha */ 's', /* 07-10: fecha 1 */ v7.4, /* 11-14: fecha 2 */ '####', /* 15-17: país */ 'xx#', /* 18-34: a construir*/ x17, /* 35-37: idioma */ 'und', /* 38-39 */ '#d', '~', /* "Autor" (Punto de acceso principal para nombre personal) */ if p(v2) then 'a100~', '##','^a',v2, if not right(v2,1) = '.' then '.', fi, '~', fi, /* Título -- No armamos la mención de responsabilidad (245$c) */ 'a245~', '##','^a',v3, if not right(v3,1) = '.' then '.', fi, '~', if p(v4) and v4 <> '1ª' then 'a250~', '##','^a',v4, if not right(v4,1) = '.' then '.', fi, '~', fi, /* Publicación (pie de imprenta) */ 'a260~', '##','^a',v5, ' :','^b',v6, ',','^c',v7,'.', '~', /* Descripción física */ 'a300~', '##','^a',v8,' p.', ' ;','^c',v9,' cm.', '~', /* Serie -- Si hay número de volumen debe ir al subcampo $v */ if p(v10) then 'a490~', '##','^a',v10, '~', fi, /* ISBN -- En MARC21 se guarda sin guiones */ if p(v11) then 'a020~', '##','^a',replace(v11,'-',''), '~', fi, /* Existencias -- Datos específicos de cada ejemplar */ /* Ver http://catalis.uns.edu.ar/doku/doku.php/estructura_de_las_bases_bibliograficas */ 'a859~', '##','^p',v1, /* nro. de inventario */ '~',