Durch die Definition von Untersystemverwaltern können Sie Zugangsberechtigungen gewähren, die in der Standard-Benutzerverwaltung von Entire Operations nicht angeboten werden.
Wird das mit Entire Operations ausgelieferte Modul US-EX--N
nicht geändert, dann stellt es die Standard-Benutzerverwaltung dar: Jeder
Benutzer hat Lese-, Schreib- und Löschberechtigung für Benutzer-Definitionen
oder er ist von jeglicher Benutzerverwaltung ausgeschlossen.
Dieses Dokument behandelt folgende Themen:
Um Untersystemverwalter zu definieren:
Ändern Sie das Modul US-EX--N in der Bibliothek
SYSEOR.
Mit US-EX--N können Sie eine beliebige Anzahl von
Beziehungen zwischen Entire Operations-Benutzern definieren.
US-EX--N benötigt folgende Parameter:
USER-1 ist der Untersystemverwalter, das heisst, der
Benutzer, der andere Benutzer definiert. Seine Rechte gegenüber
USER-2 sind in der Angabe des Rückmeldeschlüssels definiert.
USER-2 ist der Benutzer, der von USER-1
definiert wird.
RC (Rückmeldeschlüssel) definiert die Rechte von
USER-1 und die Beziehungen zwischen USER-1 und
USER-2.
| Dataset-Name | Inhalt |
|---|---|
Y |
USER-1 kann USER-2
anzeigen, ändern und löschen.
|
R |
USER-1 kann USER-2
anzeigen.
|
| Andere Werte | USER-1 kann USER-2
nicht anzeigen, ändern und löschen.
|
Die oben aufgeführten Einträge werden im
Anzeigen/Ändern/Löschen-Abschnitt DISPLAY MODIFY DELETE - Section
des Programms US-EX--N vorgenommen.
Im Anlegen-Abschnitt ADD - Section des Programms
US-EX--N geben Sie an, ob ein Untersystemverwalter berechtigt ist,
andere Benutzer anzulegen. In diesem Fall muss USER-1 auf
Y gesetzt werden. Ein anderer Wert als Y bedeutet,
dass USER-1 nicht berechtigt ist, weitere Benutzer anzulegen.
USER-2 ist unbenutzt.
Im folgenden Abschnitt finden Sie ein Beispiel für
US-EX--N, das Sie benutzen können, um das Programm an die
Erfordernisse Ihres Betriebs anzupassen.
Das Programm prüft nicht, ob USER-1 und
USER-2 zum selben Eigentümer gehören. Sie können
Untersystemverwalter unabhängig von ihren Eigentümern angeben. Falls
USER-1 und USER-2 identisch sind, gibt es keine
Einschränkungen.
* US-EX--N
*
* EOR USER Modification
* This exit is called by US-DEF-P and US-LI--P to give certain
* users limited rights on other users (specify Subadministrator)
* MODIFICATIONS:
* 09.01.97 (160039) User exit for defining subadministrators GFR212
* ----------------------------------------------------
DEFINE DATA
PARAMETER
1 P-USER-1 (A08) /* IN
1 P-USER-2 (A08) /* IN
1 P-US-EX-RC (A1) /* OUT
*
*
END-DEFINE
* -----------------------
RESET P-US-EX-RC
*
* Users modifies himself
*
IF P-USER-1 = P-USER-2
P-US-EX-RC := 'Y'
ESCAPE ROUTINE
END-IF
*
IF P-USER-1 NE ' '
IF P-USER-2 NE ' '
* *************************************************************
* DISPLAY MODIFY DELETE - Section
* *************************************************************
P-US-EX-RC := 'Y' /* 'R' means DISPLAY only
/* 'Y' means DELETE MODIFY
* For all users we give back 'Y' as return code
*
* Beispiel for subadministrator ABC
* IF P-USER-1 = 'ABC'
* IF P-USER-2 = 'XYZ'
* MOVE 'Y' TO P-US-EX-RC /* can modify or delete user XYZ
* ELSE
* MOVE 'R' TO P-US-EX-RC /* can display all others
* END-IF
* END-IF
*
ELSE
* ****************************************************************
* ADD - Section
* ****************************************************************
* /* 'Y' means ADD allowed
P-US-EX-RC := 'Y' /* anything else means ADD not allowed
*
* For all users we give back 'Y' as return code
*
* Beispiel for subadministrator ABC
* IF P-USER-1 = 'ABC'
* MOVE 'N' TO P-US-EX-RC /* can not add any user
* END-IF
END-IF
END-IF
END