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/iserie...s/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