Script para eliminar registros inactivos de la base de autoridades y actualizar los punteros de la base bibliográfica. (Creo que esto viene de la reunión en Tandil, 2005.)

:: Script para eliminar registros inactivos de la base de autoridades
:: y actualizar los punteros de la base bibliográfica
::
:: $1: nombre de la base bibliográfica
:: $2: nombre de la base de autoridades
 
set _BIBLIO=%1
set _AUTO=%2
 
i2id %1 >%1.id
mx seq=%1.id lw=8000 create=%1-campos now -all
mx %1-campos "fst=1 0 v1^9" fullinv=%1-ref now -all

:: mx %1-campos lw=8000 "pft=ref(['%2']l(['%2'] '-CN=', v1^9), v999)"

::
mx %1-campos proc=@reemplaza-puntero.pft lw=8000 "pft=putenv('TARGET=',ref(['%2']l(['%2'] '-CN=', v1^9), v999)), if getenv('TARGET') <> '0' then 'mfn=', mfn(0), x4, '$target=|', getenv('TARGET'), '|', x5, replace(v1,s('^9',v1^9),s('^9', getenv('TARGET'))), /, fi, x2, 'Resultado_ref= |', ref(['%2']l(['%2'] '-CN=', v1^9), v999), '|', /" copy=%1-campos now -all tell=100 >salida-reemplazo.txt

::
mx %1-campos lw=8000 "pft=v1/" now >%1-campos.id
::
id2i %1-campos.id create=%1-new

autoridades