Fw: Para Miguel Angel Peinador. (SAI <-> AS400)

Fri, 20 Dec 2002 08:10:20 -0800

Muchas Gracias Miguel Angel,
 
As� lo hare, lo provar�.
 
Saludos y Felices Fiestas a Todos
 
        Josep C.
 
 
----- Original Message -----
Sent: Friday, December 20, 2002 9:23 AM
Subject: Re: Para Miguel Angel Peinador. (SAI <-> AS400)

Bueno, he echado un vistazo a la CL y parece que no tienes m�s que someterla con SBMJOB ya que ella sola se queda leyendo mensajes.
 
ET1:        RCVMSG     MSGQ(&LIB/&MSGQ) WAIT(600) RMV(*YES) +
                             MSGID(&MSGID)
             IF         COND(&MSGID *NE CPF1816) THEN(DO)
             RTVJOBA ENDSTS(&ENDSTS)
             IF         COND(&ENDSTS *EQ '1') THEN(GOTO CMDLBL(ENDPGM))
             GOTO       CMDLBL(ET1)
             ENDDO
 
 
----- Original Message -----
From: Josep C
Sent: Friday, December 20, 2002 12:06 AM
Subject: Para Miguel Angel Peinador. (SAI <-> AS400)

De nuevo muchas Gracias Miguel Angel
 
Pero debo hacerte una nueva pregunta, como puedo seg�n dices t�, dejar sometida esta Cl en la QCTL y permanecer siempre activa en MSGW.
 
Gracias anticipadas y Felices Fiestas
 
Un saludo
 
                Josep C.

Responder a