Z-ERA11X

Dieses Dokument behandelt die folgenden Themen:

Beschreibung

Ein Dokument löschen.

Dieses Subprogramm entspricht Z-ERA11 mit der Ausnahme, dass der Parameter ISN das Format P10 hat.

Wenn der Parameter Loesch-Flag leer ist, wird das Dokument in den Papierkorb des Büros gestellt. Wenn der Parameter Loesch-Flag markiert ist, wird das Dokument vollständig aus Con-nect gelöscht.

Parameter

Parameter Format Ein Aus Bemerkung
Return-Code N2 O X Eingabe -1: kein ET.
Buero A8 E   Das Büro, in dem Sie das Dokument löschen wollen.
Passwort A8 E   Das Passwort des o.g. Büros.
Dokumentname A32 E*   Der Name des Dokuments, das gelöscht werden soll. Entweder Dokumentname oder ISN, nicht beides. Dieser Parameter wird nach dem Löschen zurückgesetzt.
ISN P10 E*   Die ISN des Dokuments, das gelöscht werden soll. Entweder ISN oder Dokumentname, nicht beides. Dieser Parameter wird nach dem Löschen zurückgesetzt. Vor dem Aufruf von Z-ERA11X können Sie Z-DIS11X aufrufen, um die ISN des gewünschten Dokuments auszugeben.
Loesch-Flag A1 O   Wenn leer, wird das Dokument in den Papierkorb gestellt. Wenn markiert, wird das Dokument aus Con-nect gelöscht.

Return-Codes

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 ISN oder Name ein - nicht beides
09 ISN zeigt nicht auf das richtige Objekt
51 Ungültiger Name
53 Das gewünschte Objekt existiert nicht

Subprogramme

Z-100
Z-110
Z-120
Z-122
Z-123
Z-147
Z-165
Z-175
Z-177
Z-180
Z-190
Z-194
Z-197
Z-222
Z-223
Z-400
Z-401
Z-1200&0

Beispiel

0010 *
0020 * Dokument loeschen
0030 *
0040 DEFINE DATA
0050 LOCAL
0060 1 RETURN-CODE      (N2)
0070 1 BUERO            (A8)
0080 1 PASSWORT         (A8)
0090 1 DOKUMENTNAME     (A32)
0100 1 ISN              (P10)
0110 1 LOESCH-FLAG      (A1)
0120 END-DEFINE
0130 *
0140 RESET RETURN-CODE
0150 RESET DOKUMENTNAME
0160 MOVE 'BUERO'    TO BUERO
0170 MOVE 'PASSWORT' TO PASSWORT
0180 MOVE 1234567890 TO ISN
0190 MOVE 'X'        TO LOESCH-FLAG
0200 *
0210 CALLNAT 'Z-ERA11X'
0220   RETURN-CODE
0230   BUERO
0240   PASSWORT
0250   DOKUMENTNAME
0260   ISN
0270   LOESCH-FLAG
0280 *
0290 IF  RETURN-CODE EQ 0
0300   WRITE 'Dokument wurde geloescht'
0310 ELSE
0320   WRITE 'Return-Code' RETURN-CODE
0330 END-IF
0340 *
0350 END