Hallo,

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


Im Programm habe ich folgende Zeilen eingefügt

Code:
 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:
Code:
*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