Z-COP11B

Dieses Dokument behandelt die folgenden Themen:

Beschreibung

Ein Dokument kopieren.

Sie können die Kopie entweder im selben Büro ablegen (wie im Parameter Buero angegeben) oder in einem anderen Büro (wie im Parameter Zielbuero angegeben).

Um ein Dokument in ein anderes Büro zu kopieren, können Sie das Passwort dieses Büros angeben. Wenn Sie kein Passwort angeben, wird überprüft, ob Sie die Zugriffsberechtigung für dieses Büro haben. Wenn Sie ein Passwort angeben, wird es überprüft.

Anlagen werden mit dem Dokument kopiert. Begleitschreiben, Notizen, Empfängerlisten, Suchbegriffe und Prozeduren werden nicht kopiert. Die Berechtigungsstufen werden auf 0 zurückgesetzt und das Flag für persönliche Objekte wird wieder auf leer gesetzt. Das Ablaufdatum wird ab dem Tag berechnet, an dem das Dokument kopiert wurde.

Wenn Sie ein Dokument kopieren, das sich zur Zeit im Ordner Neu des Fachs Posteingang befindet, wird die dazugehörende Empfängerliste aktualisiert (d.h. der Empfangsstatus des Dokuments weist nun darauf hin, dass das Dokument gelesen wurde) und das Dokument wird in den Ordner Gelesen gestellt. In diesem Fall erfolgt automatisch ein END TRANSACTION.

Parameter

Parameter Format Ein Aus Bemerkung
Return-Code N2 O X Eingabe -1: kein ET.
Buero A8 E   Das Büro, in dem das Dokument, das kopiert werden soll, abgelegt ist.
Passwort A8 E   Das Passwort des o.g. Büros.
Dokumentname A32 E*   Der Name des Dokuments, das kopiert werden soll. Entweder Dokumentname oder ISN, nicht beides.
ISN P8 E*   Die ISN des Dokuments, das kopiert werden soll. Entweder ISN oder Dokumentname, nicht beides. Vor dem Aufruf dieses Subprogramms können Sie Z-DIS11 aufrufen, um die ISN des gewünschten Dokuments auszugeben.
Zielbuero A8 E   Um die Kopie in einem anderen Büro abzulegen, müssen Sie das Kennzeichen des Zielbüros angeben. Um die Kopie im selben Büro abzulegen, müssen Sie dasselbe Kennzeichen wie im Parameter Buero angeben.
Zielbuero-Passwort A8 O   Wenn Sie den Parameter Zielbuero angeben und Sie keine Zugriffsberechtigung für dieses Büro haben, müssen Sie auch das Passwort des Zielbüros angeben. Wenn Sie die Zugriffsberechtigung haben, ist das Passwort nicht erforderlich.
Neuer-Dokumentname A32 E   Der Name für die Kopie.
Neues-Fach A15 O   Das Fach, in dem die Kopie abgelegt werden soll. Sie dürfen kein Systemfach (außer dem Arbeitsfach) definieren. Sie können ein TRS-Fach definieren.
Neuer-Ordner A15 O   Der Ordner im o.g. Fach, in dem die Kopie abgelegt werden soll.
Beschreibung A60/1:4 O   Eine kurze Beschreibung für die Kopie.
Ersetzen-Flag A1 O   Wenn gefüllt, wird ein bestehendes Dokument mit demselben Namen wie im Parameter Neuer-Dokumentname angegeben, durch die Kopie ersetzt.

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
06 TRS konnte nicht aufgerufen werden
08 Geben Sie entweder ISN oder Name ein - nicht beides
09 ISN zeigt nicht auf das richtige Objekt
10 Funktion ist für Systemfach nicht gültig
16 Dokument ist gesperrt - Bearbeitung wurde nicht beendet
51 Ungültiger Name
52 Es existiert bereits ein Objekt mit dem angegebenen Namen
53 Das gewünschte Objekt existiert nicht
55 Das gewünschte Fach bzw. der gewünschte Ordner existiert nicht

Subprogramme

Z-GETMSM
Z-0211
Z-100
Z-106
Z-110
Z-120
Z-122
Z-123
Z-147
Z-150
Z-161
Z-165
Z-175
Z-177
Z-180
Z-185
Z-190
Z-191
Z-194
Z-194A
Z-197
Z-211
Z-222
Z-223
Z-373
Z-400
Z-401
Z-403
Z-404
Z-406
Z-407
Z-1200&0

Beispiel

0010 DEFINE DATA
0020 LOCAL
0030 1 RETURN-CODE        (N2)
0040 1 BUERO              (A8)
0050 1 PASSWORT           (A8)
0060 1 DOKUMENTNAME       (A32)
0070 1 ISN                (P8)
0080 1 ZIELBUERO          (A8)
0090 1 ZIELBUERO-PASSWORT (A8)
0100 1 NEUER-DOKUMENTNAME (A32)
0110 1 NEUES-FACH         (A15)
0120 1 NEUER-ORDNER       (A15)
0130 1 BESCHREIBUNG       (A60/1:4)
0140 1 ERSETZEN-FLAG      (A1)
0150 END-DEFINE
0160 *
0170 MOVE 'LS'            TO BUERO
0180 MOVE 'PASSWORT'      TO PASSWORT
0190 MOVE 'DOKUMENTNAME'  TO DOKUMENTNAME
0200 MOVE 'ESH'           TO ZIELBUERO
0210 MOVE 'PASSWORT'      TO ZIELBUERO-PASSWORT
0220 MOVE 'NEU-DOK-NAME'  TO NEUER-DOKUMENTNAME
0230 MOVE 'Betreff des neuen Dokuments' TO BESCHREIBUNG(1)
0240 *
0250 CALLNAT 'Z-COP11B' RETURN-CODE BUERO PASSWORT DOKUMENTNAME
0260   ISN ZIELBUERO ZIELBUERO-PASSWORT NEUER-DOKUMENTNAME
0270   NEUES-FACH NEUER-ORDNER BESCHREIBUNG(*) ERSETZEN-FLAG
0280 *
0290 IF RETURN-CODE NE 0
0300    WRITE  'Return-Code' RETURN-CODE
0310 ELSE
0320    WRITE 'Dokument wurde kopiert'
0330 END-IF
0340 END