Z-IN11UX

Dieses Dokument behandelt die folgenden Themen:

Beschreibung

Die Dokumentinformation aktualisieren.

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

Die Parameter, die nicht mit Werten gefüllt werden (außer dem Ablaufdatum), werden aus der Dokumentinformation gelöscht. Um die bestehenden Werte beizubehalten, müssen Sie sie daher vor dem Aufruf dieses Subprogramms erneut angeben. Vor dem Aufruf dieses Subprogramms können Sie Z-IN11GX aufrufen, um die aktuellen Werte auszugeben.

Wenn Sie im Parameter Ablaufdatum 0 (null) eingeben, wird das Ablaufdatum nicht aktualisiert (d.h. der vorher definierte Werte wird weiterhin benutzt).

Parameter

Parameter Format Ein Aus Bemerkung
Return-Code N2 O X Eingabe -1: kein ET.
Buero A8 E   Das Büro, in dem die Dokumentinformation aktualisiert werden soll.
Passwort A8 E   Das Passwort des o.g. Büros.
Dokumentname A32 E*   Der Name des Dokuments, dessen Dokumentinformation Sie aktualisieren wollen. Muss nicht angegeben werden, wenn die erste Zeile der Beschreibung angegeben wird. Entweder Dokumentname oder ISN, nicht beides.
ISN P10 E* X Die ISN des Dokuments, dessen Dokumentinformation Sie aktualisieren wollen. Eingabe: 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.
Beschreibung A60/1:4 O   Eine kurze Beschreibung für das Dokument. Wenn Sie keinen Dokumentnamen angeben, müssen Sie eine Beschreibung angeben.
Suchbegriffe A15/1:6 O   Suchbegriffe sind hilfreich, wenn Sie ein Objekt suchen. Sie können bis zu 6 Suchbegriffe eingeben. Ein Suchbegriff darf keinen Stern (*) enthalten.
Persoenlich-Flag A1 O   Wenn gefüllt, ist das Dokument ein persönliches Objekt.
Berechtigungsstufen A4 O   Die Berechtigungsstufen für Lesen, Ändern, Kopieren und Drucken. Werte 0 bis 9.
Formatierprofil A32 O   Der Name des Formatierprofils.
Versorgungsprozeduren A32/1:4 O   Die Namen der Versorgungsprozeduren.
Folgeprozeduren A32/1:4 O   Die Namen der Folgeprozeduren.
Ablaufdatum N8 O   Das Ablaufdatum des Dokuments. Format yyyymmdd. Das Datum, das Sie angeben, wird mit dem Vorgabewert ("Tage zum Ablaufdatum") verglichen, der vom Systemadministrator definiert wurde. Das Ablaufdatum darf nicht kleiner sein als die Summe aus dem aktuellen Datum und dem Vorgabewert.
Archivierungs-Flag A1 O   Wenn gefüllt, wird das Dokument beim Erreichen des Ablaufdatums auf einem anderen Medium (z.B. auf Band) gespeichert.

Return-Codes

00 Erfolg
02 Ungültiger Büroname
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
16 Dokument ist gesperrt - Bearbeitung wurde nicht beendet
51 Ungültiger Name
53 Das gewünschte Objekt existiert nicht
54 Mindestens ein Suchbegriff war ungültig
62 Ungültiges Datumsformat
70 Die Berechtigungsstufen müssen numerisch sein
71 Ungültiger Name für Versorgungsprozedur
72 Ungültiger Name für Folgeprozedur
81 Ungültiger Name für Formatierprofil
90 Ungültiges Ablaufdatum
91 Die Berechtigungsstufen dürfen nicht höher sein als die im Profil

Subprogramme

Z-120
Z-122
Z-123
Z-128
Z-147
Z-175
Z-1200&0

Beispiel

0010 *
0020 * Dokumentinformation aktualisieren
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 BESCHREIBUNG           (A60/1:4)
0120 1 SUCHBEGRIFFE           (A15/1:6)
0130 1 PERSOENLICH-FLAG       (A1)
0140 1 BERECHTIGUNGSSTUFEN    (A4)
0150 1 FORMATIERPROFIL        (A32)
0160 1 VERSORGUNGSPROZEDUREN  (A32/1:4)
0170 1 FOLGEPROZEDUREN        (A32/1:4)
0180 1 ABLAUFDATUM            (N8)
0190 1 ARCHIVIERUNGS-FLAG     (A1)
0200 *
0210 END-DEFINE
0220 *
0230 RESET RETURN-CODE
0240 MOVE 'BUERO'  TO BUERO
0250 MOVE 'PASSWORT' TO PASSWORT
0260 MOVE 1234567890 TO ISN
0270 *
0280 MOVE 'Beispiel - Beschreibung 1.' TO BESCHREIBUNG(1)
0290 MOVE 'Dok-Beschreibung 2.'        TO BESCHREIBUNG(2)
0300 MOVE 'Dok-Beschreibung 3.'        TO BESCHREIBUNG(3)
0310 MOVE 'Dok-Beschreibung 4.'        TO BESCHREIBUNG(4)
0320 MOVE 'Suchbegriff 1'              TO SUCHBEGRIFFE(1)
0330 MOVE 'Suchbegriff 2'              TO SUCHBEGRIFFE(2)
0340 MOVE 'Suchbegriff 3'              TO SUCHBEGRIFFE(3)
0350 MOVE 'Suchbegriff 4'              TO SUCHBEGRIFFE(4)
0360 MOVE 'Suchbegriff 5'              TO SUCHBEGRIFFE(5)
0370 MOVE 'Suchbegriff 6'              TO SUCHBEGRIFFE(6)
0380 MOVE 'X'                          TO PERSOENLICH-FLAG
0390 MOVE '6666'                       TO BERECHTIGUNGSSTUFEN
0400 MOVE 20010807                     TO ABLAUFDATUM
0410 MOVE 'X'                          TO ARCHIVIERUNGS-FLAG
0420 *
0430 CALLNAT 'Z-IN11UX'
0440   RETURN-CODE
0450   BUERO
0460   PASSWORT
0470   DOKUMENTNAME
0480   ISN
0490   BESCHREIBUNG(*)
0500   SUCHBEGRIFFE(*)
0510   PERSOENLICH-FLAG
0520   BERECHTIGUNGSSTUFEN
0530   FORMATIERPROFIL
0540   VERSORGUNGSPROZEDUREN(*)
0550   FOLGEPROZEDUREN(*)
0560   ABLAUFDATUM
0570   ARCHIVIERUNGS-FLAG
0580 *
0590 IF  RETURN-CODE EQ 0
0600   WRITE 'Dokument wurde aktualisiert'
0610 ELSE
0620   WRITE 'Return-Code ' RETURN-CODE
0630 END-IF
0640 *
0650 END