User in Rpg abfragen

[Bernd Wiezroek]

Ich möchte in einem RPG Programm teile nur von Bestimmten Benutzern(Gruppen) ausführen lassen. Gibt es eine Variable mit der ich den User abfragen kann?
In unserer RPG Referenz habe ich dazu nichts gefunden.

[Fuerchau]

Der User wird in der SDS abgelegt und zwar von Stelle 254 bis 263.

[Bernd Wiezroek]

Danke für die schnelle Antwort. Ich muß also die SDS einlesen. Mal sehen ob ich das hinbekomme. Mit externen Datenstrukturen hab ich noch wenig Erfahrung.

[Fuerchau]

Dies ist keine externe Datenstruktur, braucht nicht eingelesen zu werden sondern muss nur definiert werden.
Suche im RPG-Handbuch/Referenz nach "Program-Status-Area". Dort findest du sicherlich noch mehr interressantes.

[malzusrex]

hallo Bernd

fürge folgende zeilen in deinen d-bestimmungen ein

d                                                                                         
d                sds                                                                      
d sds_pgm           *proc                                                  Programmname   
d sds_job               244    253                                         Jobname        
d sds_user              254    263                                         Username       
d sds_zeit              282    287                                         Ausführungszeit

tschau ronald

[Bernd Wiezroek]

Ich habe mir die Programmstatusdatenstruktur in der Referenz angesehen. Vorher hab ich in den Quellen nach SDS gesucht und dann im ISDB in die Variable gesehen. Für die einzelnen User klappt das hervorragend. Leider scheint es keine Möglichkeit zu geben auch Gruppen zu erfassen.

Da muß ich wohl eine Berechtigungsdatei anlegen in der die Usernamen und die Zugriffsstufen erfasst werden.

Ich bedanke mich für die schnelle Hilfe.

[Fuerchau]

Wenn du das Gruppenprofil des Benutzers erfragen willst, dann ruf ein kleines CLP (ggf. auch als Funktion) auf in dem du den Befehl RTVUSRPRF verwendest. Dort kannst du auch das zugeordnete Gruppenprofil erfragen.

[Bernd Wiezroek]

Das mit dem Cl werde ich nachher mal ausprobieren.

Dann brauche ich keine extra Datei.

Danke für den Tipp.

[uwer]

Hallo

wir haben die Datenstruktur als Datei erstellt und rufen sie extern ab. Das hat den Vorteil, daß man nur ein Statement kodieren muß.

Abruf:
IPGMSTS ESDSXSTS

Datei: XSTS
Beispiel siehe Anhang

Der User wäre dann QUSER

[Unregistriert]

Ich möchte in einem RPG Programm teile nur von Bestimmten Benutzern(Gruppen) ausführen lassen. Gibt es eine Variable mit der ich den User abfragen kann?
In unserer RPG Referenz habe ich dazu nichts gefunden.

Es geht auch einfacher:
Variable definieren mit Inz(*User)

[loeweadolf]

Hallo Bernd,

ich habe bei einem Anwender auch schion folgendes gesehen:
Die Benutzergruppe wird definiert im Userprofile als
"Berechnungs-Code (ACGCDE)".

Aus dem RPG-Programm wurde dann ein CL aufgerufen, welches den User und den Berechnungs-Code (=Gruppe) zurückgibt.

CL: RTVUSRPRF USERPRF(*current) RTNUSRPRF(&USER) ACGCDE(&UACC)

mfg. Ludger

[Bernd Wiezroek]

Das werde ich auch mal Testen
Ich frage derzeit den User ab diese Lösung ist aber unbefridegend da ein neuer berechtigter User im Programm eingetragen werden muß.