Table of Contents

Migración de Aguapey a Catalis

Este es un borrador de migración de registros de Aguapey a Catalis. Fue realizada aproximadamente el 07/sep/2005, junto a Rodolfo García. Sigue pendiente, y desde luego son bienvenidas las colaboraciones para concluirla. — Fernando Gómez 2009/05/16 18:29

Actualizado al 13/sep/2011. Con esta versión del script (todavía en versión borrador) se obtiene una base de datos para ser utilizada directamente por Catalis. — Victor Ferracutti 2012/02/16 10:15

Agregar:

Script de migración

:: Migración AGUAPEY -> CATALIS
    
    :: 1. indicadores en blanco: colocar #
    :: reemplaza '  ' por '##' en indicadores
    :: mx aguapey "proc='d1a1`',replace(v1,'!  ^','!##^'),'`'" now -all create=aguapey2
    :: reemplaza '1 ' por '1#' en indicadores
    :: mx aguapey2 "proc='d1a1`',replace(v1,'!1 ^','!1#^'),'`'" now -all create=aguapey3
    :: seguir con otros casos no considerados...
    
    :: 2. campo 001: quitar el prefijo BNM
    mx aguapey "proc='d1a1`',v1*3,'`'" now -all create=aguapey3
	
    :: 3. campo 008: corregir (a partir del campo 018)
    :: reemplaza ' ' por '#' y '|' por '#'
    mx aguapey3 "proc='d8d18a8`',replace(v18,' ','#'),'`'" now -all copy=aguapey3
    mx aguapey3 "proc='d8a8`',replace(v8,'|','#'),'`'" now -all create=aguapey4
	
    :: 4. campo 020: eliminar guiones
    mx aguapey4 "proc='d20a20`',replace(v20,'-',''),'`'" now -all create=aguapey5
	 
    :: 5. campo 859: mapear subcampos
    :: $a -> $p
    mx aguapey5 "proc='d859',('a859@',replace(v859,'^a','^p'),'@')" now -all create=aguapey6
    :: seguir con otros subcampos...

    :: 6. añadir datos de la cabecera
    mx aguapey6 proc=@leader.pft create=aguapey7 now -all

    :: 7. eliminar campos no utilizados y agregar faltantes:
    ::    campo 991: 'SI' son registros migrados
    mx aguapey7 proc='d2d900d9508' copy=aguapey7 now -all
    mx aguapey7 proc='a991~SI~' create=aguapeyn now -all

    :: pasos finales
    :: se reemplaza la a volada ('ª') por: 
    ::    'a.' en el campo 260
    ::    'a' en el resto de los campos
    :: (la a volada impide la correcta inversión)
	mx aguapeyn gizmo=cambio,250,260 copy=aguapeyn now -all
	mx aguapeyn gizmo=cambio2 copy=aguapeyn now -all
    :: acentos Web
	mx aguapeyn gizmo=asc2ans copy=aguapeyn now -all
    :: se eliminan fisicamente los registros borrados y 
    :: se comprime el espacio utilizado. 
        mxcp aguapeyn create=biblio clean

leader.pft

    /* generación de los datos de la cabecera */
    
    'd905d906d907d908d909d917d918d919',
    'a905@',v2*4.1,'@',
    'a906@',v2*5.1,'@',
    'a907@',v2*6.1,'@',
    'a908@#@',
    'a909@#@',
    'a917@5@', /* Encoding level: 5 - Partial (preliminary) level */
    'a918@a@', /* AACR2 */
    'a919@#@'

Anexos

* Muestra representativa de registros de Aguapey (fichero.id)