Z-ERA05

Dieses Dokument behandelt die folgenden Themen:

Beschreibung

Ein Büro zum Löschen markieren.

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 Markierung zum Löschen 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 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 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.
Zuruecksetzen-Flag A1 O   Wenn Sie dieses Flag markieren, wird die Markierung zum Löschen 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 Markierung zum Löschen wurde für dieses Büro zurückgenommen (kein Fehler)
93 Ungültiges Datumsformat
94 Vergangenes Datum
95 Markierung zum Löschen kann 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 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 '19941224'       TO LOESCHDATUM
0210 *
0220 *
0230 CALLNAT 'Z-ERA05'
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 zum Loeschen markiert'
0330   ELSE
0340      WRITE 'Return-Code :' RETURN-CODE
0350   END-IF
0360 *
0370 END