¿ 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
Verificar quien tiene un Documento bloqueado

Categoría : Programación
Autor : Alexander Cortes Escobar
Título : Verificar quien tiene un Documento bloqueado


Descripción del truco:
Este programa verifica quien tiene un documento bloqueado, realiza un DSPDLONAM con salida a print, con el print se utiliza el comado WRKOBJLCK y muestra quien tiene el documento bloqueado.
Se crea un archivo en qtemp para la salida a print.

Se puede utilizar tambien como un comando enviando parametros (&DOCUMENTO &CARPETA)

PGM PARM(&DOCUMENTO &CARPETA) 
 DCL VAR(&DOCUMENTO) TYPE(*CHAR) LEN(10) 
 DCL VAR(&CARPETA) TYPE(*CHAR) LEN(13) 
 DCL VAR(&OBJETO) TYPE(*CHAR) LEN(10) 
 DCLF FILE(QTEMP/SPLF134) 
 MONMSG MSGID(CPD0852) 
 DSPDLONAM DLO(&DOCUMENTO) FLR(&CARPETA) OUTPUT(*PRINT)
 CRTPF FILE(QTEMP/SPLF134) RCDLEN(132) 
 MONMSG MSGID(CPF5813) 
 MONMSG MSGID(CPF7302) 
 CPYSPLF FILE(DSPDLONAM) TOFILE(QTEMP/SPLF134) + 
 SPLNBR(*LAST) 
 LEER: RCVF 
 MONMSG MSGID(CPF0864) EXEC(GOTO CMDLBL(ENDPGM)) 
 IF COND(%SST(&SPLF134 2 6) *EQ 'Nombre') + 
 THEN(GOTO CMDLBL(WRK)) 
 GOTO CMDLBL(LEER) 
 WRK: CHGVAR VAR(&OBJETO) VALUE(%SST(&SPLF134 41 10)) 
 WRKOBJLCK OBJ(QDOC/&OBJETO) OBJTYPE(*DOC) 
 ENDPGM: DLTSPLF FILE(DSPDLONAM) SPLNBR(*LAST) 
 ENDPGM 

Ver código fuente
Fecha 21-06-2005

Tienes algún truco que quieras compartir con todos los profesionales de Recursos iSeries i5 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

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: 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