Z-GET11X

Dieses Dokument behandelt die folgenden Themen:

Beschreibung

Die Beschreibung eines Dokuments ausgeben.

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

Wenn das Dokument Text enthält, wird der Text in den Natural-Source-Code-Editierbereich kopiert (ESIZE). Mit Z-ADD11X können Sie zum Beispiel ein Con-nect-Dokument aus dem Inhalt dieses Editierbereichs erstellen.

Parameter

Parameter Format Ein Aus Bemerkung
Return-Code N2 O X Eingabe -1: kein ET.
Buero A8 E   Das Büro, in dem das gewünschte Dokument enthalten ist.
Passwort A8 E   Das Passwort des o.g. Büros.
Dokumentname A32 E*   Der Name des Dokuments, dessen Beschreibung Sie ausgeben wollen. Entweder Dokumentname oder ISN, nicht beides.
ISN P10 E*   Die ISN des Dokuments, dessen Beschreibung Sie ausgeben wollen. 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   X Die Beschreibung des Dokuments.

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
51 Ungültiger Name
53 Das gewünschte Objekt existiert nicht
57 Das Dokument enthält keinen Text
91 Das Dokument ist nicht im Txt- oder Cnf-Format

Subprogramme

Z-115
Z-120
Z-122
Z-123
Z-130
Z-140
Z-165
Z-175
Z-194
Z-197
Z-222
Z-223
Z-400
Z-401
Z-1200&0

Beispiel

0010 *
0020 * Beschreibung eines Dokuments ausgeben
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 #INDEX           (I1)
0130 *
0140 END-DEFINE
0150 *
0160 RESET RETURN-CODE
0170 MOVE 'BUERO'  TO BUERO
0180 MOVE 'PASSWORT' TO PASSWORT
0190 MOVE 1234567890 TO ISN
0200 *
0200 *
0210 CALLNAT 'Z-GET11X'
0220   RETURN-CODE
0230   BUERO
0240   PASSWORT
0250   DOKUMENTNAME
0260   ISN
0270   BESCHREIBUNG(*)
0280 *
0290 IF  RETURN-CODE EQ 0
0300   WRITE 'Return-Status OK' (I) /
0310   FOR #INDEX 1 TO 4
0320     WRITE '=' BESCHREIBUNG(#INDEX)
0330   END-FOR
0340 ELSE
0350   WRITE 'Return-Code ' RETURN-CODE
0360 END-IF
0370 *
0380 END