Z-ERA27

Dieses Dokument behandelt die folgenden Themen:

Beschreibung

Ein Referenzdokument löschen.

Wenn der Parameter Loesch-Flag leer ist, wird das Referenzdokument in den Papierkorb des Büros gestellt. Wenn der Parameter Loesch-Flag markiert ist, wird das Referenzdokument 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 Referenzdokument löschen wollen.
Passwort A8 E   Das Passwort des o.g. Büros.
Referenzdokumentname A32 E*   Der Name des Referenzdokuments, das gelöscht werden soll. Entweder Referenzdokumentname oder ISN, nicht beides. Dieser Parameter wird nach dem Löschen zurückgesetzt.
ISN P8 E*   Die ISN des Referenzdokuments, das gelöscht werden soll. Entweder ISN oder Referenzdokumentname, nicht beides. Dieser Parameter wird nach dem Löschen zurückgesetzt.
Loesch-Flag A1 O   Wenn leer, wird das Referenzdokument in den Papierkorb gestellt. Wenn markiert, wird das Referenzdokument 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-180
Z-190
Z-1200&0

Beispiel

0010 DEFINE DATA LOCAL
0020 *
0030   1 RETURN-CODE           (N2)
0040   1 BUERO                 (A8)
0050   1 PASSWORT              (A8)
0060   1 REFERENZDOKUMENTNAME  (A32)
0070   1 ISN                   (P8)
0080   1 LOESCH-FLAG           (A1)
0090 *
0100 END-DEFINE
0110 *
0120 MOVE  'BUERO'        TO BUERO
0130 MOVE  'PASSWORT'     TO PASSWORT
0140 MOVE  'REFERENZNAME' TO REFERENZDOKUMENTNAME
0150 RESET LOESCH-FLAG   /* Referenzdokument wird in Papierkorb gestellt
0160 *
0170 CALLNAT 'Z-ERA27'
0180   RETURN-CODE
0190   BUERO
0200   PASSWORT
0210   REFERENZDOKUMENTNAME
0220   ISN
0230   LOESCH-FLAG
0240 *
0250 IF RETURN-CODE  EQ  0
0260   WRITE 'Referenzdokument wurde geloescht'
0270 ELSE
0280   WRITE 'Return-Code' RETURN-CODE
0290 END-IF
0300 *
0310 END