@copyLib para Copiar biblioteca de un as400 a otro

@COPYLIB permite (usando PDM) pasar bibliotecas de un as400 a otro.

:!: Necesaria licencia especial para usar esta utilidad CPI.

Preparación

  • en el as400 destino
    • CRTSAVF FILE(QGPL/WSAVEL) TEXT(@COPYLIB) AUT(*ALL)
    • crear un perfil similar a este:
      • CRTUSRPRF USRPRF(UCLIB) PASSWORD(PXY) USRCLS(*SECOFR) INLMNU(*SIGNOFF)
  • en el as400 origen
    • añadir a tcp/ip un nombre+ip para el as400 destino
      • CFGTCP paso 10 y añadir ip y un nombre al as400 destino
    • crear una opcion en PDM (codigo libre, tal como CL, CB, YL o YC o LC etc)
      • WRKOBJPDM LIB(QSYS) OBJTYPE(*LIB)
      • F16 para crear la opcion nueva o modificarla, codigo libre
        • CALL @COPYLIBCL (&N DESTINO UCLIB PXY AUTO '*PRV')
          • Si la bib CPI@PUB no existe en *LIBL calificar el call @CPI@PUB/@COPYLIBCL

Uso

  • WRKOBJPDM LIB(QSYS) OBJTYPE(*LIB) opcional F4 y/o usr el param OBJ para seleccionar ciertos nombres como algo* o *algo*
  • y desde aqui usar opcion PDM creada en la(s) biblioteca(s) deseada(s)

Parametros de @copyLibCL:

  1. debe ser &N, que es el object name asociado a la linea de pdm
  2. IP o nombre de as400 destino (puede crearse un nombre asociado a la IP usando CFGTCP opcion 10)
  3. usuario destino
  4. password del usuario destino. Se puede usar '?' para que lo solicite
  5. AUTO o NOAUTO. Si no se usa AUTO se visualiza al final el log de FTP
  6. version destino por si los dos as400 no tienen la misma version del operativo IBM
    1. blanco ' ' o *CURRENT
    2. *PRV
    3. una version concreta, tal como V6R1M0, V5R4M0, etc (savLib a esa versión debe soportarla el Operativo)

notas

  • usa como script base ftpCopyLib en cpi@pub/qddssrc
  • deja un log en WRKMBRPDM FILE(TEXTCPIU/LOGCPI) mbr(COPYLIB*)
 
/kunden/homepages/8/d674751560/htdocs/cpies/doc/data/pages/as400/copylib.txt · Última modificación: 18/06/2018 12:54 por admin
[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