Replicación de datos entre ejercicios

[Mikel Gómez]

Pequeño y útil procedimiento FOCUS / WebFOCUS para la replicación
manual de información, por ejemplo, entre ejercicios:

-* pfmikrep.fex - FOCEXEC - 2006.11.02 - Mikel Gómez
-* Módulo para replicación de datos entre años.

-* Solo se deben cambiar los valores de las siguientes
-* variables para que el MAINTAIN proceda a la duplicación
-* de datos para el nuevo ejercicio.

-DEFAULT &TABLA = 'TB??????' ;
-DEFAULT &CAMPO = 'EJERCICIO' ;
-DEFAULT &VALOR1 = 2007 ;
-DEFAULT &VALOR2 = 2008 ;
-DEFAULT &ACCION = 'INCLUDE' ;

MAINTAIN FILE &TABLA
FOR ALL NEXT &CAMPO INTO PILA
WHERE &CAMPO EQ '&VALOR1.EVAL' ;
REPEAT PILA.FOCCOUNT I/I5 = 1 ;
COMPUTE PILA(I).&CAMPO = '&VALOR2.EVAL' ;
ENDREPEAT I = I + 1 ;
FOR ALL &ACCION &CAMPO FROM PILA
TYPE "REGISTROSS: <PILA.FOCCOUNT procesados"
TYPE "ERROR: <FOCERROR "
END
-RUN