Moin,

damit solltest du die nötigen Infos über die Einträge in der DTAQ bekommen. Musst dir halt ein CL schreiben das die ganze Zeit die DTAQ "pollt".

PHP-Code:

           DCL        VAR(&SPLFDTA) TYPE(*CHAR) LEN(128)
           DCL        VAR(&DTALEN) TYPE(*DEC) LEN(5 0) VALUE(128
           DCL        VAR(&WAIT) TYPE(*DEC) LEN(5 0) VALUE(-1)
           DCL        VAR(&JOBNAME) TYPE(*CHAR) LEN(10)
           DCL        VAR(&JOBUSER) TYPE(*CHAR) LEN(10)
           DCL        VAR(&JOBNBR) TYPE(*CHAR) LEN(6)
           DCL        VAR(&SPLFNAME) TYPE(*CHAR) LEN(10)
           DCL        VAR(&SPLFNBR) TYPE(*DEC) LEN(9 0)
    
LOOP:

/* RECEIVE DATA QUEUE ENTRY, OR WAIT FOR ONE  */
            CALL       PGM(QRCVDTAQ) PARM(MYDATAQ MYLIB +
                         &DTALEN &SPLFDTA &WAIT)

/* GET DETAILS FOR DATA QUEUE ENTRY   */
            CHGVAR     VAR(&JOBNAME) VALUE(%SST(&SPLFDTA 13 10))
            CHGVAR     VAR(&JOBUSER) VALUE(%SST(&SPLFDTA 23 10))
            CHGVAR     VAR(&JOBNBR) VALUE(%SST(&SPLFDTA 33 6))
            CHGVAR     VAR(&SPLFNAME) VALUE(%SST(&SPLFDTA 39 10))
            CHGVAR     VAR(&SPLFNBR) VALUE(%BIN(&SPLFDTA 49 4))


/* MACH WAS */

GOTO       CMDLBL(LOOP) 


Gruß

Sascha