Dieses Dokument behandelt die folgenden Themen:
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 | 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. |
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 |
57 | Das Dokument enthält keinen Text |
91 | Das Dokument ist nicht im Txt- oder Cnf-Format |
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
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