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
Bookmarks