¿ Quieres imprimir esta página ? Volver a la página principal de Recursos iSeries AS400 ¿ Necesitas ayuda ? En pruebas
Recursos iSeries AS400. Compartiendo generamos conocimiento
Novedades en Recursos iSeries AS400
Últimas noticias del iSeries AS400
Mostrar y Gestionar Reportes en As/400

Categoría : Administración
Autor : Luis Carlos
Título : Mostrar y Gestionar Reportes en As/400


Descripción del truco:
Muestra todos los Reportes generados en el AS/400, permitiendo; mostrar por usuario, la fecha de su reporte mas antiguo y mas reciente, solicitar que te muestra los nombres de reporte que comiencen o contenga ciertos caractere (como Like del SQL), entrar en los reportes de un usuario, para visualizar, modificar o eliminarlo.

/***********************************************************/                    
/* */
/* Ejecuta Programa de Gestión de Spool via SLICESPLF */
/* */
/***********************************************************/

PGM PARM(&LIBRARY)

DCL VAR(&LIBRARY) TYPE(*CHAR) LEN(10)
DCL VAR(&STRIM) TYPE(*CHAR) LEN(100)
DCL VAR(&USRCLS) TYPE(*CHAR) LEN(10)
DCL VAR(&SPLCTL) TYPE(*CHAR) LEN(10) VALUE('*SPLCTL ')
DCL VAR(&USER) TYPE(*CHAR) LEN(10)
DCL VAR(&WRET) TYPE(*CHAR) LEN(3)
DCL VAR(&STRLEN) TYPE(*DEC) LEN(3 0) VALUE(100)
DCL VAR(&STRPOS) TYPE(*DEC) LEN(3 0) VALUE(1)
DCL VAR(&LENGH) TYPE(*DEC) LEN(3 0) VALUE(10)
DCL VAR(&TRANSLATE) TYPE(*LGL) LEN(1)
DCL VAR(&TRIM) TYPE(*LGL) LEN(1) VALUE('1')
...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+..
DCL VAR(&WILD) TYPE(*CHAR) LEN(1)
DCL VAR(&RESUL) TYPE(*DEC) LEN(3 0) VALUE(0)
DCL VAR(&ERR) TYPE(*CHAR) LEN(3) VALUE('0')
DCL VAR(&ERROR) TYPE(*CHAR) LEN(1) VALUE('0')

ADDLIBLE LIB(&LIBRARY) POSITION(*LAST)
MONMSG MSGID(CPF0000)

********************************/
* */
* Comprobación de la Licencia */
* */
********************************/

CALL PGM(SLICECHK) PARM(&ERROR)
IF COND(&ERROR *NE '0') THEN(DO)
SNDPGMMSG MSGID(ICE9999) MSGF(*LIBL/QMSGSL) MSGDTA(&ERROR)
MONMSG MSGID(CPF0000)
GOTO CMDLBL(FINAL)
ENDDO

RTVJOBA USER(&USER)
RTVUSRPRF USRPRF(&USER) SPCAUT(&STRIM) USRCLS(&USRCLS)

/*************************************/
/* */
/* Valida que el *USR tenga *SPLCTL */
/* */
/*************************************/


CALL PGM(SLICE950) PARM(&USER '*SPLCTL' &ERR)
MONMSG MSGID(CPF0000) EXEC(DO)
SNDPGMMSG MSGID(ICE9001) MSGF(*LIBL/QMSGSL) +
MSGDTA('*USRPRF/*CURRENT ')
MONMSG MSGID(CPF0000)
GOTO CMDLBL(FINAL)
ENDDO
IF COND(&ERR *EQ '1') THEN(DO)
SNDPGMMSG MSGID(ICE9001) MSGF(*LIBL/QMSGSL) +

MSGDTA('*SPLCTL EN *USRPRF ')
MONMSG MSGID(CPF0000)
GOTO CMDLBL(FINAL)
ENDDO

