Dieses Dokument behandelt die folgenden Themen:
Eine Befehl/Objekt-Kombination für ein bestimmtes Büro aktivieren/deaktivieren.
Dieses Subprogramm kann nur von einem Supervisor oder Büroadministrator benutzt werden. Das Teilnehmerprofil des Büros SYSCNT kann mit diesem Subprogramm nicht geändert werden.
Um die ISN des gewünschten Büros auszugeben, können Sie vor dem Aufruf dieses Subprogramms entweder Z-ADD05 oder Z-DIS05 aufrufen.
Mit diesem Subprogramm können Sie die erlaubten Befehle für ein bestimmtes Büro definieren. Sie können Befehle erlauben und verbieten. Es wird empfohlen, dass Sie beides angeben: Befehlsnummer und Objektnummer.
Parameter | Format | Ein | Aus | Bemerkung |
---|---|---|---|---|
Return-code | N2 | X | ||
Buero | A8 | E | Das Bürokennzeichen eines Supervisors oder Büroadministrators. | |
Passwort | A8 | E | Das Passwort des o.g. Büros. | |
Bueroname | A8 | E* | Der Name des zu ändernden Büros. Entweder Bueroname oder Buero-ISN, nicht beides. | |
Buero-ISN | P8 | E* | Die ISN des zu ändernden Büros. Entweder Buero-ISN oder Bueroname, nicht beides. | |
Befehlsnummer | N2 | E | Eine Liste der Befehlsnummern finden Sie in Con-nect Administration, Abschnitt Systemverwaltung. | |
Objektnummer | N2 | O | Siehe Objektnummern. Wenn keine Objektnummer angegeben wird, wird die komplette Objekttabelle für den angegebenen Befehl aktiviert/deaktiviert. | |
Aktiv-flag | A1 | E | Die Einstellung für diese Befehl/Objekt-Kombination. Wenn markiert, dann ist die Kombination erlaubt. Wenn nicht markiert, dann ist die Kombination nicht erlaubt. |
00 | Erfolg |
02 | Ungültiger Büroname oder - nur im Batch-Betrieb - Büro gesperrt |
03 | Falsches Passwort |
08 | Geben Sie entweder ISN oder Name ein - nicht beides |
15 | Ungültiger Administratorstatus |
91 | Geben Sie Bueroname oder Buero-ISN ein |
92 | Ungültige Befehlsnummer |
93 | Ungültige Objektnummer |
96 | Ungültiger Bueroname |
97 | Ungültige Buero-ISN |
99 | Das Büro SYSCNT darf nicht geändert werden |
Z-120
Z-122
Z-123
Z-175
DEFINE DATA LOCAL 1 RETURN-CODE (N2) 1 BUERO (A8) 1 PASSWORT (A8) 1 BUERONAME (A8) 1 BUERO-ISN (P10) 1 BEFEHLSNUMMER (N2) 1 OBJEKTNUMMER (N2) 1 AKTIV-FLAG (A1) END-DEFINE * RESET RETURN-CODE MOVE 'BUERO' TO BUERO /* Buerokennzeichen MOVE 'PASSWORT' TO PASSWORT /* Passwort MOVE 'NAME' TO BUERONAME /* Name des Buero RESET BUERO-ISN MOVE 13 TO BEFEHLSNUMMER /* Befehl USE RESET OBJEKTNUMMER /* Alle Objekte MOVE 'X' TO AKTIV-FLAG /* Erlauben * CALLNAT 'Z-MOD05N' RETURN-CODE BUERO PASSWORT BUERONAME BUERO-ISN BEFEHLSNUMMER OBJEKTNUMMER AKTIV-FLAG * IF RETURN-CODE EQ 0 WRITE 'Die Befehl/Objekt-Kombination wurde geaendert.' // 'Buero' BUERONAME 'wurde geaendert' ELSE WRITE 'Return-Code' RETURN-CODE END-IF * END