Z-ERA13

Dieses Dokument behandelt die folgenden Themen:


Beschreibung

Ein Fach oder einen Ordner löschen.

Sie können nur ein leeres Fach oder einen leeren Ordner löschen. Sie können kein Systemfach (z.B. Papierkorb oder Arbeitsfach) löschen.

Um einen Ordner zu löschen, müssen Sie den Namen des Ordners und des Fachs angeben, in dem sich der Ordner befindet.

Parameter

Parameter Format Ein Aus Bemerkung
Return-Code N2 O X Eingabe -1: kein ET.
Buero A8 E   Das Büro, in dem sich das Fach oder der Ordner befindet.
Passwort A8 E   Das Passwort des o.g. Büros.
Fachname A15 E   Entweder der Name des Fachs, das Sie löschen wollen, oder der Name des Fachs, in dem sich der Ordner befindet, den Sie löschen wollen.
Ordnername A15 O   Der Name des Ordners, den Sie löschen wollen.

Return-Codes

00 Erfolg
02 Ungültiger Büroname oder - nur im Batch-Betrieb - Büro gesperrt
03 Falsches Passwort
10 Funktion ist für Systemfach nicht gültig
55 Das gewünschte Fach bzw. der gewünschte Ordner existiert nicht
73 Ungültiger Fach-/Ordnername
90 Fach/Ordner ist nicht leer
91 Der Fach-/Ordnername ist erforderlich
92 Um einen Ordner zu löschen, müssen Sie einen Fachnamen angeben

Subprogramme

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

Beispiel

0010 DEFINE DATA LOCAL
0020 1 RETURN-CODE (N2)
0030 1 BUERO       (A8)
0040 1 PASSWORT    (A8)
0050 1 FACHNAME    (A15)
0060 1 ORDNERNAME  (A15)
0070 END-DEFINE
0080 *
0090 INPUT 'Buero        :' BUERO /
0100       'Passwort     :' PASSWORT  /
0110       'Fachname     :' FACHNAME /
0120       'Ordnername   :' ORDNERNAME /
0130       'Return-Code  :' RETURN-CODE
0140 *
0150 CALLNAT 'Z-ERA13' RETURN-CODE
0160                   BUERO
0170                   PASSWORT
0180                   FACHNAME
0190                   ORDNERNAME
0200 *
0210 IF RETURN-CODE EQ 0
0220   WRITE 'Fach/Ordner wurde geloescht'
0230 ELSE
0240   WRITE 'Fach/Ordner konnte nicht geloescht werden:' RETURN-CODE
0250 END-IF
0260 *
0270 END