RE: DTAQ monitor.

[Scott Mildenberger <Smildenber@xxxxxxxxxxxx>]

Ken,

pgm  parm(&spool &job &juser &jnumber &number)

             DCL        VAR(&SPOOL) TYPE(*CHAR) LEN(10)
             DCL        VAR(&JOB) TYPE(*CHAR) LEN(10)
             DCL        VAR(&JUSER) TYPE(*CHAR) LEN(10)
             DCL        VAR(&JNUMBER) TYPE(*CHAR) LEN(6)
             DCL        VAR(&NUMBER) TYPE(*DEC) LEN(5 0)

             CHGSPLFA   FILE(&spool) JOB(&JNUMBER/&jUSER/&JOB) +
                          SPLNBR(&number) OUTQ(MRLMKT) DRAWER(3)

endpgm


Scott Mildenberger

> -----Original Message-----
> From: Shields, Ken [mailto:kenshields@ppg.com]
> Sent: Tuesday, June 25, 2002 2:26 PM
> To: 'Midrange Mailing LIst'
> Subject: DTAQ monitor.
>
>
> Hi Group..
>       I have a need to create an output queue and using a
> DTAQ parm, have it send an entry to the data queue as soon as
> a report appears on the queue.
>       Has anyone an example of a program that will monitor a
> data queue, read the entry to obtain the Spool id#'s?