¿ Quieres imprimir esta página ? Volver a la página principal de Recursos iSeries AS400 ¿ Necesitas ayuda ? En pruebas
System i5 iSeries AS400 Recursos. Compartiendo generamos conocimiento
Novedades en Recursos iSeries AS400
Noticias tecnológicas

Documentos
Copiar fichero de spool a fichero de base de datos y recuperarlo con todas sus características

Vamos a utilizar las utilidades QSPGETF and QSPPUTF que son unas utilidades del sistema, no son APIS. Si quieres utilizar APIS debes utilizar QSPPUTSP y QSPGETSP

Estas utilidades funcionan en todos los tipos de ficheros de spool incluso *SCS, *AFPDS, *IPDS y *USERASCII.

Vamos a empezar

  1. Crear fichero físico SPOOL en la biblioteca que desees. En el parámetro MEMBERS pon *NOMAX a no ser que quieras copiar siempre en el mismo miembro del fichero y perder la información anterior
    Ojo, no se exactamente porque tuve problemas con el programa QSPGETF porque daba un mensaje de copia de registros truncados. Lo solucioné creando un fichero de 5000 posiciones. 
  2. Recuperar spool a base de datos
    CALL PGM(QSYS/QSPGETF) PARM('MISPOOL' 'COPIASP MIBIBLI' 'QDFTJOBD MIUSU 253915' X'0001' 'SPOOL01 ')

    Donde:

    MISPOOL es el nombre del archivo de spool. Sin espacios intermedios
    COPIASP es el nombre del fichero donde guardaremos el fichero de spool. Longitud 10
    MIBIBLI en la biblioteca donde está el fichero SPOOL02. No tiene longitud predeterminada.
    QDFTJOBD es el nombre del trabajo que creó el fichero de spool. Longitud 10
    MIUSU es el usuario que solicitó ejecutar el trabajo que creó el fichero de spool. Longitud 10
    253915 es el número de trabajo. Longitud 6 dígitos. Si es menor debes rellenarlo con 0 a la izquierda.
    X'0001' es el número del archivo en spool. El número del fichero de spool se tiene que representar en formato hexadecimal.
    SPOOL01 es el miembro del fichero físico donde copiaremos el fichero de spool

    En versión 5.1 o superior, el campo de número de fichero de spool pasa de 6 a 9 dígitos

  3. Copiar el fichero de spool anterior en la cola QPRINT

    CALL PGM(QSYS/QSPPUTF) PARM('COPIASP   MIBIBLI' 'QPRINT    QGPL' 'SPOOL01')
    
    Donde:
    COPIASP es el fichero donde hemos guardado anteriormente. Longitud 10
    MIBIBLI en la biblioteca donde está el fichero SPOOL02. No tiene longitud predeterminada.
    QPRINT es el nombre del archivo de spool donde queremos que se copie. Longitud 10
    QGPL es la biblioteca donde está el fichero QPRINT
    SPOOL01 es el miembro del fichero COPIASP donde habíamos guardado el fichero de spool

En versión 5.1 o superior, el campo de número de fichero de spool pasa de 6 a 9 dígitos.

Para recuperar los datos del trabajo y del spool puedes utilizar la estructura de datos de programa en tus aplicaciones. Puedes leer como más sobre la estructura de datos de programa aquí. Encontrarás un ejemplo de definición de estructura de datos de programa aquí

06-06-2002

Comentarios de usuarios

Nombre:
Mail:
Comentario:
 
Subir a la parte superior de la web

 

NUESTRA COMUNIDAD EN
ÚNETE Y.... ¡¡ PARTICIPA !!
Dossiers técnicos iSeries y AS400
- Seguridad
- Alta disponibilidad.
Nuestros links favoritos
- Tendencias tecnologías de la información
Expertos en tecnologías de la información, nos dan su punto de vista sobre las tendencias actuales y futuras
- Los últimos anuncios sobre hardware-software para iSeries AS400 realizados por IBM
- Freeware y shareware para el iSeries AS400
- Utilidades para el iSeries AS400 realizadas por profesionales
- Documentos. Trucos e ideas para resolver tus problemas
- Los manuales y links más interesantes del iSeries AS400

  Links patrocinados
  •  
  •  

[ Soy nuevo |   Profesionales |   AS qué |   Empresas |    Foros |   Recomiéndanos |    Productos ]
 
Recursos iSeries AS400. Es una web de: PUBLICACIONES HELP400, S.L. CIF:B-60-202827 Gran Vía de les Corts Catalanes, núm. 715, Entresuelo – 3ª - Barcelona - Tel.+34.932.310.049