Spool-Status?

[cbe]

Hallo allerseits,

weiß jemand, wie man den Spoolstatus und evtl. weitere interessante Attribute eines Spools per Programm rausbekommt?

Die Zugriffsdaten habe ich per RCVDTAQ über eine an der OUTQ angehängte DTAQ geholt, finde dort aber nicht alles, was ich brauche.

Und WRKSPLFA mit *PRINT und Spool auslesen möchte ich wenn möglich vermeiden.

Gruß
Christian

[RobertMack]

Hallo Christian,

da gibt's ein API, hab's selbst aber noch nicht benutzt:

http://publib.boulder.ibm.com/iseries/v5r2/ic2929/info/apis/QUSRSPLA.htm

Gruß,
Robert

[kuempi von stein]

Hello,

wollte RTVSPLFA antworten. Aber das ist gar nicht regulär sehe ich gerade.
Das gabs mal in der TAATOOL...

k.

[cbe]

perfekt, das API istgenau das, was ich gebrauchen kann, vielen Dank.


Wen es interessiert, hier ist mein Programm in CL:



PGM PARM(&SPLF &JOB &SPLNRA &USRDTA &STATUS)

DCL VAR(&SPLF) TYPE(*CHAR) LEN(10)
DCL VAR(&JOB) TYPE(*CHAR) LEN(26)
DCL VAR(&SPLNRA) TYPE(*CHAR) LEN(5)

DCL VAR(&USRDTA) TYPE(*CHAR) LEN(10)
DCL VAR(&STATUS) TYPE(*CHAR) LEN(10)

DCL VAR(&DATA) TYPE(*CHAR) LEN(4096) /* x'00010000' */

DCL VAR(&SPLNRB) TYPE(*CHAR) LEN(4)
DCL VAR(&JOBID) TYPE(*CHAR) LEN(16)
DCL VAR(&SPLFID) TYPE(*CHAR) LEN(16)


CHGVAR VAR(%BIN(&SPLNRB)) VALUE(&SPLNRA)

CHGVAR VAR(&DATA) VALUE(' ')
CALL PGM(QUSRSPLA) PARM(&DATA X'00001000' +
'SPLA0100' &JOB &JOBID &SPLFID &SPLF &SPLNRB)
MONMSG MSGID(CPF0000)

CHGVAR VAR(&USRDTA) VALUE(%SST(&DATA 91 10))
CHGVAR VAR(&STATUS) VALUE(%SST(&DATA 101 10))

ENDPGM


Gruß
Christian