¿ 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
Borrar los spools con un nombre determinado (QPJOBLOG, QPDZDTALOG...)

Este ejemplo borra del spool de todo el sistema los reportes cuyos nombres sean QPJOBLOG Y QPDZDTALOG, puedes adaptarlos para eliminar los que sean de un determinado usuario u otros valores.

     
     H*==============================================================
H* BORRA ARCHIVOS (QPJOBLOG Y QPDZDTALOG) DE LA COLA DEL SISTEMA
H*
H*
H* H. VERA GOMEZ
H*================================================================
FQSYSPRT O F 132 OF PRINTER
E*================================================================
I*
I* ESTRUCTURA LLAMADA A API 'QSYCUSRS'
IQSYSCU DS
I 1 1 @AUT
I 2 11 @USER
I 12 21 @SPCAU
I B 22 250@NBRAU
I B 26 290@CALLL
I*ESTRUCTURA PARAMETRO ERROR API'S
IERRCOD DS
I B 1 40BYTPRO
I B 5 80BYTAVA
I 9 15 EXCPID
I 16 16 RESERV
I 17 116 EXCDTA
I*DEFINICION DE ESTRUCTURA HEADER DEL ESPACIO DE USUARIO
IUSRSPC DS
I 1 10 USSPNM
I 11 20 USSPLI
IUSHDRG DS
I B 1 40OFFSET
I B 9 120NUMENT
I B 13 160LSTSIZ
IDSAPIS DS
I B 1 40USSIZE
I B 5 80STRPOS
I B 9 120HDRLEN
I B 13 160RTVLEN
I B 17 200RCVLEN
I B 21 240SPLFX
IRTVVAR DS
I 1 10 USRNM1
I 11 30 OUTQNA
I 31 40 USRDT1
I 41 50 FRMTY1
I 51 66 IJOBID
I 67 82 ISPLID
IRCVVAR DS
I B 1 40BYTRTN
I B 5 80BYTVAL
I 9 24 JOBID
I 25 40 SPLFID
I 41 50 JOBNAM
I 51 60 USRNME
I 61 66 JOBNUM
I 67 76 FILNAM
I B 77 800FILNUM
I 81 90 FRMTYP
I 91 100 USRDTA
I 101 110 STATUS
I 111 120 FILAVL
I 121 130 HLDF
I 131 140 SAVF
I B 141 1440TOTPAG
I B 145 1480PAGWRT
I B 149 1520STRPAG
I B 153 1560ENDPAG
I B 157 1600LASPAG
I B 161 1640RESPRT
I B 165 1680TOTCPY
I B 169 1720CPYLFT
I B 173 1760LPI
I B 177 1800CPI
I 181 182 OUTPRI
I 183 192 OUTQNM
I 193 202 OUTQLB
I 203 209 DATFOP
I 203 203 DATCEN
I 204 205 DATYR
I 206 207 DATMTH
I 208 209 DATDAY
I 210 215 TIMFOP
I 210 211 TIMHH
I 212 213 TIMMM
I 214 215 TIMSS
I 216 225 DEVFNA
I 226 235 DEVFLB
I 236 245 PGMOPF
I 246 255 PGMOPL
I 256 270 ACCCOD
I 271 300 PRTTXT
I B 301 3040RCDLEN
I B 305 3080MAXRCD
I 309 318 DEVCLS
I 319 328 PRTTYP
I 329 340 DOCNAM
I 341 404 FLDNAM
I 405 412 S36PRC
I 413 422 PRTFID
I 423 423 RPLUN
I 424 424 RPLCHR
I B 425 4280PAGLEN
I B 429 4320PAGWID
I B 433 4360NUMSEP
I B 437 4400OVRLIN
I 441 450 DBCSDA
I 451 460 DBCSEC
I 461 470 DBCSSO
I 471 480 DBCSCR
I B 481 4840DBCSCI
I 485 494 GRAPHI
I 495 504 CODPAG
I 505 514 FORNAM
I 515 524 FORLIB
I B 525 5280SRCDRW
I 529 538 PRTFON
I 539 544 S36SPL
I B 545 5480PAGROT
I B 549 5520JUSTIF
I 553 562 PRTBOT
I 563 572 FLDRCD
I 573 582 CTLCHR
I 583 592 ALGFRM
I 593 602 PRTQUA
I 603 612 FRMFED
I 613 683 VOLUME
I 684 700 FLABID
I 701 710 EXCTYP
I 711 720 CHRCOD
I B 721 7240TOTRCD
C*================================================================
C*- DEFINICION DE CAMPOS CON *LIKE Y KLIST
C*================================================================
C***** *LIKE DEFN C1USER @@USER
C***** *LIKE DEFN NRRDS1 NRR1
C***** *LIKE DEFN NRRDS1 ULTNR1
C**** *LIKE DEFN T1TABK XXTABK
C*** *LIKE DEFN T1TABN XXTABN
C*================================================================
C*
C MOVEL'*ALL ' C1USER 10
C* AVERIGUA SI EL USUARIO TIENE AUTORIZACION SPLCTL
C CALL 'QSYCUSRS'
C PARM @AUT
C PARM '*CURRENT'@USER
C PARM '*SPLCTL' @SPCAU
C PARM 1 @NBRAU
C PARM 0 @CALLL
C PARM ERRCOD
C*
C @AUT IFEQ 'Y'
C MOVEL*ON *IN71
C ELSE
C MOVEL*OFF *IN71
C ENDIF
C*
C EXSR LEESPL
C MOVEL*ON *INLR
C RETRN
C*
C*================================================================
C*= LLESF1: LLENA EL SUBARCHIVO
C*================================================================
C LEESPL BEGSR
C*
C* -----------------------
C* CREA ESPACIO DE USUARIO
C* -----------------------
C*
C MOVEL'FAXSPLF' USSPNM P
C MOVEL'QTEMP' USSPLI P
C CALL 'QUSCRTUS'
C PARM USRSPC
C PARM *BLANK USATTR 10
C PARM 1024 USSIZE
C PARM *BLANK USINIT 1
C PARM '*CHANGE' USAUT 10
C PARM *BLANK USTEXT 50
C PARM '*YES' USREPL 10
C PARM ERRCOD
C*
C* -------------------------------------------------
C* LLENA EL ESPACIO DE USUARIO CON FICHEROS DE SPOOL
C* -------------------------------------------------
C*
C CALL 'QUSLSPL'
C PARM USRSPC
C PARM 'SPLF0100'FMTNM1 8
C PARM C1USER USRNAM 10
C PARM '*ALL' OUTQ 20
C PARM '*ALL 'FRMTYP 10
C PARM '*ALL 'USRDTA 10
C PARM ERRCOD
C*
C* ----------------------------------------------------
C* LEE LA CABECERA DE LA ESTRUCTURA PARA OBTENER
C* NUMERO ENTRADAS (NUMENT), OFFSET A LA LISTA (OFFSET)
C* Y TAMA¾O DE CADA ENTRADA (LSTSIZ)
C* ----------------------------------------------------
C*
C CALL 'QUSRTVUS'
C PARM USRSPC
C PARM 125 STRPOS
C PARM 16 HDRLEN
C PARM USHDRG
C PARM ERRCOD
C* *
C Z-ADDOFFSET STRPOS
C ADD 1 STRPOS
C Z-ADDLSTSIZ RTVLEN
C Z-ADD724 RCVLEN
C Z-ADD1 COUNT 150
C*
C COUNT DOWLENUMENT <---------+
C* |
C* RECUPERA IDENTIFICADOR INTERNO DE CADA FICHERO SPOOL|
C CALL 'QUSRTVUS' |
C PARM USRSPC |
C PARM STRPOS |
C PARM RTVLEN |
C PARM RTVVAR |
C PARM ERRCOD |
C* |*
C* AHORA RECUPERA ATRIBUTOS DEL ARCHIVO DE SPOOL |
C MOVE *BLANKS JOBINF |
C MOVEL'*INT' JOBINF 26 |
C MOVE IJOBID JOBID |
C MOVE ISPLID SPLFID |
C MOVEL'*INT' SPLFNM 10 |
C MOVE *BLANKS SPLFX |
C* |*
C CALL 'QUSRSPLA' |
C PARM RCVVAR |
C PARM RCVLEN |
C PARM 'SPLA0100'FMTNM2 8 |
C PARM JOBINF |
C PARM JOBID |
C PARM SPLFID |
C PARM SPLFNM |
C PARM SPLFX |
C PARM ERRCOD |
C* |*
C 'QPDZDTAL'CAT 'OG' XXOTRO 10 |
C* |*
C FILNAM IFEQ 'QPJOBLOG' |
C FILNAM OREQ XXOTRO |
C EXCPTLISTA |
C EXSR BORRA |
C ENDIF |
C LSTSIZ ADD STRPOS STRPOS |
C 1 ADD COUNT COUNT |
C* |
C ENDDO <---------+
C* -----------------
C* GUARDA ULTIMO NRR
C* -----------------
C*
C* ------------------------
C* BORRA ESPACIO DE USUARIO
C* ------------------------
C CALL 'QUSDLTUS'
C PARM USRSPC
C PARM ERRCOD
C ENDSR
C*================================================================
C*= Borra ARCHIVO DE SPOOL
C*================================================================
C BORRA BEGSR
C MOVEL'DLTSPLF' CMD 255 P
C CAT 'FILE(':1 CMD
C CAT FILNAM:0 CMD
C CAT ') JOB(':0CMD
C CAT JOBNUM:0 CMD
C CAT '/':0 CMD
C CAT USRNME:0 CMD
C CAT '/':0 CMD
C CAT JOBNAM:0 CMD
C CAT ')':0 CMD
C CAT 'SPLNBR':1CMD
C CAT '(':0 CMD
C Z-ADDFILNUM XXSPLN 40
C MOVELXXSPLN X1SPLN 4
C CAT X1SPLN:0 CMD
C CAT ')':0 CMD
C CALL 'QCMDEXC' 77
C PARM CMD
C PARM 255 LONG 155
C ENDSR
C*****************************************************************
OQSYSPRT H 101 1P
O OR OF
O 50 'SPOOL FILE DE CADUCACION'
O 68 'ES EN LA CONEXCION'
O E 1 LISTA
O JOBNAM 11
O JOBNUM 19
O USRNME 31
O FILNAM 43
O FILNUM 53
O DATDAY 57
O DATMTH 59
O DATYR 61
O TIMHH 65
O TIMMM 67
O TIMSS 69
C*================================================================

Puedes ver el fuente aquí
Documento cedido por Héctor Vera

Junio 2003

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