Z-MOD05N

Dieses Dokument behandelt die folgenden Themen:


Beschreibung

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

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.

Return-Codes

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

Subprogramme

Z-120
Z-122
Z-123
Z-175

Beispiel

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