ADDPFM FILE(SLICE01) MBR(&USER)
MONMSG MSGID(CPF0000) EXEC(CLRPFM +
FILE(SLICE01) MBR(&USER))
ADDPFM FILE(SLICE02) MBR(&USER)
MONMSG MSGID(CPF0000) EXEC(CLRPFM +
FILE(SLICE02) MBR(&USER))
DLTSPLF FILE(&USER) SELECT(*CURRENT *ALL *ALL +
'SLICEWRK ')
MONMSG MSGID(CPF0000)
F05: CHGVAR VAR(&WRET) VALUE(' ')
OVRPRTF FILE(QPRTSPLF) FORMTYPE('SANLUIS ') +
HOLD(*YES) USRDTA('SLICEWRK ') +
SPLFNAME(&USER)
WRKSPLF SELECT(*ALL *ALL *ALL *ALL) OUTPUT(*PRINT)
CPYSPLF FILE(&USER) TOFILE(SLICE01) TOMBR(&USER)
DLTSPLF FILE(&USER) SELECT(*CURRENT *ALL *ALL +
'SLICEWRK ')
MONMSG MSGID(CPF0000)
OVRDBF FILE(SLICE01) TOFILE(SLICE01) MBR(&USER)
OVRDBF FILE(SLICE02) TOFILE(SLICE02) MBR(&USER)

CALL PGM(SLICE01) /* Crea SLICE02 con Descripción */

/*************************************************************/
/* */
/* SLICE05 - Muestra Archivos en SPOOL así; */
/* */
/* Si Usuario es: OPERADOR SISTEMA = TODOS */
/* OFICIAL DE SEG. = TODOS */
/* ADMINISTRADOR \" = TODOS */
/* PROGRAMADORES \" = TODOS */
/* */
/* El Resto de Usuarios: SOLO LOS GENERADOS POR EL */
/* */
/*************************************************************/

IF COND(&USRCLS *EQ '*SYSOPR ' *OR &USRCLS +
*EQ '*SECADM ' *OR &USRCLS *EQ +
'*SECOFR ' *OR &USRCLS *EQ '*PGMR +
') THEN(CALL PGM(SLICE05) PARM('*ALL +
' &WRET &USER))
ELSE CMD(CALL PGM(SLICE05) PARM(&USER &WRET &USER))
CLRPFM FILE(SLICE02) MBR(&USER)
MONMSG MSGID(CPF0000)
DLTOVR FILE(*ALL)
IF COND(&WRET *EQ 'F05') THEN(GOTO CMDLBL(F05))
IF COND(&WRET *EQ 'F20') THEN(DO)
TFRCTL PGM(SLICE910) PARM(&LIBRARY)
MONMSG MSGID(CPF0000)
ENDDO
RMVLIBLE LIB(&LIBRARY)
MONMSG MSGID(CPF0000)
FINAL: ENDPGM
Ver código CL
Ver código RPG y DDS
Fecha 22-09-2004
Actualización de fuentes 13-10-2004


Tienes algún truco que quieras compartir con todos los profesionales de Recursos iSeries AS400?.Envianoslo y si resulta seleccionado te enviaremos un vale de Amazon por valor de 50$

Comentarios de usuarios

Nombre:
Mail:
Comentario:
 

Subir a la parte superior de la web

Symtrax
Dossiers técnicos iSeries y AS400
- Dossier de seguridad
- Alta disponibilidad.
¿Buscas trabajo ?
Inscríbete en nuestra lista laboral y recibirás las ofertas de trabajo en tu buzón de correo electrónico.
Nuestros links preferidos
- Tendencias tecnologías de la información
Expertos en materías relacionadas con las 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. Software gratuito para el iSeries AS400
- Utilidades para el iSeries AS400 realizadas por profesionales
- Documentos. Trucos e ideas para resolver tus problemas
- Manuales. 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: Poliedric, s.c.p. CIF:G63005011 Urgell 143 1º1ª 08036 - Barcelona - Tel.+34.902.361.344