AS/400 - Cómo funciona DLTEXPSPLF y CHGPRTF?

   
Vista:

Cómo funciona DLTEXPSPLF y CHGPRTF?

Publicado por Javier (1 intervención) el 07/03/2012 11:10:19
Hola,

tenemos la necesidad de eliminar el spool de varias OUTQ dejando los últimos días sin borrar. Sin embargo no podemos dejar los mismos días en cada OUTQ, algunas solo dejamos lo del día anterior, mientras que en otras guardamos hasta 15 días.

Quería saber si podemos usar DLTEXPSPLF para esta tarea, pero no sé como parametrizar que el spool que entra en cada una de las OUTQ vaya con una determinada fecha de expiración.

He intentado CHGPRTF pero no se usarlo ya que creo que se aplica a TODOS los ficheros de spool.

Muchas gracias de antemano
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Cómo funciona DLTEXPSPLF y CHGPRTF?

Publicado por ros (95 intervenciones) el 12/03/2012 10:33:55
En una CL

Imprimo ficheros de spool
WRKSPLF SELECT(*CURRENT *ALL) OUTPUT(*PRINT) DSPFMT(*NORMAL)
Copio ese fichero de spool a un fichero
CPYSPLF FILE(QPRTSPLF) TOFILE(QTEMP/SPOOL)
Borro el fichero de spool
DLTSPLF FILE(QPRTSPLF)

Programa RPG
Declaro el fichero
FSPOOL IF E DISK UC
Le cambio el nombre del registro
F SPOOL KRENAMERSPOOL
Declaro el campo externo del fichero como el nombre que voy a utilizar para trabajarlo.
IRSPOOL
I SPOOL CAMPO
Estructura de datos para cortar el campo

I IDS
I 1 167 CAMPO
I 2 11 TARCHI
I 13 22 TUSUAR
I 24 33 TDISPO
I 35 44 TDATOS
I 51 55 TPAGIN
I 83 90 TFECHA
I 92 99 THORAS
I 101 104 TNARCH
I 106 115 TTRABA
I 117 122 TNUMER

C bla, bla, bla……, vamos tu código de decisiones

Subrutina RPG de borrado del fichero de spool.
C CLEARFRASE
C CAT 'DLTSPL':0FRASE
C CAT 'F ':0FRASE
C CAT ' FILE(':0FRASE
C CAT TARCHI:0 FRASE
C CAT ') JOB(':0FRASE
C CAT TNUMER:0 FRASE
C CAT '/ ':0 FRASE
C CAT TUSUAR:0 FRASE
C CAT '/ ':0 FRASE
C CAT TTRABA:0 FRASE
C CAT ') ':0 FRASE
C CAT ' SPLNB':0FRASE
C CAT 'R( ':0FRASE
C CAT TNARCH:0 FRASE
C CAT ') ':0 FRASE
C CAT '[ ':0 FRASE
*
C '[' SCAN FRASE LON
C SUB 1 LON 100
*
C CALL 'QCMDEXC'
C PARM FRASE 200
C PARM LON VAR2 155
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar