API QSYRUSRI

[tarkusch]

Hallo,

wollte den zugeordneten Drucker in Rpg-Free ermitteln und bin auf dieses Api gestossen.


Im Programm habe ich folgende Zeilen eingefügt

 F*********************************************************   
  /COPY QSYSINC/QRPGLESRC,QUSEC                             
  /COPY QSYSINC/QRPGLESRC,QSYRUSRI                          
 D GetUsrInf       PR                  ExtPgm('QSYRUSRI')   
 D   RcvVar                            Likeds(QSYI0200)     
 D   RcvVarLen                   10i 0                      
 D   Format                       8    const                
 D   UserPrf                     10    const                
 D   Error                             Likeds(QUSEC)        
:
:
QUSBPRV = 0;                                   
callp GetUsrInf(QSYI0200:                      
                %Size(QSYI0200):               
                'USRI0200':                    
                '*CURRENT':                    
                QUSEC);                        
       TEXT = 'Group profile is ' + QSYGP01;

Ich bekomme aber die beim Compelieren folgende Fehlermeldung:

*RNF7542 30      1 Parameter kann nicht nach Referenz übergeben werden, wenn er                                 
                   beim Aufruf geändert werden kann.                                                            
*RNF7031 QSYI0100          DS(94)                 000080D                                       
         QSYI0200          DS(104)                000125D     004500      014700      014800    
*RNF7031 QSYI0300          DS(694)                000192D

Wie muss QSYI0200 eigentlich definiert sein?
Gibt es eigentlich vielleicht einen einfacheren Weg die Drucker-Outq im Rpg-Programm zu ermitteln.


Dank im Voraus

Tarki

[Fuerchau]

RcvVarLen hat kein "CONST" und ist somit per Reference zu übergeben.
%SIZE() als 2. Parameter geht da nicht.
Setze einfach CONST hinter die Parameterdefinition.

[Pikachu]

Da fehlt noch ein "const" bei RcvVarLen.

[Fuerchau]

RTVJOBA ist das CLP-Kommando dazu.
Allerdings kann durch Überschreibungen, Direktangaben in der PRTF die Ausgabe ganz woanders landen.

[tarkusch]

Danke für die rasche Antwort, aber in der Datenstruktur QSYI0200 habe ich die Drucker Ausgabewarteschlange nicht gefunden.
Bin ich da mit diesem Api auf den falschen Dampfer?

Gruß
Tarki

[Fuerchau]

Die steht im USRI0300:
http://pic.dhe.ibm.com/infocenter/is...2%20#HDRSRIRA1