Hola Albert,
Tambien puedes hacer lo siguiente, en teoria yo no lo he probado para una impresora pero seria facil de implementar:
1. Cambiale la cola de mensajes de la impresora para que no sea QSYSOPR.
2. Crea un CL que haga mas o menos lo siguiente:
PGM....LOOP: CHGVAR VAR(&MSGID) VALUE(' ')RCVMSG MSGQ(QSYS/QSYSMSG) MSGTYPE(*ANY) WAIT(30) RMV(*NO) MSG(&MSGTXT) MSGDTA(&MSGDTA) MSGID(&MSGID) SEV(&SEV)IF COND(&MSGID = 'CPF3390') THEN(Ejecuta lo que quieras) /* Impresora finalizada */IF COND(&MSGID = 'CPA3394') THEN(Ejecuta lo que quieras) /* Cargar tipo formulario */ect...DLYJOB DLY(x seg)GOTO LOOP...ENDPGM
El WAIT(30) es para esperar durante 230 segundos si ha llegado algun mensaje si no se ira al DLYJOB.
Saludos.
El día 28/06/06, Albert López <[EMAIL PROTECTED]> escribió:
Hola a todos,
necesito crear un programa que cada x tiempo revise el estado de una impresora ( si está parada, si tiene algun mensaje...
He visto que existen API que devuelven la información de la impresora (QSPRWTRI) y enviar mensajes a la cola de la impresora, si fuera necesario (QSPSNDWM).
Alguien ha utilizado estas APIs para ver un ejemplo??. La verdad es que no he utilizado muchas APIs y voy un poco cojo con el tema..
Gracias,
Albert López
IT Department. Helpdesk Consultant
š [EMAIL PROTECTED]
É +34 93 724 39 00
Ê +34 93 723 86 65
Aquapoint S.A.
C/ Filadors, 35 4a planta
08208 Sabadell BCN (Spain)
This e-mail may contain confidential or priviliged information. If you are not the intended recipient please advise by return email and delete immediately without regarding or fowarding to others.
--
Martí Riera
