Berechtigung nur ein mal bei Programmausführung

[JonnyRico]

Hallo,

für euch ist es sicher ein leichtes mir die Frage zu beatworten.
Wenn ein Benutzer, der keine Berechtigung auf die Objekte hat die im aufgerufenen Programm verändert oder benutzt werden tritt ein Fehler auf. Ich möchte dem User nicht dauerhaft die Berechtigung geben. Kann ich diese Berechtigung so vergeben das wenn das RPG-Programm aufgerufen er die Berechtigungen bekommt aber sie nachher wieder verliert? Vielen Dank im voraus.

[Bodo Roggenkamp]

Hallo,

mit den CL-Befehlen

GRTOBJAUT = Objektberechtigung erteilen

RVKOBJAUT = Objektberechtigung entziehen

sollte das Problem zu lösen sein.

Gruss
Bodo

[JonnyRico]

Hallo,

das Problem ist aber das ich dem Benutzer einen Punkt ins Menü einbauen möchte. Dieses Menü sollen mehrere Leute benutzen und ich muss immer dem aktuellen Benutzer wenn er dieses Punkt ausführt die Berechtigung geben. Bei GRTOBJAUT USER gibt es leider nicht *CURRENT. Gibt es dafür auch eine Lösung. Ich will nicht für jeden Benutzer ein eigenes Programm und damit auch ein eigenes Menü machen.

[Bodo Roggenkamp]

Hallo,

ein CL-PGM erstellen und dieses im Menü ablegen.

CL-PGM macht dann folgendes:

PGM
DCL VAR(&USER) TYPE(*CHAR) LEN(10)
RTVUSRPRF USRPRF&USER)
IF COND(&USER *EQ 'JONNY') THEN(DO)
GRTOBJAUT USER(&USER)
CALL RPG-PGM
RVKOBJAUT USER(&USER)
ENDDO
ELSE
CALL RPG-PGM (für alle anderen User)
ENDPGM

Gruss
Bodo

[schreibr]

Hallo JonnyRico,
ich bevorzuge, beim Umwandeln des Programmes (also z.B. CRTBNDRPG) den Parameter USRPRF zu verwenden. Wenn du diesen auf den Wert *OWNER setzt, übernimmt das Programm die Berechtigungen des Pgm-Eigners und nicht die des Pgm-Users.
Gruss Reinhold

[JonnyRico]

Hallo,

vielen vielen Dank für die schnelle Hilfe. Ich werde das in CL mal versuchen. Das mit dem RPG-Umwandeln klappt leider nicht da das RPG nich von mir ist sondern von einer externen Firma und uns der Source-Code nicht zur Verfügung steht. Nochmals vielen Dank.

[rmittag]

CHGPGM ... USRPRF(*OWNER) ???
geht nicht ?

Gruß Rolf