Dieses Dokument behandelt die folgenden Themen:
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 | 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. | ||
| 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 |
Z-120
Z-122
Z-123
Z-705
Z-1200&0
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