Copiar y Enviar Spool de as400 a PC

Información aproximada, cortesía de CPI.

Un listado de spool de as400 se puede bajar al pc para enviarse por email, etc. Por ejemplo para enviar a CPI listados para probar con Coprint.

La identificacion de cada Spool del AS/400 consiste en cinco datos, los cuales son necesarios conocer para realizar cualquier funcion con el Spool.

Estos datos se ven con 8 (propiedades) en la cola de spool, p.e. usando los comandos WRKSPLF o WRKOUTQ, etc.

   Trabajo  ......:   PCxxxx          Archivo  ......:   QSYSPRT
     Usuario .....:     USERxx           Numero ......:     2
     Numero ......:     061nnn

Para poder pasar los datos de un Spool a un fichero debe crearse previamente un fichero, tal como:

  • CRTPF FILE(QGPL/SPL) RCDLEN(210) AUT(*ALL)
  • si ya existiera borrarlo antes con DLTF QGPL/SPL

Para copiar datos del Spool al Fichero hacer

  • CPYSPLF TOFILE(QGPL/SPL) CTLCHAR(*PRTCTL) TOMBR(SPL) y F4
    • y teclear o pegar los datos
    • - Archivo en spool
    • - Nombre de trabajo, Usuario, Número
    • - Numero de archivo en spool

El comando resultante será como:
CPYSPLF FILE(archivo) TOFILE(QGPL/SPL) JOB(num/usuario/dispositivo) SPLNBR(num) TOMBR(SPL) CTLCHAR(*PRTCTL)

transferir el fichero-spool con FTP del as400 al PC

Ahora pasar el texto del spool al pc, p.e. con ftp:

TeclaWindows + R, teclear CMD y pulsar intro, se abre una ventana de comandos DOS:

FTP direccion-IP-del-as400
 ... (teclear user y pass)
cd /qsys.lib/qgpl.lib                (puede que no haga falta, pero...)
quote site namefmt 0                 (puede que no haga falta, pero...)
LCD     (para saber qué carpeta de pc tienes activa, o cambiarla con LCD C:\carpeta)
CD QGPL
GET SPL.SPL spool.txt
QUIT
exit

Ahora tienes el fichero de pc spool.txt en la carpeta que viste o cambiaste con el comando-ftp LCD.

transferir el fichero-spool usando IFS del as400 al PC

En lugar de usar ftp puede copiarse a una carpeta del as400 (IFS) que esté accesible desde pc, tal como:

  • RMVLNK '/tmp/spool.txt' (borrarlo por si existe en la carpeta tmp delas400)
  • CPYTOSTMF FROMMBR('/qsys.lib/qgpl.lib/spl.file/spl.mbr') TOSTMF('/tmp/spool.txt') STMFCODPAG(*PCASCII)
  • ahora ya en el pc (si se tiene acceso al IFS) TeclaWindows + R + \\IPdelAs400\tmp

De vuelta en otro as400, reimprimir el spool traspasado

Crear el spool en el as400 a partir del spool.txt (suponiendo que el spool traido lo tenemos en fichero spool.txt).

Importante: hay que tener propiedades globales (verlo con op 8 en la cola de spool) del spool como

  • nombre archivo spool
  • nombre/tipo de formulario
  • datos de usuario (UserData)
  • ancho (num caracteres) y alto (num lineas max)
  • CRTPF FILE(QGPL/SPL) RCDLEN(210) AUT(*ALL)
  • si ya existiera
    • limpiarlo con CLRPFM FILE(QGPL/SPL)
    • o borrarlo antes con DLTF QGPL/SPL y luego re-crearlo con el crtPF

TeclaWindows + R, teclear CMD y pulsar intro, se abre una ventana de comandos DOS.

CD c:\xxxxx     (carpeta donde existe spool.txt)
FTP direccion-IP-del-as400
 ... (teclear user y pass)
cd /qsys.lib/qgpl.lib                (puede que no haga falta, pero...)
quote site namefmt 0                 (puede que no haga falta, pero...)
CD QGPL
LCD c:\xxxxx     (carpeta donde existe spool.txt)
PUT spool.txt QGPL/SPL.SPL
QUIT
exit

Ahora, despues del ftp:
Desde el menu COPRINT en as400 con F21 o paso 199 y comando SPOOLPRT.
O bien directamente el comando

  • ADDLIBLE CPI@PUB
  • SPOOLPRT FILE(QGPL/SPL) MBR(SPL) + F4 + F11.
  • ES MUY IMPORTANTE teclear las propiedades del spool
    (parámetros: cola (OUTQ), fichero (SPLFILE), userData (USRDATA), formulario (FORM), ANCHO, ALTO)
    • ANCHO Y ALTO se intentan detectar automáticamente

A partir de la importación del spool es muy facil hacer pruebas con coPrint:

  • poner el spool en una cola que no esté controlada por coPrint
  • ponerle al spool save(*yes)
  • opcional: si no está retenido (HLD), ponerle retenido con la opcion 3 de wrksplf o wrkoutq.
  • mover el spool a una cola de coPrint con opcion 2
  • al liberarlo (opcion 6) lo tomará coPrint, pero como tiene save(*yes) no se borra.
  • para repetir pruebas simplemtene retener (op 3) y liberar (op 6)
 
/kunden/homepages/8/d674751560/htdocs/cpies/doc/data/pages/as400/enviarspool.txt · Última modificación: 4/04/2017 06:30 (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