Re: APIs Impresoras

[Marti Riera]

Perdon,

 

Donde dice RCVMSG     MSGQ(QSYS/QSYSMSG) debe decir:

RCVMSG     MSGQ(cola mensajes asignada a la impresora)

 

Saludos

 

2006/6/28, Marti Riera <[EMAIL PROTECTED]>:

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

--
Martí Riera