Z-COP11X

Dieses Dokument behandelt die folgenden Themen:

Beschreibung

Ein Dokument kopieren.

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

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). Sie können ein Dokument jedoch nur dann in ein anderes Büro kopieren, wenn Sie die Zugriffsberechtigung für dieses Büro haben - aus diesem Grund ist das Passwort des Zielbüros nicht erforderlich.

Um ein Dokument in ein anderes Büro zu kopieren, von dem Sie das Passwort kennen, können Sie Z-COP11B benutzen.

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 P10 E*   Die ISN des Dokuments, das kopiert werden soll. Entweder ISN oder Dokumentname, nicht beides. Vor dem Aufruf dieses Subprogramms können Sie Z-DIS11X 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.
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                (P10)
0080 1 ZIELBUERO          (A8)
0090 1 NEUER-DOKUMENTNAME (A32)
0100 1 NEUES-FACH         (A15)
0110 1 NEUER-ORDNER       (A15)
0120 1 BESCHREIBUNG       (A60/1:4)
0130 1 ERSETZEN-FLAG      (A1)
0140 END-DEFINE
0150 *
0160 MOVE 'LS'            TO BUERO
0170 MOVE 'PASSWORT'      TO PASSWORT
0180 MOVE 'DOKUMENTNAME'  TO DOKUMENTNAME
0190 MOVE 'ESH'           TO ZIELBUERO
0200 MOVE 'NEU-DOK-NAME'  TO NEUER-DOKUMENTNAME
0210 MOVE 'Betreff des neuen Dokuments' TO BESCHREIBUNG(1)
0220 *
0230 CALLNAT 'Z-COP11X' RETURN-CODE BUERO PASSWORT DOKUMENTNAME
0240   ISN ZIELBUERO NEUER-DOKUMENTNAME NEUES-FACH NEUER-ORDNER
0250   BESCHREIBUNG(*) ERSETZEN-FLAG
0260 *
0270 IF RETURN-CODE NE 0
0280    WRITE  'Return-Code' RETURN-CODE
0290 ELSE
0300    WRITE 'Dokument wurde kopiert'
0310 END-IF
0320 END
0330 *