Save Restore sin cinta/cd

Los procesos Backup/Restore de salvado y restaurado (de bibliotecas y/o de objetos sueltos) se pueden hacer a un “dispositivo” especial que es un fichero en disco, permitiendo que ese fichero sea facilmente enviado por email etc.

  • Por cierto puedes aprovechar para leer consideraciones sobre Backup (Copia de Seguridad) de objetos relacionados con CPI.

Primero crear o tener ya creado un fichero save (*SAVF)

  • CRTSAVF QGPL/WSAVE aut(*ALL)
  • o limpiarlo si ya existe CLRSAVF QGPL/WSAVE

Ahora utilizar el comando normal de salvado, como SAVLIB:

  • SAVLIB LIB(bib) DEV(*SAVF) SAVF(WSAVE) TGTRLS(importante) DTACPR(*LOW) COMPACT(*NO)
    • se puede usar SAVOBJ si solo se quieren algunos objetos o tipos de objeto
    • el parametro TGTRLS es muy importante, si se quiere restaurar a la misma maquina o version usar *CURRENT, o teclear una version deseada como V5R2…etc. Eso depende de la version que tenga la maquina destino. En ella ver que version tiene con CPI@PUB/VoS.
  • WSAVE es el nombre del fichero save en el ejemplo, se pueden usar los que se quieran.
  • parametro opcional, si no se usa se salva en la version del operativo que tengamos instalado, debe ponerse una version si se quiere restaurar en un Sistema que tenga version mas antigua
  • param opcional para comprimir el fichero save para que ocupe menos

Simple

Hacer una copia de seguridad (Backup) de una biblioteca rápidamente y sin cinta es muy simple:

  • usar como “nombre” el mismo para biblioteca y fichero savf
  • CRTSAVF QGPL/nombre
  • SAVLIB LIB(nombre) DEV(*SAVF) SAVF(QGPL/nombre)
    • recomendable añadir DTACPR(*LOW) y pulsar F4 para ver otras opciones
  • Otras funciones con ficheros savf
    • Limpiar savf: CLRSAVF QGPL/nombre
    • Borrar (del todo) savf: DLTSAVF QGPL/nombre
    • Ver contenido: DSPSAVF QGPL/nombre
      • ¿tamaño? F16 dice “registros”, que no vale para nada, hay que multiplicar por 500, una gracieta de IBM

SAVOBJ tambien se puede usar si no se quiere salvar la bib completa.

Save/Restore Backup entre dos sistemas as400

Si tenemos en la misma red dos as400 (p.e. al comprar un nuevo as400) podemos transferir los saves usando ftp.

Nota: ver tambien info sobre comandos SAVRSTxxx (ver abajo en “Mas Info”).

