Z-ADD11

Dieses Dokument behandelt die folgenden Themen:

Beschreibung

Ein Con-nect-Dokument aus dem Inhalt des Natural-Source-Code-Editierbereichs erstellen (ESIZE).

Der Inhalt des Editierbereichs wird nicht verändert. Das neue Dokument kann bis zu vier Zeilen Beschreibung enthalten. Das Dokument wird immer im Arbeitsfach abgelegt.

Anmerkung:
"*/" in den ersten beiden Positionen einer Zeile im Natural-Editierbereich generiert im Con-nect-Dokument eine neue Seite.

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.
ISN P8   X Die ISN des neuen Dokuments.

Return-Codes

00 Erfolg
02 Ungültiger Büroname oder - nur im Batch-Betrieb - Büro gesperrt
03 Falsches Passwort
51 Ungültiger Name
52 Es existiert bereits ein Objekt mit dem angegebenen Namen
60 Der Editierbereich ist leer

Subprogramme

Z-120
Z-122
Z-123
Z-135
Z-145
Z-190
Z-1200&0

Beispiel

0010 DEFINE DATA LOCAL   
0020 01 RETURN-CODE     (N2)
0030 01 BUERO           (A8)
0040 01 PASSWORT        (A8)
0050 01 DOKUMENTNAME    (A32)
0060 01 BESCHREIBUNG    (A60/1:4)
0070 01 ISN             (P8)
0080 END-DEFINE
0090 *
0100 DEFINE PRINTER (4) OUTPUT 'SOURCE' /* Report 4 ist nun Editierbereich
0110 *
0120 SET CONTROL 'Z'                    /* Editierbereich loeschen
0130 *
0140 MOVE 'LS'          TO BUERO
0150 MOVE 'PASSWORT'    TO PASSWORT
0160 MOVE 'REPORT-1'    TO DOKUMENTNAME
0170 MOVE 'Dies ist die erste Zeile der Beschreibung' TO BESCHREIBUNG(1)
0180 *
0190 WRITE (4) NOTITLE NOHDR 'Dies ist der Dokumenttext'
0200 *
0210 CALLNAT 'Z-ADD11' RETURN-CODE BUERO PASSWORT
0220                   DOKUMENTNAME BESCHREIBUNG(*) ISN
0230 *
0240 IF RETURN-CODE EQ 0
0250   WRITE 'Dokument wurde erstellt'
0260 ELSE
0270   WRITE 'Return-Code' RETURN-CODE
0280 END-IF
0290 *
0300 END