Yo lo tengo implementado asi:
(&CAM05A= al estado del spool &CAM03A= Dispositivo)
IF (&SELECA *EQ ' 7' *OR &SELECA *EQ '7 ' *OR SELECA *EQ '07') +
THEN(DO)
IF COND(&CAM05A *EQ 'MSGW') THEN(DO)
CHGJOB RUNPTY(2)
RTVCFGSRC CFGD(&CAM03A) CFGTYPE(*DEVD) +
SRCFILE(QGPL/QCLSRC) SRCMBR(&CAM03A) +
MBROPT(*REPLACE)
OVRDBF FILE(QCLSRC) TOFILE(QGPL/QCLSRC) MBR(&CAM03A)
/* */
/* SACAR PANTALLA */
/* */
LEE: CHGVAR VAR(&N) VALUE(1)
RCVF RCDFMT(QCLSRC)
MONMSG MSGID(CPF0000) EXEC(DO)
GOTO CMDLBL(FIN)
ENDDO
LEE1: IF (&N *LE 75) THEN(DO)
CHGVAR VAR(&COMP) VALUE(%SST(&SRCDTA &N 5))
IF ('MSGQ(' *NE &COMP) THEN(DO)
CHGVAR VAR(&N) VALUE(&N + 1)
GOTO CMDLBL(LEE1)
ENDDO
ELSE (DO)
CHGVAR VAR(&N) VALUE(&N + 11)
CHGVAR VAR(&COLA) VALUE(%SST(&SRCDTA &N 10))
CHGVAR VAR(&N) VALUE(1)
CHGVAR VAR(&SW) VALUE('0')
LEE2: IF (&N *LE 10) THEN(DO)
CHGVAR VAR(&C) VALUE(%SST(&COLA &N 1))
IF (')' *EQ &C *OR &SW *EQ '1') THEN(DO)
CHGVAR VAR(%SST(&COLA &N 1)) VALUE(' ')
CHGVAR VAR(&SW) VALUE('1')
ENDDO
CHGVAR VAR(&N) VALUE(&N + 1)
GOTO CMDLBL(LEE2)
ENDDO
ENDDO
ENDDO
ELSE (DO)
GOTO CMDLBL(LEE)
ENDDO
DSPMSG MSGQ(&COLA) MSGTYPE(*INQ) ASTLVL(*INTERMED)
MONMSG MSGID(CPF0000)
ENDDO
ENDDO
-----Mensaje original-----
De: JUAN MANUEL CEVASCO ROMERO [mailto:[EMAIL PROTECTED]] En nombre de
JUAN MANUEL CEVASCO ROMERO
Enviado el: martes, 11 de febrero de 2003 12:56
Para: [EMAIL PROTECTED]
Asunto: Sobre gestor de spool
Saludos a todos,
He estado realizando modificaciones a la utilidad VERSPL (sacada de la p�gina de
recursos), para a�adirle algunas opciones adicionales (liberar, retener, pasar a pdf,
word y excel).
Tan s�lo me falta incluir el equivalente a la opci�n 7 del wrksplf para poder
contestar a mensajes que produce el AS/400, por ejemplo de alineaci�n � cambio de
formulario.
Pero no se como abordarlo, �alguno de vosotros tiene alguna idea al respecto?
�Conoc�is alguna api que controle esto?
Muchas gracias a todos
Juan Manuel Cevasco Romero
Dpto. Desarrollo
Inforges S. A.
mailto:[EMAIL PROTECTED]
http://www.inforges.es/
Tel�fono: 968350011 (Centralita)
Fax: 968264569
_____________________________________________________________________
AMCOR FLEXIBLES EUROPE - LEADING THROUGH INNOVATION
_____________________________________________________________________
CAUTION - This message may contain privileged and confidential information intended
only for the use of the addressee named above. If you are not the intended recipient
of this message you are hereby notified that any use, dissemination, distribution or
reproduction of this message is prohibited. If you have received this message in error
please notify AMCOR FLEXIBLES EUROPE immediately. Any views expressed in this message
are those of the individual sender and may not necessarily reflect the views of AMCOR
FLEXIBLES EUROPE.
_____________________________________________________
Forum.HELP400 es un servicio m�s de NEWS/400.
� Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________
Para darte de baja, env�a el mensaje resultante de pulsar
mailto:[EMAIL PROTECTED]?body=LEAVE
