Beschreibung Benutzer

[jojoschluckfirma]

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]

RTVUSRPRF USRPRF(USRPRF) TEXT(&TEXT)

[jojoschluckfirma]

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

[jajonowak]

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]

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]

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]

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.

[jajonowak]

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]

....Das funktioniert bei mir tadellos....

japp, bei mir auch ohne Probleme.
Ich tippe auf Programmfehler/Parameterfehler....

k.

[jojoschluckfirma]

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

[Frank Hildebrandt]

Wenn denn alle Möglichkeiten zum Thema Programmierfehler ausgeschlossen sind, dann bleibt nur noch CALL IBM.

[kuempi von stein]

nur nochmal zur Vorsicht...

heisst der Parameter &QTEXT oder &TEXT?
Deine Angaben hier widersprechen sich...

k.