Z-GET11D

Dieses Dokument behandelt die folgenden Themen:


Beschreibung

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:

  1. Um ein Objekt auszugeben, das in einem Systemfach (z.B. Posteingang) abgelegt ist, müssen Sie die ISN übergeben, die von einem vorherigen API-Subprogramm ausgegeben wurde.
  2. Ein Dokument, das keinen Namen hat (d.h. ein Dokument, das über seine Beschreibung identifiziert wird), kann nur über die ISN aufgerufen werden.

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* 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.

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
77 Ende des Objekts

Subprogramme

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

Beispiel

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