View Full Version : Beschreibung Benutzer
jojoschluckfirma
07-04-06, 08:26
Hallo,
gibt es eine Möglichkeit die Beschreibung die unter TEXT im Benutzerprofil liegt über eine CL zu lesen z.B. mit RTV um diese dann in ein RPG Programm zu verarbeiten.
Benutzerprofil . . . . . . . . . . . . . . : VKVK12
Startprogramm . . . . . . . . . . . . . . : STARTVK1
Bibliothek . . . . . . . . . . . . . . . : QGPL
Anfangsmenü . . . . . . . . . . . . . . . : MAIN
Bibliothek . . . . . . . . . . . . . . . : *LIBL
Möglichkeiten einschränken . . . . . . . . : *YES
Text . . . . . . . . . . . . . . . . . . . : BS VKVK12 Verkauf
Gruss Jojo
Frank Hildebrandt
07-04-06, 08:45
RTVUSRPRF USRPRF(USRPRF) TEXT(&TEXT)
jojoschluckfirma
07-04-06, 08:58
Hallo,
genau das habe ich auch gedacht das das da steht aber bei mir steht dort alles andere nur nicht das siehe Beispiel
Programm . . . . . . . . . . . . . . . : PCRTVUSR
Rekursionsebene . . . . . . . . . . . . : 1
Startposition . . . . . . . . . . . . . : 1
Format . . . . . . . . . . . . . . . . : *CHAR
Länge . . . . . . . . . . . . . . . . . : *DCL
Variable . . . . . . . . . . . . . . . : &QTEXT
Art . . . . . . . . . . . . . . . . . : ZEICHEN
Länge . . . . . . . . . . . . . . . . : 50
*...+....1....+....2....+....3....+....4....+....5
' CRTVUSRoPRGU'
Gruss Jojo
Hallo,
genau das habe ich auch gedacht das das da steht aber bei mir steht dort alles andere nur nicht das siehe Beispiel
Programm . . . . . . . . . . . . . . . : PCRTVUSR
Rekursionsebene . . . . . . . . . . . . : 1
Startposition . . . . . . . . . . . . . : 1
Format . . . . . . . . . . . . . . . . : *CHAR
Länge . . . . . . . . . . . . . . . . . : *DCL
Variable . . . . . . . . . . . . . . . : &QTEXT
Art . . . . . . . . . . . . . . . . . : ZEICHEN
Länge . . . . . . . . . . . . . . . . : 50
*...+....1....+....2....+....3....+....4....+....5
' CRTVUSRoPRGU'
Gruss Jojo
dann laß mal sehen was du da angestellt hast!
bei mir klappt es wunderbar
lg
hans-joachim
Frank Hildebrandt
07-04-06, 09:10
Ich hab das ganze mal folgendermaßen getestet.
PGM
DCL VAR(&TEXT) TYPE(*CHAR) LEN(50)
RTVUSRPRF USRPRF(USRPRF) TEXT(&TEXT)
ENDPGM
Das funktioniert bei mir tadellos. Wenn das bei Dir nicht klappt, dann kann es sich nur um eine Macke im Betriebssystem handeln und Du musst bei IBM nach einem PTF fragen.
jojoschluckfirma
07-04-06, 09:13
Vielen Dank für die Bereitschaft mir zu helfen.
So ich habe jetzt das Cl kopiert womit ich den USR auslesen wollte.
PGM PARM(&QUSER &QTEXT)
DCL VAR(&QUSER) TYPE(*CHAR) LEN(10)
DCL VAR(&QTEXT) TYPE(*CHAR) LEN(50)
RTVUSRPRF USRPRF(&QUSER) TEXT(&QTEXT)
und hier ist die Benutzerbeschreibung
Benutzerprofil anzeigen - Basis
Benutzerprofil . . . . . . . . . . . . . . : VKVK12
Startprogramm . . . . . . . . . . . . . . : STARTVK1
Bibliothek . . . . . . . . . . . . . . . : QGPL
Anfangsmenü . . . . . . . . . . . . . . . : MAIN
Bibliothek . . . . . . . . . . . . . . . : *LIBL
Möglichkeiten einschränken . . . . . . . . : *YES
Text . . . . . . . . . . . . . . . . . . . : BS VKVK12 Verkauf
Es müßte doch jetzt im Parameter TEXT dieser Wert stehen "BS VKVK12 Verkauf"
Gruss Jojo
Frank Hildebrandt
07-04-06, 09:22
Ich würde jetzt einen Debug aufsetzen und auf dem Statement mit dem RTVUSRPRF, sowie direkt nach dem Statement mit dem RTVUSRPRF einen Breakpoint setzen. Sobald das Programm auf dem ersten Breakpoint stoppt den Wert im Feld QUSER prüfen und beim zweiten Breakpoint den Wert im Feld QTEXT prüfen. Die Statements, die Du gepostet hast sind OK.
hast du mal das cl mittels debug überprüft!
oder bekommt du den schrott nur in das aufrufende programm?
lg
hans-joachim
kuempi von stein
07-04-06, 10:30
....Das funktioniert bei mir tadellos....
japp, bei mir auch ohne Probleme.
Ich tippe auf Programmfehler/Parameterfehler....
k.
jojoschluckfirma
07-04-06, 10:41
So ich habe das CL mit einem DEBUG ausprobiert und es kommt n nur Schrott Programmfehler glaub ich nicht denn wenn ich es mit einem unbekannten User ausprobiere kommt eine Fehlermeldung.
Fehler im Parameter kann ich nicht sagen
Marke . . . . . . . . . . . . .
Benutzerprofil . . . . . . . . . > &QUSER
CL-Var. für RTNUSRPRF (10) . .
CL-Var. für SPCAUT (100) . .
CL-Var. für MAXSTG (11 0) . .
CL-Var. für STGUSED (15 0) .
CL-Var. für PTYLMT (1) . .
CL-Var. für INLPGM (10) . .
CL-Var. für INLPGMLIB (10) . .
CL-Var. für JOBD (10) . .
CL-Var. für JOBDLIB (10) . .
CL-Var. für GRPPRF (10) . .
CL-Var. für OWNER (10) . .
CL-Var. für GRPAUT (10) . .
CL-Var. für ACGCDE (15) . .
CL-Var. für MSGQ (10) . .
CL-Var. für MSGQLIB (10) . .
CL-Var. für OUTQ (10) . .
CL-Var. für OUTQLIB (10) . .
CL-Var. für TEXT (50) . . > &TEXT
CL-Var. für PWDCHGDAT (6) . .
CL-Var. für USRCLS (10) . .
CL-Var. für ASTLVL (10) .
CL-Var. für SPCENV (10) . .
CL-Var. für CURLIB (10) . .
CL-Var. für INLMNU (10) . .
CL-Var. f. INLMNULIB (10) . .
CL-Var. für LMTCPB (10) . .
CL-Var. für DLVRY (10) . .
CL-Var. für SEV (2 0) . .
CL-Var. für PRTDEV (10) . .
CL-Var. für ATNPGM (10) . .
So nun sollte der Wert in TEXT stehen
Gruss Jojo