Z-LOGS

Dieses Dokument behandelt die folgenden Themen:


Beschreibung

Informationen über erfolglose Zugriffsversuche auf ein Büro ausgeben.

In der Bueroliste werden nur die Büros ausgegeben, bei denen ein erfolgloser Zugriffsversuch erfolgte.

Dieses Subprogramm kann von unterschiedlichen Teilnehmertypen benutzt werden. Je nachdem, von welchem Teilnehmer es aufgerufen wird, sind die folgenden Funktionen erlaubt:

  • Administrator
    Kann alle erfolglosen Zugriffsversuche für alle Büros ausgeben.

  • Jeder andere Teilnehmer
    Kann nur die erfolglosen Zugriffsversuche ausgeben, die vom eigenen Büro aus erfolgten. In diesem Fall müssen die Parameter Buero und Zugriff-von-Buero-Name gleich sein. Andernfalls wird der Return-Code 15 ausgegeben.

Die Zeitzone ist immer GMT. Andere Zeitzonen werden nicht berücksichtigt.

Sie sollten dieses Subprogramm solange iterativ aufrufen, bis das Ende der Liste durch den Return-Code 77 angezeigt wird.

Parameter

Parameter Format Ein Aus Bemerkung
Return-Code N2   X  
Buero A8 E   Dieses Subprogramm kan von jedem Teilnehmer aufgerufen werden.
Passwort A8 E   Das Passwort des o.g. Büros.
Zugriff-von-Buero-Name A8 E*   Der Name des Büros, das auf erfolglose Zugriffsversuche auf andere Büros überprüft werden soll. Entweder Zugriff-von-Buero-Name oder Zugriff-von-Buero-ISN, nicht beides.
Zugriff-von-Buero-ISN P10 E*   Die ISN des Büros, das auf erfolglose Zugriffsversuche auf andere Büros überprüft werden soll. Entweder Zugriff-von-Buero-ISN oder Zugriff-von-Buero-Name, nicht beides.
Zugriff-von-Buero-Status N1   X Der Status des Büros, von dem aus der erfolglose Zugriffsversuche erfolgte. 1=das Büro ist gesperrt, 0=das Büro ist nicht gesperrt.
Standardwert-sperren N1   X Die Anzahl von unzulässigen Zugriffsversuchen (1-9), nach der das Büro gesperrt wird. 0 bedeutet, dass unzulässige Logon-Versuche ignoriert werden.
Zugriff-auf-Buero-Startname A8 O   Startwert. Der Name des Büros, das auf erfolglose Zugriffsversuche von anderen Büros überprüft werden soll. Wenn Sie keinen Startwert angeben, wird eine Liste mit allen Büros ausgegeben, auf die erfolglose Zugriffsversuche erfolgten.
Anzahl N2 O   Die maximale Anzahl von Büros, die mit jedem Aufruf ausgegeben werden. Wenn Sie keinen Wert definieren oder einen Wert, der größer ist als 20, wird der Vorgabewert 20 benutzt.
Bueroliste (20)
  Zugriff-auf-Bueroname A8   X Der Name des Büros.
  Zugriffsversuche N4   X Die Anzahl der erfolglosen Zugriffsversuche. Der Wert wird aus dem System übernommen (1-9999).
  Zugriffsversuch-Datum N8   X Das Datum des letzten erfolglosen Zugriffsversuchs.
  Zugriffsversuch-Zeit N4   X Die Uhrzeit des letzten erfolglosen Zugriffsversuchs.
Work-Parameter A8     Für den internen Gebrauch. Siehe Work-Parameter.

Return-Codes

00 Erfolg
02 Ungültiger Büroname oder - nur im Batch-Betrieb - Büro gesperrt
03 Falsches Passwort
04 ISN wurde nicht gefunden
08 Geben Sie entweder Zugriff-von-Buero-Name oder Zugriff-von-Buero-ISN ein, nicht beides
09 ISN zeigt nicht auf das richtige Objekt
15 Ungültiger Administratorstatus
77 Ende der Liste
91 Sie müssen Zugriff-von-Buero-Name oder Zugriff-von-Buero-ISN eingeben
92 Zugriff-von-Buero-Name ist ungültig

Subprogramme

Z-120
Z-122
Z-123
Z-705
Z-1200&0

Beispiel

