-
Beschreibung Benutzer
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
-
RTVUSRPRF USRPRF(USRPRF) TEXT(&TEXT)
Frank Hildebrandt
-
USRPRF
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
-
Zitat von 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
dann laß mal sehen was du da angestellt hast!
bei mir klappt es wunderbar
lg
hans-joachim
-
Ich hab das ganze mal folgendermaßen getestet.
PHP-Code:
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.
Frank Hildebrandt
-
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
-
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.
Frank Hildebrandt
-
hast du mal das cl mittels debug überprüft!
oder bekommt du den schrott nur in das aufrufende programm?
lg
hans-joachim
-
Zitat von Frank Hildebrandt
....Das funktioniert bei mir tadellos....
japp, bei mir auch ohne Probleme.
Ich tippe auf Programmfehler/Parameterfehler....
k.
-
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
-
Wenn denn alle Möglichkeiten zum Thema Programmierfehler ausgeschlossen sind, dann bleibt nur noch CALL IBM.
Frank Hildebrandt
-
nur nochmal zur Vorsicht...
heisst der Parameter &QTEXT oder &TEXT?
Deine Angaben hier widersprechen sich...
k.
Similar Threads
-
By SL in forum IBM i Hauptforum
Antworten: 4
Letzter Beitrag: 07-12-06, 10:46
-
By pwrdwnsys in forum IBM i Hauptforum
Antworten: 0
Letzter Beitrag: 27-11-06, 12:10
-
By ath in forum IBM i Hauptforum
Antworten: 3
Letzter Beitrag: 15-06-06, 11:23
-
By Peet in forum IBM i Hauptforum
Antworten: 5
Letzter Beitrag: 20-11-05, 10:13
-
By Herbie in forum IBM i Hauptforum
Antworten: 6
Letzter Beitrag: 23-07-04, 12:44
Berechtigungen
- Neue Themen erstellen: Nein
- Themen beantworten: Nein
- You may not post attachments
- You may not edit your posts
-
Foren-Regeln
|
Erweiterte Foren Suche
Google Foren Suche
Forum & Artikel Update eMail
AS/400 / IBM i
Server Expert Gruppen
Unternehmens IT
|
Kategorien online Artikel
- Big Data, Analytics, BI, MIS
- Cloud, Social Media, Devices
- DMS, Archivierung, Druck
- ERP + Add-ons, Business Software
- Hochverfügbarkeit
- Human Resources, Personal
- IBM Announcements
- IT-Karikaturen
- Leitartikel
- Load`n`go
- Messen, Veranstaltungen
- NEWSolutions Dossiers
- Programmierung
- Security
- Software Development + Change Mgmt.
- Solutions & Provider
- Speicher – Storage
- Strategische Berichte
- Systemmanagement
- Tools, Hot-Tips
Auf dem Laufenden bleiben
|
Bookmarks