@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.

• 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

• 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)

• usa como script base ftpCopyLib en cpi@pub/qddssrc
• deja un log en WRKMBRPDM FILE(TEXTCPIU/LOGCPI) mbr(COPYLIB*)