Dieses Dokument behandelt die folgenden Themen:
Ein Büro zum Löschen markieren und den Zugriff auf dieses Büro sperren.
Dieses Subprogramm kann nur von einem Supervisor oder Büroadministrator benutzt werden.
Wenn ein Büro zum Löschen markiert wurde, wird es erst dann gelöscht, wenn das Con-nect-Dienstprogramm B04050 ausgeführt wird. Siehe Con-nect Dienstprogramme, Abschnitt Markierte Büros löschen.
Das zum Löschen markierte Büro wird jedoch erst dann von dem Dienstprogramm gelöscht, wenn das im Parameter Loeschdatum angegebene Datum erreicht wurde.
Mit diesem Subprogramm können Sie die Markierungen zum Löschen und Sperren auch zurücknehmen. Hierzu müssen Sie den Parameter Zuruecksetzen-Flag für das gewünschte Büro markieren. Der Return-Code 92 weist darauf hin, dass die Markierung zum Löschen und Sperren zurückgenommen wurde.
Nach der erfolgreichen Ausführung von Z-ERA05 erfolgt immer ein END TRANSACTION. Sie können die Transaktionsverarbeitung nicht kontrollieren.
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. | |
Buero-loeschen | A8 | E | Der Name des Büros, das gesperrt und gelöscht werden soll. | |
Loeschdatum | A8 | O | Format yyyymmdd. Das angegebene Datum wird als GMT
interpretiert, mit 0 als GMT-Zeit. Wenn Sie kein Datum angeben, wird das
aktuelle Datum genommen.
Wenn Sie das aktuelle Datum angeben (oder wenn es angenommen wird), wird das Büro sofort gesperrt. Wenn Sie ein Datum angeben, das nach dem aktuellen Datum liegt, wird das Büro erst dann gesperrt, wenn dieses Datum erreicht wird. |
|
Zuruecksetzen-Flag | A1 | O | Wenn Sie dieses Flag markieren, werden die Markierungen zum Löschen und Sperren zurückgenommen. |
00 | Erfolg |
02 | Ungültiger Büroname oder - nur im Batch-Betrieb - Büro gesperrt |
03 | Falsches Passwort |
15 | Ungültiger Administratorstatus |
90 | Der Bürosatz existiert nicht |
91 | Das Büro wurde bereits zum Löschen markiert |
92 | Die Markierungen zum Löschen und Sperren wurden für dieses Büro zurückgenommen (kein Fehler) |
93 | Ungültiges Datumsformat |
94 | Vergangenes Datum |
95 | Die Markierungen zum Löschen und Sperren können nicht zurückgenommen werden, weil das Büro nicht zum Löschen markiert war |
96 | Das Büro wurde bereits zum Umbenennen markiert |
Z-120
Z-122
Z-123
Z-1200&0
0010 * 0020 * Beispielprogramm zum Sperren und Löschen eines Bueros 0030 * 0040 * 0050 DEFINE DATA 0060 LOCAL 0070 1 RETURN-CODE (N2) 0080 1 BUERO (A8) 0090 1 PASSWORT (A8) 0100 1 BUERO-LOESCHEN (A8) 0110 1 LOESCHDATUM (A8) 0120 1 ZURUECKSETZEN-FLAG (A1) 0130 * 0140 END-DEFINE 0150 * 0160 RESET RETURN-CODE 0170 MOVE 'ADMIN' TO BUERO 0180 MOVE 'ADMIN' TO PASSWORT 0190 MOVE 'FBL' TO BUERO-LOESCHEN 0200 MOVE '20101231' TO LOESCHDATUM 0210 * 0220 * 0230 CALLNAT 'Z-ERA05A' 0240 RETURN-CODE 0250 BUERO 0260 PASSWORT 0270 BUERO-LOESCHEN 0280 LOESCHDATUM 0290 ZURUECKSETZEN-FLAG 0300 * 0310 IF RETURN-CODE EQ 0 0320 WRITE 'Buero wurde gesperrt und zum Loeschen markiert' 0330 ELSE 0340 WRITE 'Return-Code :' RETURN-CODE 0350 END-IF 0360 * 0370 END