Z-GET27A

Dieses Dokument behandelt die folgenden Themen:

Beschreibung

Informationen über ein Referenzdokument ausgeben.

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

Die Werte, die für Datum und Zeit ausgegeben werden, basieren auf GMT.

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 abgelegt ist.
Passwort A8 E   Das Passwort des o.g. Büros.
Referenzdokumentname A32 E*   Der Name des Referenzdokuments, das Sie ausgeben wollen. Entweder Referenzdokumentname oder ISN, nicht beides.
ISN P10 E*   Die ISN des Referenzdokuments, das Sie ausgeben wollen. Entweder ISN oder Referenzdokumentname, nicht beides.
Beschreibung A60/1:4   X Die Beschreibung des Referenzdokuments.
Suchbegriffe A15/1:6   X Suchbegriffe sind hilfreich, wenn Sie ein Objekt suchen.
Titel A60   X Der Titel des Werks.
Verfasser A60   X Der Verfasser des Werks.
Persoenlich-Flag A1   X Markiert, wenn das Referenzdokument ein persönliches Objekt ist.
Berechtigungsstufen A4   X Die Berechtigungsstufen für Lesen, Ändern und Kopieren. Werte 0 bis 9. Die Stufe für das Drucken (viertes Byte) wird von Referenzdokumenten nicht benutzt.
Fachname A15   X Das Fach, in dem das Referenzdokument abgelegt ist.
Ordnername A15   X Der Ordner im o.g. Fach, in dem das Referenzdokument abgelegt ist.
Erstellungsdatum P8   X Das Datum, an dem das Referenzdokument eingegeben wurde.
Erstellungszeit P4   X Die Zeit, zu der das Referenzdokument eingegeben wurde.
Erstellungskennzeichen A8   X Das Teilnehmerkennzeichen der Person, die das Referenzdokument eingegeben hat.
Aenderungsdatum P8   X Das Datum, an dem das Referenzdokument zuletzt geändert wurde.
Aenderungszeit P4   X Die Zeit, zu der das Referenzdokument zuletzt geändert wurde.
Aenderungskennzeichen A8   X Das Teilnehmerkennzeichen der Person, die das Referenzdokument zuletzt geändert hat.

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
08 Geben Sie entweder ISN oder Name ein - nicht beides
09 ISN zeigt nicht auf das richtige Objekt
51 Ungültiger Name
53 Das gewünschte Objekt existiert nicht

Subprogramme

Z-120
Z-122
Z-123
Z-175
Z-147
Z-165
Z-175
Z-177
Z-194
Z-197
Z-222
Z-223
Z-400
Z-401
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 1 PERSOENLICH-FLAG       (A01)
0150 1 BERECHTIGUNGSSTUFEN    (A4)
0160 1 FACHNAME               (A15)
0170 1 ORDNERNAME             (A15)
0180 1 ERSTELLUNGSDATUM       (P8)
0190 1 ERSTELLUNGSZEIT        (P4)
0200 1 ERSTELLUNGSKENNZEICHEN (A8)
0210 1 AENDERUNGSDATUM        (P8)
0220 1 AENDERUNGSZEIT         (P4)
0230 1 AENDERUNGSKENNZEICHEN  (A8)
0240 *
0250 END-DEFINE
0260 *
0270 INPUT (IP=OFF AD=A'_')
0280         'Buero            ' BUERO
0290      /  'Passwort         ' PASSWORT (AD=N)
0300      /  'Referenzdokument ' REFERENZDOKUMENTNAME
0310 *
0320 IF   REFERENZDOKUMENTNAME NE ' '
0330      CALLNAT 'Z-GET27A'
0340           RETURN-CODE
0350           BUERO
0360           PASSWORT
0370           REFERENZDOKUMENTNAME
0380           ISN
0390           BESCHREIBUNG (*)
0400           SUCHBEGRIFFE (*)
0410           TITEL
0420           VERFASSER
0430           PERSOENLICH-FLAG
0440           BERECHTIGUNGSSTUFEN
0450           FACHNAME
0460           ORDNERNAME
0470           ERSTELLUNGSDATUM
0480           ERSTELLUNGSZEIT
0490           ERSTELLUNGSKENNZEICHEN
0500           AENDERUNGSDATUM
0510           AENDERUNGSZEIT
0520           AENDERUNGSKENNZEICHEN
0530      IF   RETURN-CODE EQ 0
0540           WRITE NOTITLE
0550                'Angezeigt wird '  REFERENZDOKUMENTNAME (AD=I)
0560             // 'Beschreibung:  ' / BESCHREIBUNG (*)
0570             // 'Suchbegriffe:  ' / SUCHBEGRIFFE (1:3) / SUCHBEGRIFFE (4:6)
0580             // 'Titel:         ' / TITEL
0590              / 'Verfasser:     ' / VERFASSER
0600             // 'Abgelegt in:   ' / FACHNAME ORDNERNAME
0610      ELSE
0620           WRITE 'Referenzdokument wurde nicht gefunden:' RETURN-CODE
0630      END-IF
0640 END-IF
0650 END