Z-MOD27

Dieses Dokument behandelt die folgenden Themen:

Beschreibung

Beschreibung, Suchbegriffe, Verfasser und Titel eines Referenzdokuments ändern.

Parameter

Parameter Format Ein Aus Bemerkung
Return-Code N2 O X Eingabe -1: kein ET.
Buero A8 E   Das Büro, in dem das Referenzdokument geändert werden soll.
Passwort A8 E   Das Passwort des o.g. Büros.
Referenzdokumentname A32 E*   Der Name des Referenzdokuments, das geändert werden soll. Entweder Referenzdokumentname oder ISN, nicht beides.
ISN P10 E*   Die ISN des Referenzdokuments, das geändert werden soll. Entweder ISN oder Referenzdokumentname, nicht beides.
Beschreibung A60/1:4 O   Eine kurze Beschreibung für das Referenzdokument. Wenn das Referenzdokument keinen Namen hat, müssen Sie die erste Zeile der Beschreibung angeben.
Suchbegriffe A15/1:6 O   Suchbegriffe sind hilfreich, wenn Sie ein Objekt suchen.
Titel A60 O   Der Titel des Werks.
Verfasser A60 O   Der Verfasser des Werks.

Return-Codes

00 Erfolg
02 Ungültiger Büroname
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
51 Ungültiger Name
53 Das gewünschte Objekt existiert nicht
54 Mindestens ein Suchbegriff war ungültig
90 Das Referenzdokument muss einen Namen oder eine Beschreibung haben

Subprogramme

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

Beispiel

0010 DEFINE DATA
0020 *
0030 LOCAL
0040 *
0050 1 RETURN-CODE          (N2)
0060 1 BUERO                (A8)
0070 1 PASSWORT             (A8)
0080 1 REFERENZDOKUMENTNAME (A32)
0090 1 ISN                  (P10)
0100 1 BESCHREIBUNG         (A60/1:4)
0110 1 SUCHBEGRIFFE         (A15/1:6)
0120 1 TITEL                (A60)
0130 1 VERFASSER            (A60)
0140 *
0150 END-DEFINE
0160 *
0170 INPUT (IP=OFF AD=A'_')
0180         'Buero         ' Buero
0190      /  'Passwort      ' PASSWORT (AD=N)
0200      /  'Ref.-Dokument ' REFERENZDOKUMENTNAME
0210      // 'Beschreibung  ' / BESCHREIBUNG (*)
0220      // 'Suchbegriffe  ' / SUCHBEGRIFFE (1:3) / SUCHBEGRIFFE (4:6)
0230      // 'Titel         ' / TITEL
0240      /  'Verfasser     ' / VERFASSER
0250 *
0260 IF   REFERENZDOKUMENTNAME NE ' '
0270      CALLNAT 'Z-MOD27'
0280           RETURN-CODE
0290           BUERO
0300           PASSWORT
0310           REFERENZDOKUMENTNAME
0320           ISN
0330           BESCHREIBUNG (*)
0340           SUCHBEGRIFFE (*)
0350           TITEL
0360           VERFASSER
0370      IF   RETURN-CODE EQ 0
0380           WRITE 'Referenzdokument wurde geaendert'
0390      ELSE
0400           WRITE 'Referenzdokument wurde nicht geaendert' RETURN-CODE
0410      END-IF
0420 END-IF
0430 *
0440 END