Aproximadamente…

  1. con CFGTCP paso 10 en cada uno de los dos as400
    • añadir nombre “asviejo” con su IP y “asnuevo” con su IP (en cada as400)
  2. CRTSAVF QGPL/WSAVE en cada uno de los dos as400
  3. salvar datos de seguridad lo primero, con SAVSYS o con
    • SAVSECDTA DEV(*SAVF) SAVF(QGPL/WSAVE) DTACPR(*LOW) COMPACT(*NO)
      • recomendado ver antes SAVSECDTA y F1
    • opcionalmente tambien se puede Salvar Configuración (SAVCFG)
  4. por cada biblioteca en asviejo: SAVLIB LIB(bib) DEV(*SAVF) SAVF(QGPL/WSAVE) TGTRLS(*CURRENT) DTACPR(*LOW) COMPACT(*NO)
  5. transferir el savf del viejo al nuevo con FTP, aproximadamente
  6. ftp asnuevo
    • (teclear user y pass)
    • cd '/qsys.lib/qgpl.lib'
    • bin
    • site namefmt 0
    • quote site namefmt 0
    • cd QGPL
    • lcd QGPL
    • put wsave (replace
    • quit
  7. en as nuevo hacer RSTLIB desde el savf QGPL/WSAVE, tal como (mejor que no exista la lib)
    • RSTLIB SAVLIB(lib) DEV(*SAVF) SAVF(QGPL/WSAVE) ALWOBJDIF(*ALL)

De forma parecida con los directorios de ifs, con SAV y RST

Por ejemplo:

CALL QCMD

SAV DEV(('/QSYS.LIB/QGPL.LIB/WSAVE.FILE')) OBJ(('/tmp')) SAVACT(*NO) DTACPR(*LOW) COMPACT(*NO)

Para ver las carpetas que hay, simplemente WRKLNK '/'

Ver mas sobre IFS en esta misma pagina.

Por ejemplo, para restaurar carpeta ifs en el asnuevo:

RST DEV('/QSYS.LIB/QGPL.LIB/WSAVE.FILE') OBJ(('/carpeta'))

Bajar el save al pc

Una vez tengamos el fichero save se puede bajar al pc para enviarlo por email p.e.

Abrir una ventana de comandos ejecutando el comando CMD (haciendo Tecla Windows + R o Tecla Windows + “Ejecutar”)

CD C:\NOVALE    ⇒ o la carpeta que se quiera en el pc
FTP Direccion-IP-del-Sistema
--> teclear usuario y password
QUOTE SITE NAMEFMT 0
CD QGPL
GET WSAVE wsave.sav
.... cuando termine de bajar...
QUIT

Ahora tenemos el fichero (wsave.sav en el ejemplo) en el pc y se puede enviar por email p.e. Por supuesto, antes de enviar por email este fichero se puede comprimir en un fichero zip o rar para que ocupe menos.

Restaurar el save desde el pc al Sistema

Cuando se reciba en la otra parte, para restaurar la biblioteca hacer

CD C:\NOVALE       ⇒ o la carpeta donde exista el fichero de salvar en el pc
FTP Direccion-IP-del-Sistema
  ⇒ teclear usuario y password
QUOTE SITE NAMEFMT 0
CD QGPL
PUT wsave.sav
.... cuando termine de subir...
QUIT

Una vez subido el fichero podemos verlo con
DSPSAVF QGPL/WSAVE y F16

Ahora podemos restaurar la biblioteca con RSTLIB normalmente:
RSTLIB SAVLIB(biblioteca) DEV(*SAVF) SAVF(WSAVE)

☛ Por supuesto, si en lugar de una biblioteca se quieren enviar objetos sueltos se puede usar el comando SAVOBJ y RSTOBJ en su lugar.

Save/Backup de Carpetas del IFS

Con el comando WRKLNK o WRKLNK '/' se puede ver el directorio del ifs. Con este comando se ve la lista de carpetas y con 5 la lista de subcarpetas y ficheros dentro. Una opcion de WRKLNK (9) permite definir la seguridad de la carpeta. Ver más aqui sobre Seguridad IFS.

Para ver carpetas y ficheros tambien se puede usar el comando DSPF tal como DSPF '/tmp'.

Para tratar subcarpetas simplemente separarlas con barra, como wrklnk '/tmp/cpi'.

Para crear carpetas o subcarpetas:

CRTDIR DIR('/tmp/pdf') DTAAUT(*RWX) OBJAUT(*ALL) CRTOBJAUD(*NONE) CRTOBJSCAN(*NO)

Para salvar a un fichero save/savf una carpeta del ifs:

Primero crear o tener ya creado un fichero save (*SAVF)

  • CRTSAVF QGPL/WSAVE aut(*ALL)
  • o limpiarlo si ya existe CLRSAVF QGPL/WSAVE
SAV DEV('/qsys.lib/qgpl.lib/wsave.file') OBJ(('/carpeta')) DTACPR(*LOW)

Una vez creado el fichero save ya se puede enviar al pc etc como se dice arriba.

Save a Cinta el ifs

Para salvar a cinta solo hay que cambiar el parametro DEV, tal como DEV('QSYS.LIB/TAP01.DEVD')

Restore al IFS

Se usa el comando RST.

Por ejemplo para restore desde un fichero savf:

RST DEV('/QSYS.LIB/QGPL.LIB/WSAVE.FILE') OBJ(('/carpeta'))

Mas info

  • comandos GO SAVE y GO RESTORE y GO CMDRST y GO CMDSAVRST
  • comandos SAVRSTLIB, SAVRSTOBJ, SAVRSTCFG, etc
    • ojo, algunos de estos comandos pueden requerir, segun las versiones, instalar (con Go LICPGM) 57xxSS1 op22 Objectconnect

Objetos registrados por Diario (Journal)

En general, si la bib de datos contiene dentro su propio journal, se puede simplemente salvar y restaurar la biblioteca.

Mas info: google

Dispositivo RDX (Cinta/disco Virtual)

Nota sobre DispositivoRDX.


cortesía de CPI Software, info aproximada.

 
/kunden/homepages/8/d674751560/htdocs/cpies/doc/data/pages/as400/saverestore.txt · Última modificación: 4/04/2017 06:31 (editor externo)
[unknown button type]
 
Excepto donde se indique lo contrario, el contenido de este wiki esta bajo la siguiente licencia: CC Attribution-Noncommercial-Share Alike 4.0 International
Recent changes RSS feed Donate Powered by PHP Valid XHTML 1.0 Valid CSS Driven by DokuWiki