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