Z-ERA05A

Dieses Dokument behandelt die folgenden Themen:

Beschreibung

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

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.

Return-Codes

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

Subprogramme

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

Beispiel

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