0010 *
0020 * Gibt Informationen ueber erfolglose Zugriffsversuche von einem Buero
0030 * auf andere Bueros aus
0040 *
0050 DEFINE DATA
0060 LOCAL
0070 1 RETURN-CODE                 (N2)
0080 1 BUERO                       (A8)
0090 1 PASSWORT                    (A8)
0100 1 ZUGRIFF-VON-BUERO-NAME      (A8)
0110 1 ZUGRIFF-VON-BUERO-ISN       (P10)
0120 1 ZUGRIFF-VON-BUERO-STATUS    (N1)
0130 1 STANDARDWERT-SPERREN        (N1)
0140 1 ZUGRIFF-AUF-BUERO-STARTNAME (A8)
0150 1 ANZAHL                      (N2)
0160 1 BUEROLISTE (20)
0170   2 ZUGRIFF-AUF-BUERONAME     (A8)
0180   2 ZUGRIFFSVERSUCHE          (N4)
0190   2 ZUGRIFFSVERSUCH-DATUM     (N8)
0200   2 ZUGRIFFSVERSUCH-ZEIT      (N4)
0210 1 WORK-PARAMETER              (A8)
0220 *
0230 1 #INX                        (N2)
0240 1 #LETZTES-DATUM              (N8)
0250 1 REDEFINE #LETZTES-DATUM
0260   2 #LETZTES-JAHR             (A4)
0270   2 #LETZTER-MONAT            (A2)
0280   2 #LETZTER-TAG              (A2)
0290 1 #DATUM                      (A10)
0300 1 #LETZTE-ZEIT                (N4)
0310 1 REDEFINE #LETZTE-ZEIT
0320   2 #LETZTE-STUNDE            (A2)
0330   2 #LETZTE-MINUTE            (A2)
0340 1 #ZEIT                       (A5)
0350 *
0360 END-DEFINE
0370 *
0380 MOVE 'BUERO'    TO BUERO
0390 MOVE 'PASSWORT' TO PASSWORT
0400 MOVE 'B-NAME'   TO ZUGRIFF-VON-BUERO-NAME
0410 MOVE 20         TO ANZAHL
0420 RESET RETURN-CODE ZUGRIFF-VON-BUERO-ISN
0430 *
0440 REPEAT UNTIL RETURN-CODE NE 0
0450   CALLNAT 'Z-LOGS'  RETURN-CODE
0460                     BUERO
0470                     PASSWORT
0480                     ZUGRIFF-VON-BUERO-NAME
0490                     ZUGRIFF-VON-BUERO-ISN
0500                     ZUGRIFF-VON-BUERO-STATUS
0510                     STANDARDWERT-SPERREN
0520                     ZUGRIFF-AUF-BUERO-STARTNAME
0530                     ANZAHL
0540                     BUEROLISTE(*)
0550                     WORK-PARAMETER
0560 *
0570   IF RETURN-CODE EQ 0  OR  RETURN-CODE EQ 77
0580     FOR #INX 1 TO ANZAHL
0590       IF ZUGRIFF-AUF-BUERONAME(#INX) EQ ' '
0600         ESCAPE BOTTOM
0610       END-IF
0620 *
0630       NEWPAGE
0640       WRITE NOTITLE NOHDR (SG=OFF ZP=OFF AD=L)             / /
0650             'Von Buero    ' ZUGRIFF-VON-BUERO-NAME (AD=IO) /
0660 *
0670       IF ZUGRIFF-VON-BUERO-STATUS EQ 0
0680         WRITE 'Standardwert fuer Sperrung' STANDARDWERT-SPERREN          /
0690       ELSE
0700         WRITE 'Buero' ZUGRIFF-VON-BUERO-NAME ' ist gesperrt' /
0710               'Standardwert fuer Sperrung' STANDARDWERT-SPERREN          /
0720       END-IF
0730 *
0740       MOVE ZUGRIFFSVERSUCH-DATUM(#INX) TO #LETZTES-DATUM
0750       COMPRESS #LETZTES-JAHR '-' #LETZTER-MONAT '-' #LETZTER-TAG
0760                                          INTO  #DATUM  LEAVING NO SPACE
0770       MOVE ZUGRIFFSVERSUCH-ZEIT(#INX) TO #LETZTE-ZEIT
0780       COMPRESS #LETZTE-STUNDE ':' #LETZTE-MINUTE
0790                                          INTO  #ZEIT  LEAVING NO SPACE
0800       WRITE 'Auf Buero          ' ZUGRIFF-AUF-BUERONAME(#INX)/
0810             'Zugriffsversuche   ' ZUGRIFFSVERSUCHE(#INX)     /
0820             'Datum letzter Versuch ' #DATUM                  /
0830             'Zeit letzter Versuch  ' #ZEIT                   / /
0840     END-FOR
0850   END-IF
0860 *
0870   IF RETURN-CODE NE 0
0880     WRITE 'Return-Code' RETURN-CODE (AD=IO)
0890   END-IF
0900 END-REPEAT
0910 *
0920 END