Z-COP11C

Dieses Dokument behandelt die folgenden Themen:

Beschreibung

Ein Dokument kopieren.

Sie können angeben, ob Suchbegriffe und Anlagen mit dem Dokument kopiert werden sollen oder nicht.

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.

Begleitschreiben, Notizen, Empfängerlisten 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.
Suchbegriffe-Flag A1 O   Wenn gefüllt, werden die Suchbegriffe mit dem Dokument kopiert.
Anlagen-Flag A1 O   Wenn gefüllt, werden die Anlagen mit dem Dokument kopiert.

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 1 SUCHBEGRIFFE-FLAG  (A1)
0160 1 ANLAGEN-FLAG       (A1)
0170 END-DEFINE
0180 *
0190 MOVE 'X'        TO ERSETZEN-FLAG
0200 MOVE 'X'        TO SUCHBEGRIFFE-FLAG
0210 MOVE 'X'        TO ANLAGEN-FLAG
0220 *
0230 MOVE -1         TO RETURN-CODE
0240 MOVE 'LS      ' TO BUERO
0250 MOVE '        ' TO PASSWORT
0260 *
0270 MOVE 'ESH     ' TO ZIELBUERO
0280 MOVE '        ' TO ZIELBUERO-PASSWORT
0290 *
0300 MOVE 'Haie'        TO DOKUMENTNAME
0310 MOVE 'Arbeitsfach' TO NEUES-FACH
0320 MOVE 'Haie-Kopie'  TO NEUER-DOKUMENTNAME
0330 COMPRESS 'Erstellt am ' *DATX *TIMX 'mit Z-COP11C'
0340                  INTO BESCHREIBUNG (1)
0350 *
0360 *
0370  CALLNAT 'Z-COP11C'
0380   RETURN-CODE
0390   BUERO
0400   PASSWORT
0410   DOKUMENTNAME
0420   ISN
0430   ZIELBUERO
0440   ZIELBUERO-PASSWORT
0450   NEUER-DOKUMENTNAME
0460   NEUES-FACH
0470   NEUER-ORDNER
0480   BESCHREIBUNG (*)
0490   ERSETZEN-FLAG
0500   SUCHBEGRIFFE-FLAG
0510   ANLAGEN-FLAG
0520 *
0530 WRITE
0540 '='  RETURN-CODE //
0550 'A L T'          /
0560 '====='          /
0570 'Buero   :'  BUERO
0580 'Passwort:'  PASSWORT /
0590 'Name    :'  DOKUMENTNAME /
0600 'ISN     :'  ISN //
0610 'N E U'          /
0620 '====='          /
0630 'Buero   :'  ZIELBUERO
0640 'Passwort:'  ZIELBUERO-PASSWORT /
0650 'Name    :'  NEUER-DOKUMENTNAME /
0660 'Fach    :'  NEUES-FACH /
0670 'Beschr. :'  BESCHREIBUNG (*) //
0680 '='  ERSETZEN-FLAG
0690 '='  SUCHBEGRIFFE-FLAG
0700 '='  ANLAGEN-FLAG
0710 *
0720 IF RETURN-CODE EQ 0
0730   BACKOUT TRANSACTION    /* Kopie nicht sichern
0740 END-IF
0750 *
0760 END