<<SALVASYS.CLP_Copia de seguridad de todo el sistema.TXT>>
<<SALVASYW.DSPF_Copia de seguridad de todo el sistema.TXT>>
Hola a todos:
Os mando a todos los interesados una muestra del programa que voy a
utilizar para una copia del sistema de modo desatendido. Este programa
consta de un CL y una pantalla. Además, utiliza una serie de mandatos que no
son del sistema y que no incluyo, pero que no impiden entender que hace el
programa (si estáis interesados en alguno de ellos, los colgaría de la web
de Recursos-as400).
El programa permite hacer una copia tanto en modo atendido como
desatendido, todo depende de la fecha y hora en la que se quiera efectuar.
El programa siempre se tendrá que llamar desde la consola y por un usuario
con las autorizaciones adecuadas. El programa funciona, ya que le he probado
este fin de semana. Puede que necesite alguna mejora (estoy abierto a
sugerencias), pero de momento este es el que usaré.
Un saludo a todos y gracias,
Javier Mora
Dpto. Informática
Dialsur S.A.U.
/* =============================================================== */
/* SALVASYS */
/* */
/* Realiza una copia de seguridad de todo el sistema. */
/* */
/* (C) 2006 Dialsur S.A.U. */
/* */
/* Programador.: ACG */
/* Fecha.......: */
/* */
/* --------------------------------------------------------------- */
/* Historia */
/* */
/* Fecha Programador Observaciones */
/* -------- ------------------ ------------- */
/* 27.02.06 JMG Adaptaciones para realizar el */
/* proceso en modo desatendido. */
/* Documentar. */
/* */
/* Compilación: */
/* */
/* Funcionamiento: */
/* */
/* Este programa tiene que ejecutarse desde la consola del */
/* sistema, ya que se dejará el sistema en estado restringido. */
/* */
/* Primero aparece una pantalla de aviso con los procesos y */
/* la consecuencias producidas por la ejecución del programa. */
/* Se solicita una confirmación. */
/* */
/* En la siguiente pantalla se solicita al usuario que indique */
/* que opciones quiere realizar. Se ofrecen unos valores por */
/* defecto, que suelen ser adecuados. */
/* */
/* Se puede realizar la copia de seguridad de forma inmediata o */
/* desatendida. Si se opta por esta última, habrá que indicar el */
/* día y la hora de cuando inciar el proceso. Una vez aceptadas */
/* las opciones de pantalla, se muestran en pantalla una serie */
/* de avisos que pueden ser interesantes para el operador. */
/* Finalmente, se solicita la confirmación explícita (F15) para */
/* iniciar todo el procesos de copia de seguridad. En este punto */
/* también se podrá abortar todo el proceso. */
/* */
/* A continuación, la consola se queda en espera hasta la fecha */
/* y hora introducidas en pantalla, momento en el cual se */
/* iniciarán todas las tareas de la copia de seguridad. */
/* */
/* El programa comprueba que haya una cinta inicializada en la */
/* unidad. Si se ha indicado, se borra su contenido. A */
/* continuación deja el sistema en estado restringido y procede */
/* con la copia de seguridad del sistema, bibliotecas, etc. */
/* */
/* Si no se opta por inicializar la cinta, la copia se añadirá */
/* al contenido actual de la cinta ubicada en la unidad. */
/* */
/* Al finalizar la copia, se expulsa la cinta. */
/* */
/* Según se haya indicado en la pantalla de opciones, el sistema */
/* se puede apagar, reiniciarlo de nuevo (arranque de los */
/* subsistemas) o dejarlo en el estado actual (restringido). */
/* */
/* Notas para el programador: */
/* */
/* Este programa usa varios mandatos de terceros que no forman */
/* parte del sistema operativo. */
/* */
/* MSGBOX - Muestra en pantalla el mensaje indicado por el */
/* programador dentro de una ventana de tamaño */
/* estándar. */
/* */
/* RTVDAT - Mandato incluido en las QUSRTOOL de la versión V3R1 */
/* que devuelve información sobre la fecha introducida. */
/* Se utiliza para averiguar el día de la semana. */
/* */
/* MOVPGMMSG - Mueve mensajes de diagnóstico al programa llamador*/
/* */
/* RSNESCMSG - Mueve el mensaje de escapa al programa llamador. */
/* */
/* --------------------------------------------------------------- */
/* Notas: */
/* 1. Este programa tiene una funcionalidad similar a la opción 21 */
/* del menú del sistema SAVE. */
/* */
/* GO SAVE */
/* Salvar datos del sistema y de usuario */
/* 20. Definir valores por omisión de datos de usuario y salvar */
/* sistema */
/* 21. Todo el sistema */
/* */
/* =============================================================== */
Pgm
/* =============================================================== */
/* = Declaraciones = */
/* =============================================================== */
/* --------------------------------------------------------------- */
/* - Variables de trabajo - */
/* --------------------------------------------------------------- */
Dcl &desatendid *Lgl
Dcl &dlvry *Char ( 10 )
Dcl &fecha1 *Char ( 6 )
Dcl &hora1 *Char ( 6 )
Dcl &fecha2 *Char ( 6 )
Dcl &hora2 *Char ( 6 )
Dcl &tmp *Char ( 6 )
Dcl &dia *Char ( 1 )
DclF File( SALVASYW )
/* =============================================================== */
/* = Monitorización global de errores = */
/* =============================================================== */
MonMsg ( CPF0000 MCH0000 ) *N +
GoTo Error
/* =============================================================== */
/* = Mostrar pantalla de aviso informando de lo que va a suceder = */
/* =============================================================== */
ChgVar &actupr ( 'N' )
ChgVar &desatendid ( '0' )
Aviso:
SndRcvF RcdFmt( P_AVISO )
If ( &IN03 = '1' *OR &ACTUPR = 'N' ) +
Goto FIN
/* =============================================================== */
/* = Mostrar pantalla de opciones a realizar en la copia = */
/* =============================================================== */
ChgVar &disp ( 'TAP01' )
ChgVar &fecha ( '*HOY' )
ChgVar &hora ( '*AHORA' )
ChgVar &inztap ( 'S' )
ChgVar &savsys ( 'S' )
ChgVar &savlib ( 'S' )
ChgVar &savdlo ( 'S' )
ChgVar &dsptap ( 'N' )
ChgVar &rclstg ( 'N' )
ChgVar &pwrdwn ( 'A' )
Opciones:
SndRcvF RcdFmt( P_OPCIO )
If ( &IN03 = '1' ) +
Goto FIN
/* --------------------------------------------------------------- */
/* - Validar opciones introducidas - */
/* --------------------------------------------------------------- */
If ( &fecha *Ne '*HOY' ) +
Do
CvtDat Date( &fecha ) +
ToVar( &TMP ) +
ToSep( *NONE )
MonMsg CPF0000 *N +
Do
MsgBox Msg( 'La fecha de inicio de la copia es +
incorrecta.')
Goto Opciones
EndDo
EndDo
If ( &hora *Ne '*AHORA' ) +
Do
If ( %Sst( &hora 1 2 ) < '00' *Or +
%Sst( &hora 1 2 ) > '23' ) +
Goto ErrHora
If ( %Sst( &hora 3 2 ) < '00' *Or +
%Sst( &hora 3 2 ) > '59' ) +
Goto ErrHora
If ( %Sst( &hora 5 2 ) < '00' *Or +
%Sst( &hora 5 2 ) > '59' ) +
Goto ErrHora
Goto Avisos
ErrHora:
MsgBox Msg( 'La hora de inicio de la copia es +
incorrecta.')
Goto Opciones
EndDo
/* =============================================================== */
/* = Avisos para el usuario en el caso que se haya introducido = */
/* = alguna opción que pudiera ser incompatible con el horario = */
/* = de trabajo o se quisiera advertir sobre alguna cuestión = */
/* = interesante = */
/* =============================================================== */
Avisos:
If ( &fecha *Eq '*HOY' ) +
Do
RtvSysVal SysVal( QDATE ) +
RtnVar( &fecha1 )
EndDo
Else +
ChgVar &fecha1 ( &fecha )
If ( &hora *Eq '*AHORA' ) +
Do
RtvSysVal SysVal( QTIME ) +
RtnVar( &hora1 )
EndDo
Else +
ChgVar &hora1 ( &hora )
/* --------------------------------------------------------------- */
/* - De lunes a viernes y los sábados hasta las 14 horas, el - */
/* - personal de almacén está trabajando - */
/* - - */
/* - &dia => '1'=Domingo, '2'=Lunes, ... '7'=Sábado - */
/* --------------------------------------------------------------- */
RtvDat Date( &fecha1 ) DayOfWeek( &dia )
If ( (&dia >= '2' *And &dia <= '6') *Or +
(&dia = '7' *And &hora1 <= '140500' ) ) +
Do
MsgBox Msg( 'Se va a dejar el sistema en ESTADO +
RESTRINGIDO en horario de trabajo.' )
EndDo
/* =============================================================== */
/* = CONFIRMACIÓN EXPRESA POR PARTE DEL USUARIO = */
/* =============================================================== */
SndF RcdFmt( P_OPCIO )
Confirmar:
SndRcvF RcdFmt( P_CONFIR )
If ( &in03 *Eq '1' ) +
Goto Fin
If ( &in12 *Eq '1' ) +
Goto Opciones
If ( &in15 *Eq '1' ) +
Goto Salvar
Goto Confirmar
/* =============================================================== */
/* = Iniciar el proceso de copia de seguridad = */
/* =============================================================== */
Salvar:
If ( &fecha *Eq '*HOY' *And +
&hora *Eq '*AHORA' ) +
Do
ChgVar &desatendid ( '0' )
ChgVar &dlvry ( '*BREAK' )
EndDo
Else +
Do
ChgVar &desatendid ( '1' )
ChgVar &dlvry ( '*NOTIFY' )
EndDo
/* --------------------------------------------------------------- */
/* - Si el proceso es desatendido se espera hasta la fecha y - */
/* - hora indicados - */
/* --------------------------------------------------------------- */
Esperar:
RtvSysVal SysVal( QDATE ) +
RtnVar( &fecha2 )
RtvSysVal SysVal( QTIME ) +
RtnVar( &hora2 )
If ( &fecha2 *Eq &fecha1 *And +
&hora2 *Ge &hora1 ) +
Goto Iniciar
DlyJob RsmTime( &hora1 )
Goto Esperar
Iniciar:
/* --------------------------------------------------------------- */
/* - Comprobar que hay una cinta en la unidad - */
/* --------------------------------------------------------------- */
SndF RcdFmt( RCHK )
ChkTap Dev( &disp ) EndOpt( *REWIND )
MonMsg ( CPF6760 ) *N +
Do
If ( &desatendid *Eq '0' ) +
Do
MsgBox Msg( 'No hay cinta en la unidad.' )
Goto Fin
EndDo
Else +
Goto Error
EndDo
/* --------------------------------------------------------------- */
/* - Entrega de mensajes en la cola de QSYSOPR - */
/* --------------------------------------------------------------- */
ChgMsgQ MsgQ( QSYSOPR ) DlVry( &dlvry )
MonMsg (CPF2451) *N +
RcvMsg MsgType( *EXCP )
If ( &desatendid *Eq '0' ) +
Do
CALL PGM(BREAK)
EndDo
/* --------------------------------------------------------------- */
/* - Iniciarlizar la cinta Tiempo 00:00:15 - */
/* --------------------------------------------------------------- */
If ( &inztap *Eq 'S') +
Do
InzTap DeV( &disp ) +
NewVol( SAVSYS ) +
NewOwnId( DIALSUR ) +
Check( *NO ) +
Density( *SLR100 )
EndDo
/* --------------------------------------------------------------- */
/* - Dejar el sistema en estado restringido - */
/* - Tiempo 00:03:00 - */
/* --------------------------------------------------------------- */
SndF RcdFmt( REND )
EndSbs Sbs( *ALL ) Option( *IMMED )
DlyJob Dly( 180 )
/* --------------------------------------------------------------- */
/* - Salvar sistema Tiempo 00:10:00 - */
/* --------------------------------------------------------------- */
If ( &savsys *Eq 'S' ) +
Do
SndF RcdFmt( RSAVS )
SavSys Dev( &disp ) EndOpt( *LEAVE ) Clear( *AFTER )
EndDo
/* --------------------------------------------------------------- */
/* - Salvar bibliotecas Tiempo 02:00:00 - */
/* --------------------------------------------------------------- */
If ( &savlib *Eq 'S' ) +
Do
SndF RcdFmt( RSAVL )
SavLib Lib( *NONSYS ) +
Dev( &disp ) +
SeqNbr( *END ) +
EndOpt( *LEAVE ) +
Clear( *AFTER ) +
AccPth( *YES )
MonMsg CPF0000
EndDo
/* --------------------------------------------------------------- */
/* - Salvar documentos Tiempo 00:00:10 - */
/* - Salvar directorios del IFS Tiempo 00:10:00 - */
/* --------------------------------------------------------------- */
If ( &savdlo *Eq 'S' ) +
Do
SndF RcdFmt( RSAVD )
SavDlo Dlo( *ALL ) +
Flr( *ANY ) +
Dev( &disp ) +
SeqNbr( *END ) +
EndOpt( *LEAVE ) +
Clear( *AFTER )
MonMsg CPF0000
SndF RcdFmt( RSAV )
Sav Dev( ('/QSYS.LIB/' *CAT &DISP *TCAT '.DEVD') ) +
Obj( ('/*') ('/QSYS.LIB' *OMIT) +
('/QDLS' *OMIT) ) +
SeqNbr( *END ) +
UpdHst( *YES ) +
Clear( *AFTER )
MonMsg CPF0000
EndDo
/* --------------------------------------------------------------- */
/* - Imprimir contenido de la cinta Tiempo - */
/* --------------------------------------------------------------- */
If ( &dsptap *Eq 'S' ) +
Do
SndF RcdFmt( RDST )
DspTap Dev( &disp ) Output( *PRINT )
MonMsg CPF0000
EndDo
/* --------------------------------------------------------------- */
/* - Expulsar la cinta - */
/* --------------------------------------------------------------- */
ChkTap Dev( &disp ) EndOpt( *UNLOAD )
MonMsg CPF0000
/* --------------------------------------------------------------- */
/* - Reclamar almacenamiento Tiempo - */
/* --------------------------------------------------------------- */
If ( &rclstg *EQ 'S') +
Do
SndF RcdFmt( RCL )
RclStg
MonMsg CPF0000
EndDo
/* --------------------------------------------------------------- */
/* - Apagado del sistema o arrancar de nuevo todos los - */
/* - subsistemas - */
/* --------------------------------------------------------------- */
If ( &pwrdwn *Eq 'A' ) +
Do
SndF RcdFmt( RPWR )
PwrDwnSys Option( *IMMED )
MonMsg CPF0000
EndDo
Else If ( &pwrdwn *Eq 'N' ) +
Do
StrSbs SbsD( QCTL )
SignOff *LIST
EndDo
Else +
MsgBox Msg( 'EL PROCESO DE COPIA DE SEGURIDAD HA +
FINALIZADO DE FORMA SATISFACTORIA.' )
Fin:
Return
/* =============================================================== */
/* = MANEJADOR ESTÁNDAR DE ERRORES = */
/* =============================================================== */
Error:
/* --------------------------------------------------------------- */
/* - Si se produce un error no monitorizado en estado desatendido- */
/* - el sistema siempre sa apaga. Así nos aseguramos que la - */
/* - máquina arrancará según esté programada. - */
/* --------------------------------------------------------------- */
If ( &desatendid *Eq '1' ) +
Do
PwrDwnSys Option( *IMMED )
MonMsg cpf0000
EndDo
/* --------------------------------------------------------------- */
/* - Si el proceso se realiza en modo atendido, se reenvían los - */
/* - mensajes de escape al programa llamador (normalmente una - */
/* - línea de mandatos) - */
/* --------------------------------------------------------------- */
Else +
Do
MovPgmMsg
MonMsg cpf0000
RsnEscMsg
MonMsg cpf0000
EndDo
EndPgm
A*%%TS SD 20060306 132000 MORAJA REL-V5R3M0 5722-WDS
A*%%EC
A DSPSIZ(24 80 *DS3)
A CHGINPDFT
A PRINT
A R P_AVISO
A*%%TS SD 20060227 110751 MORAJA REL-V5R2M0 5722-WDS
A ALARM
A CA03(03 'Salir')
A 1 2DATE
A EDTCDE(Y)
A 1 19' PROCESO DE SALVAGUARDIA TOTAL DEL-
A SISTEMA '
A DSPATR(HI)
A DSPATR(RI)
A 1 67'Dialsur, S.A.U'
A 3 2'Se va a iniciar una tarea que real-
A iza una copia de seguridad completa-
A del'
A DSPATR(HI)
A 18 15'¿Esta usted seguro? (S/N).........-
A .....:'
A DSPATR(HI)
A ACTUPR 1A B 18 57DSPATR(HI)
A VALUES('S' 'N')
A DSPATR(UL)
A 23 2'F3=Salir'
A DSPATR(HI)
A 4 2'sistema. Esta opción hará:'
A DSPATR(HI)
A 5 4'o Finalizar todos los subsistemas'
A 6 4'o Salvar el Código Interno bajo Li-
A cencia'
A 7 4'o Salvar el sistema operativo'
A 8 4'o Salvar los datos de seguridad'
A 9 4'o Salvar los objetos de configurac-
A ión'
A 10 4'o Salvar todas las bibliotecas de -
A usuario (incluidas las bibliotecas -
A para'
A 11 4' programas bajo licencia)'
A 12 4'o Salvar todos los documentos y ca-
A rpetas'
A 13 4'o Apagar el sistema o arrancar el -
A subsistema de control'
A 15 2'Compruebe que no haya ningún traba-
A jo activo antes de iniciar esta tar-
A ea.'
A R P_OPCIO
A*%%TS SD 20060306 132000 MORAJA REL-V5R3M0 5722-WDS
A CA03(03 'Salir')
A 1 2DATE
A EDTCDE(Y)
A 1 18' PROCESO DE SALVAGUARDIA TOTAL DEL-
A SISTEMA '
A DSPATR(HI)
A DSPATR(RI)
A 1 67'Dialsur, S.A.U'
A 5 10'Introduzca las opciones que desea -
A realizar:'
A DSPATR(HI)
A 9 53'Tiempo Aprox.'
A DSPATR(HI)
A 10 10'Inicializar la cinta..............'
A INZTAP 1A B 10 45DSPATR(HI)
A VALUES('S' 'N')
A DSPATR(UL)
A 10 55'00:00:10'
A DSPATR(HI)
A 11 10'Salvar el sistema.................'
A SAVSYS 1A B 11 45DSPATR(HI)
A VALUES('S' 'N')
A DSPATR(UL)
A 11 55'00:10:00'
A DSPATR(HI)
A 12 10'Salvar bibliotecas................'
A SAVLIB 1A B 12 45DSPATR(HI)
A VALUES('S' 'N')
A DSPATR(UL)
A 12 55'02:00:00'
A DSPATR(HI)
A 13 10'Salvar documentos.................'
A SAVDLO 1A B 13 45DSPATR(HI)
A VALUES('S' 'N')
A DSPATR(UL)
A 13 55'00:10:00'
A DSPATR(HI)
A 14 10'Visualizar contenido cinta........'
A DSPTAP 1A B 14 45DSPATR(HI)
A VALUES('S' 'N')
A DSPATR(UL)
A 14 55'00:07:00'
A DSPATR(HI)
A 15 10'Reclamar almacenamiento...........'
A RCLSTG 1A B 15 45DSPATR(HI)
A VALUES('S' 'N')
A DSPATR(UL)
A 15 55'00:07:00'
A DSPATR(HI)
A 16 10'Dejar el sistema en estado........'
A PWRDWN 1A B 16 45DSPATR(HI)
A DSPATR(UL)
A VALUES('A' 'N' 'R')
A 16 55'00:01:00'
A DSPATR(HI)
A 23 2'F3=Salir'
A DSPATR(HI)
A 7 10'Dispositivo.......................'
A DISP 10A B 7 45DSPATR(HI)
A DSPATR(UL)
A 8 10'Fecha y hora de inicio............'
A FECHA 6A B 8 45DSPATR(HI)
A DSPATR(UL)
A HORA 6A B 8 53DSPATR(HI)
A DSPATR(UL)
A 17 13'A=Apagado; N=Normal (reinicia subi-
A stemas); R=Restringido'
A 16 47'(A/N/R)'
A R P_CONFIR
A*%%TS SD 20060302 181358 MORAJA REL-V5R2M0 5722-WDS
A CA03(03 'Salir')
A CA12(12 'Cancelar')
A CA15(15 'Confirma Copia Seguridad')
A CLRL(*NO)
A OVERLAY
A PROTECT
A 23 3'F3=Salir'
A DSPATR(HI)
A 23 13'F12=Cancelar'
A DSPATR(HI)
A 23 27'F15=Confirmar Copia Seguridad'
A DSPATR(HI)
A R P_ESTADO
A*%%TS SD 20060227 110751 MORAJA REL-V5R2M0 5722-WDS
A OVERLAY
A FRCDTA
A PROTECT
A ALARM
A*
A 1 2DATE
A EDTCDE(Y)
A 1 19' PROCESO DE SALVAGUARDIA TOTAL DEL-
A SISTEMA '
A DSPATR(HI)
A DSPATR(RI)
A 1 67'Dialsur, S.A.U'
A 14 20'Espere, por favor...'
A ESTADO 40 O 10 20
A 6 20'Estado del proceso'
A DSPATR(HI)
A*
A R RCHK
A*%%TS SD 20060306 124855 MORAJA REL-V5R3M0 5722-WDS
A ALARM
A*
A 1 2DATE
A EDTCDE(Y)
A 1 19' PROCESO DE SALVAGUARDIA TOTAL DEL-
A SISTEMA '
A DSPATR(HI)
A DSPATR(RI)
A 1 67'Dialsur, S.A.U'
A*
A 10 20'Estoy comprobando la cinta.'
A 12 20'Espere, por favor...'
A*
A R REND
A*%%TS SD 20060306 124855 MORAJA REL-V5R3M0 5722-WDS
A ALARM
A*
A 1 2DATE
A EDTCDE(Y)
A 1 19' PROCESO DE SALVAGUARDIA TOTAL DEL-
A SISTEMA '
A DSPATR(HI)
A DSPATR(RI)
A 1 67'Dialsur, S.A.U'
A*
A 10 20'Estoy dejando el sistema en estado-
A restringido.'
A 12 20'Espere, por favor...'
A*
A R RSAVS
A*%%TS SD 20060306 124855 MORAJA REL-V5R3M0 5722-WDS
A ALARM
A*
A 1 2DATE
A EDTCDE(Y)
A 1 19' PROCESO DE SALVAGUARDIA TOTAL DEL-
A SISTEMA '
A DSPATR(HI)
A DSPATR(RI)
A 1 67'Dialsur, S.A.U'
A*
A 10 20'Estoy ejecutanto SAVSYS.'
A 12 20'Espere, por favor...'
A*
A R RSAVL
A*%%TS SD 20060306 124855 MORAJA REL-V5R3M0 5722-WDS
A ALARM
A*
A 1 2DATE
A EDTCDE(Y)
A 1 19' PROCESO DE SALVAGUARDIA TOTAL DEL-
A SISTEMA '
A DSPATR(HI)
A DSPATR(RI)
A 1 67'Dialsur, S.A.U'
A*
A 10 20'Estoy Ejecutando SAVLIB LIB(*NONSY-
A S).'
A 12 20'Espere, por favor...'
A*
A R RSAVD
A*%%TS SD 20060306 124855 MORAJA REL-V5R3M0 5722-WDS
A ALARM
A*
A 1 2DATE
A EDTCDE(Y)
A 1 19' PROCESO DE SALVAGUARDIA TOTAL DEL-
A SISTEMA '
A DSPATR(HI)
A DSPATR(RI)
A 1 67'Dialsur, S.A.U'
A*
A 10 20'Estoy Ejecutando SAVDLO DLO(*ALL).'
A 12 20'Espere, por favor...'
A*
A R RSAV
A*%%TS SD 20060306 124855 MORAJA REL-V5R3M0 5722-WDS
A ALARM
A*
A 1 2DATE
A EDTCDE(Y)
A 1 19' PROCESO DE SALVAGUARDIA TOTAL DEL-
A SISTEMA '
A DSPATR(HI)
A DSPATR(RI)
A 1 67'Dialsur, S.A.U'
A*
A 10 20'Estoy Ejecutando SAV.'
A 12 20'Espere, por favor...'
A*
A R RDST
A*%%TS SD 20060306 124855 MORAJA REL-V5R3M0 5722-WDS
A ALARM
A*
A 1 2DATE
A EDTCDE(Y)
A 1 19' PROCESO DE SALVAGUARDIA TOTAL DEL-
A SISTEMA '
A DSPATR(HI)
A DSPATR(RI)
A 1 67'Dialsur, S.A.U'
A*
A 10 20'Estoy imprimiendo el contenido de -
A la cinta.'
A 12 20'Espere, por favor...'
A*
A R RCL
A*%%TS SD 20060306 124855 MORAJA REL-V5R3M0 5722-WDS
A ALARM
A*
A 1 2DATE
A EDTCDE(Y)
A 1 19' PROCESO DE SALVAGUARDIA TOTAL DEL-
A SISTEMA '
A DSPATR(HI)
A DSPATR(RI)
A 1 67'Dialsur, S.A.U'
A*
A 10 20'Estoy Ejecutando RCLSTG.'
A 12 20'Espere, por favor...'
A*
A R RPWR
A*%%TS SD 20060306 124855 MORAJA REL-V5R3M0 5722-WDS
A ALARM
A*
A 1 2DATE
A EDTCDE(Y)
A 1 19' PROCESO DE SALVAGUARDIA TOTAL DEL-
A SISTEMA '
A DSPATR(HI)
A DSPATR(RI)
A 1 67'Dialsur, S.A.U'
A*
A 10 20'El proceso ha terminado. Voy a apa-
A gar el 400.'
A 12 20'Espere, por favor...'
