Dieses Dokument behandelt die folgenden Themen:
Ein Dokument, einschließlich Begleitschreiben, Notizen und Anlagen, in einem Array ausgeben.
Dieses Subprogramm entspricht Z-GET11C mit der Ausnahme, dass es auch Notizen und Dokumente in den Formaten Bin, RFT, FFT und Spr (zusätzlich zu Txt und Cnf) ausgibt.
Bei Bin-, RFT-, FFT- und Spr-Dokumenten, die mit Entire Connection importiert wurden, können Sie den Parameter Konvertieren markieren. Diese Dokumente werden dann in das alte Übertragungsformat von Entire Connection konvertiert.
Der Parameter Letzte-Zeile-Text wird nur für die Dokumentformate Txt und Cnf ausgewertet. Bei allen anderen Dokumentformaten sind die Werte für Letzte-Zeile-gefuellt und Letzte-Zeile-Text identisch.
Sie sollten dieses Subprogramm solange iterativ aufrufen, bis das Ende der Liste durch den Return-Code 77 gekennzeichnet wird. Der Return-Code 77 bedeutet, dass das Dokument, einschließlich aller Begleitschreiben, Notizen und Anlagen, ausgegeben wurde.
Anmerkungen:
| 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* | X | Eingabe: der Name des Dokuments, das Sie ausgeben wollen.
Entweder Dokumentname oder Dokument-ISN, nicht beides.
Ausgabe: der Name des Dokuments oder die Beschreibung falls kein Name angegeben wurde. |
| Dokument-ISN | P10 | E* | X | Eingabe: die ISN des Dokuments, das Sie ausgeben wollen.
Entweder Dokument-ISN oder Dokumentname, nicht beides.
Ausgabe: die ISN des Dokuments. |
| Beschreibung | A60/1:4 | X | Die Beschreibung des Dokuments. | |
| Dokumentformat | A1 | X | 0=Txt, 1=Cnf, 2=Bin, 4=RTF, 7=FFT, 9=Spr. | |
| Texttyp | A1 | X | Der Texttyp, der gerade verarbeitet wird. C=Begleitschreiben, T=Dokumenttext, E=Anlage, N=Notiz. | |
| Texttyp-Gesamt | P3 | X | Die Gesamtzahl der Begleitschreiben, Anlagen oder Notizen. Die Anzahl wird separat für Begleitschreiben, Anlagen und Notizen ausgegeben. Für das Dokument selbst wird 0 ausgegeben. | |
| Texttyp-Aktuell | P3 | X | Die Folgenummer des gerade verarbeiteten Begleitschreibens, der Anlage oder der Notiz. Die Nummer wird separat für Begleitschreiben, Anlagen und Notizen ausgegeben. Für das Dokument selbst wird 0 ausgegeben. | |
| Text-Array | A251/1:20 | X | Text (Txt oder Cnf) oder Binärdaten (Bin, RFT, FFT oder Spr). Das erste Zeichen, das in jedem Element des Text-Arrays ausgegeben wird, zeigt die Anzahl der zu wiederholenden Zeilen. | |
| Letzte-Zeile-gefuellt | N2 | X | Die Anzahl aller Zeilen des aktuellen Datensatzes, einschließlich aller Leerzeilen am Textende. | |
| Letzte-Zeile-Text | N2 | X | Txt und Cnf: die Nummer der letzten Textzeile. Leerzeilen am Textende werden nicht berücksichtigt. Alle anderen Dokumentformate: identisch mit Letzte-Zeile-gefuellt. | |
| Notiz-Betreff | A32 | X | Der Betreff der Notiz. | |
| Anhang-ISN | P10 | X | Die ISN des Begleitschreibens, der Anlage oder der Notiz. Diese ISN kann mit Z-DETACH benutzt werden. | |
| Konvertieren | A1 | O | Gilt für die Dokumentformate Bin, RFT, FFT und Spr. Wenn markiert, werden Binärdaten (B90) in das alte Übertragungsformat von Entire Connection (A120) konvertiert. | |
| Work-Parameter-1 | A240 | Für den internen Gebrauch. Siehe Work-Parameter. | ||
| Work-Parameter-2 | A81 | Für den internen Gebrauch. Siehe Work-Parameter. |
| 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 |
| 77 | Ende des Objekts |
Z-120
Z-122
Z-123
Z-165
Z-175
Z-194
Z-197
Z-222
Z-223
Z-400
Z-401
Z-1200&0
0010 * 0020 * Dokument mit Begleitschreiben, Notizen und Anlagen 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 DOKUMENT-ISN (P10) 0110 1 BESCHREIBUNG (A60/1:4) 0120 1 DOKUMENTFORMAT (A1) 0130 1 TEXTTYP (A1) 0140 1 TEXTTYP-GESAMT (P3) 0150 1 TEXTTYP-AKTUELL (P3) 0160 1 TEXT-ARRAY (A251/1:20) 0170 1 LETZTE-ZEILE-GEFUELLT (N2) 0180 1 LETZTE-ZEILE-TEXT (N2) 0190 1 NOTIZ-BETREFF (A32) 0200 1 ANHANG-ISN (P10) 0210 1 KONVERTIEREN (A1) 0220 1 WORK-PARAMETER-1 (A240) 0230 1 WORK-PARAMETER-2 (A81) 0240 * 0250 END-DEFINE 0260 * 0270 RESET WORK-PARAMETER-1 WORK-PARAMETER-2 0280 MOVE 'BUERO' TO BUERO 0290 MOVE 'PASSWORT' TO PASSWORT 0300 MOVE 'DOKUMENTNAME' TO DOKUMENTNAME 0310 * 0320 REPEAT UNTIL RETURN-CODE NE 0 0330 CALLNAT 'Z-GET11D' RETURN-CODE 0340 BUERO 0350 PASSWORT 0360 DOKUMENTNAME 0370 DOKUMENT-ISN 0380 BESCHREIBUNG(*) 0390 DOKUMENTFORMAT 0400 TEXTTYP 0410 TEXTTYP-GESAMT 0420 TEXTTYP-AKTUELL 0430 TEXT-ARRAY(*) 0440 LETZTE-ZEILE-GEFUELLT 0450 LETZTE-ZEILE-TEXT 0460 NOTIZ-BETREFF 0470 ANHANG-ISN 0480 KONVERTIEREN 0490 WORK-PARAMETER-1 0500 WORK-PARAMETER-2 0510 * 0520 IF RETURN-CODE EQ 0 OR EQ 77 0530 NEWPAGE 0540 WRITE '=' DOKUMENTNAME / '=' DOKUMENT-ISN / 0550 * 0560 WRITE 0570 'BESCHREIBUNG(1)' BESCHREIBUNG (1) / 0580 'BESCHREIBUNG(2)' BESCHREIBUNG (2) / 0590 WRITE 0600 '=' DOKUMENTFORMAT 0610 '=' TEXTTYP 0620 '=' TEXTTYP-GESAMT 0630 '=' TEXTTYP-AKTUELL / 0640 '=' NOTIZ-BETREFF 0650 '=' ANHANG-ISN 0660 '=' KONVERTIEREN / 0670 '=' LETZTE-ZEILE-GEFUELLT 0680 '=' LETZTE-ZEILE-TEXT 0690 * 0700 IF LETZTE-ZEILE-GEFUELLT GT 0 0710 IF NOT ( DOKUMENTFORMAT EQ ' ' 0720 OR DOKUMENTFORMAT EQ '0' 0730 OR DOKUMENTFORMAT EQ '1' ) 0740 * Text in Bin (kein Format von Entire Connection) 0750 * oder Bin, RFT, FFT, Spr (Format von Entire Connection) 0760 * wird im hexadezimalen Format ausgegeben 0770 * 0780 WRITE 0790 / 'BIN-ARRAY(1) ' TEXT-ARRAY(1) 0800 (AL=30 EM=HHHHHHHHHHHHHHHHHHHHHHHHH) 0810 / 'BIN-ARRAY(2) ' TEXT-ARRAY(2) 0820 (AL=30 EM=HHHHHHHHHHHHHHHHHHHHHHHHH) 0830 / 'BIN-ARRAY(LETZTE-ZEILE-GEFUELLT) ' 0840 TEXT-ARRAY(LETZTE-ZEILE-GEFUELLT) 0850 (AL=30 EM=HHHHHHHHHHHHHHHHHHHHHHHHH) 0860 ELSE 0870 WRITE 0880 / 'TEXT-ARRAY(1) ' TEXT-ARRAY(1)(AL=30) 0890 / 'TEXT-ARRAY(2) ' TEXT-ARRAY(2)(AL=30) 0900 / 'TEXT-ARRAY(LETZTE-ZEILE-GEFUELLT) ' 0910 TEXT-ARRAY(LETZTE-ZEILE-GEFUELLT)(AL=30) 0920 END-IF 0930 END-IF 0940 END-IF 0950 END-REPEAT 0960 WRITE 'Return-Code :' RETURN-CODE 0970 END