Z-ADD11D

Dieses Dokument behandelt die folgenden Themen:


Beschreibung

Ein Con-nect-Dokument mit Daten aus einem Text-Array (A251/1:20) erstellen.

Dieses Subprogramm unterstützt alle Con-nect-Dokumentformate. Das Dokument wird immer im Arbeitsfach abgelegt und wird nach dem Erstellungsdatum (Parameter Autor-Datum) sortiert.

Sie müssen den Parameter Text-Array folgendermaßen redefinieren:

Byte-Nummer Beschreibung
1 Anzahl der Zeilenvorschübe (1 bis 9)
2 bis 251 Text

Sie müssen Leerzeilen (d.h. Zeilenvorschübe) separat definieren. Wenn Sie zum Beispiel den Wert 9 definieren, darf hiernach kein Text folgen. Vor einer Textzeile muss immer der Wert 1 stehen (wenn Sie keinen Wert definieren, wird 1 automatisch benutzt). Zum Beispiel:

MOVE '1Dies ist eine Textzeile'  TO TEXT-ARRAY (1)
MOVE '2'                         TO TEXT-ARRAY (2) /* fuegt 2 Leerzeilen ein
MOVE '1Dies ist eine Textzeile'  TO TEXT-ARRAY (3)

Sie können Leerzeilen hinter dem Dokumenttext unterdrücken, indem Sie im Parameter Anzahl die Anzahl der Textzeilen angeben, die gespeichert werden sollen. Wenn der Parameter Anzahl nicht definiert wird, wird der Vorgabewert 20 benutzt.

Sie können dieses Subprogramm iterativ aufrufen, um ein beliebig langes Dokument zu erstellen. Bei aufeinander folgenden Aufrufen müssen Sie darauf achten, dass der Work-Parameter nicht durch das aufrufende Programm zerstört wird.

Der Parameter Text-Array wird nach einem Aufruf nicht zurückgesetzt. Wenn Sie dieses Subprogramm iterativ aufrufen, muss der Parameter Text-Array daher zurückgesetzt werden bevor er erneut gefüllt wird.

Wenn Sie alte Dokumente (z.B. von 1988) nach Con-nect hochladen wollen, sollten Sie das Originaldatum im Parameter Autor-Datum angeben. Das Originaldatum wird dann als das Datum interpretiert, an dem das Dokument erstellt wurde. Das aktuelle Datum (d.h. das Datum, an dem das Dokument in Con-nect erstellt wurde) wird dann als das Datum interpretiert, an dem das Dokument zuletzt geändert wurde.

Autor-Datum und Autor-Zeit müssen entweder gleich sein oder vor dem aktuellen Datum und der aktuellen Zeit liegen. Wenn diese Parameter nicht angegeben werden, wird automatisch das aktuelle Datum und die aktuelle Zeit benutzt.

Das Ablaufdatum entspricht dem aktuellen Datum plus der definierten Anzahl von Tagen bis zum Ablaufdatum.

Parameter

Parameter Format Ein Aus Bemerkung
Return-Code N2 O X Eingabe -1: kein ET.
Buero A8 E   Das Büro, in dem das Dokument eingegeben werden soll.
Passwort A8 E   Das Passwort des o.g. Büros.
Dokumentname A32 E   Der Name des Dokuments, das eingegeben werden soll. Muss nicht angegeben werden, wenn die erste Zeile der Beschreibung angegeben wurde.
Beschreibung A60/1:4 O   Eine kurze Beschreibung für das Dokument. Wenn Sie keinen Dokumentnamen angeben, müssen Sie eine Beschreibung angeben.
Suchbegriffe A15/1:6 O   Suchbegriffe sind hilfreich, wenn Sie ein Objekt suchen. Sie können bis zu 6 Suchbegriffe eingeben. Ein Suchbegriff darf keinen Stern (*) enthalten.
Dokumentformat A1 E   0 - 9. Siehe Dokumentformate.
Text-Array A251/1:20 E   Der Dokumenttext.
Anzahl N2 O   Die Anzahl der Zeilen, die mit jedem Aufruf gespeichert werden sollen. Wenn Sie keinen Wert definieren, oder einen Wert, der größer ist als 20, wird der Vorgabewert 20 benutzt.
Hochladeformat A1 O   Wenn markiert, erfolgt die Konvertierung aus dem alten Übertragungsformat (A120) von Entire Connection zurück in das Originalbinärformat (B90). Dies gilt für die Dokumentformate Bin, RFT, FFT und Spr.
Autor-Kennzeichen A8 O   Das Kennzeichen des Autors. Wenn Sie keinen Autor angeben, wird automatisch das Kennzeichen des aktuellen Benutzers genommen.
Autor-Datum N8 O   Das Datum, an dem das Dokument erstellt wurde. Format yyyymmdd.
Autor-Zeit N4 O   Die Uhrzeit (GMT), zu der das Dokument erstellt wurde. Format hhmm.
ISN P10   X Die ISN des neuen Dokuments.
Work-Parameter A40     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
41 Ungültiges Autor-Datum
42 Ungültige Autor-Zeit
51 Ungültiger Name
52 Es existiert bereits ein Objekt mit dem angegebenen Namen
54 Mindestens ein Suchbegriff war ungültig
58 Es wurde kein Verzeichnissatz erstellt
79 Ungültiges Dokumentformat
91 Ungültiges Autor-Kennzeichen

Subprogramme

Z-120
Z-122
Z-123
Z-135
Z-160
Z-162
Z-175
Z-190
Z-1200&0

Beispiel

0010 *
0020 * Dokument mit Daten aus einem Text-Array fuellen
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 BESCHREIBUNG      (A60/1:4)
0110 1 SUCHBEGRIFFE      (A15/1:6)
0120 1 DOKUMENTFORMAT    (A1)
0130 1 TEXT-ARRAY        (A251/1:20)
0140 1 ANZAHL            (N2)
0150 1 HOCHLADEFORMAT    (A1)
0160 1 AUTOR-KENNZEICHEN (A8)
0170 1 AUTOR-DATUM       (N8)
0180 1 AUTOR-ZEIT        (N4)
0190 1 ISN               (P10)
0200 1 WORK-PARAMETER    (A40)
0210 *
0220 END-DEFINE
0230 *
0240 RESET WORK-PARAMETER
0250 MOVE 'BUERO '                         TO BUERO
0260 MOVE 'PASSWORT'                       TO PASSWORT
0270 MOVE 'Von ADD11D erstelltes Dokument' TO DOKUMENTNAME
0280 MOVE 'Dokumentbeschreibung Zeile 1'   TO BESCHREIBUNG(1)
0290 MOVE 'Dokumentbeschreibung Zeile 3'   TO BESCHREIBUNG(3)
0300 MOVE 'Suchbegriff1'                   TO SUCHBEGRIFFE(1)
0310 MOVE '0'                              TO DOKUMENTFORMAT
0320 MOVE '1Textzeile 1'                   TO TEXT-ARRAY(1)
0330 MOVE '1Textzeile 2'                   TO TEXT-ARRAY(2)
0340 MOVE  2                               TO ANZAHL
0350 MOVE 'ESH'                            TO AUTOR-KENNZEICHEN
0360 MOVE  19960831                        TO AUTOR-DATUM
0370 MOVE  1900                            TO AUTOR-ZEIT
0380 *
0390 CALLNAT 'Z-ADD11D'
0400   RETURN-CODE
0410   BUERO
0420   PASSWORT
0430   DOKUMENTNAME
0440   BESCHREIBUNG(*)
0450   SUCHBEGRIFFE(*)
0460   DOKUMENTFORMAT
0470   TEXT-ARRAY(*)
0480   ANZAHL
0490   HOCHLADEFORMAT
0500   AUTOR-KENNZEICHEN
0510   AUTOR-DATUM
0520   AUTOR-ZEIT
0530   ISN
0540   WORK-PARAMETER
0550 *
0560 IF RETURN-CODE EQ 0
0570   WRITE  'Dokument ' DOKUMENTNAME  'wurde erstellt' /
0580     'ISN des neuen Dokuments' ISN
0590 ELSE
0600   WRITE  'Return-Code' RETURN-CODE
0610 END-IF
0620 END