Dieses Dokument behandelt die folgenden Themen:
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 | 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. |
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 |
Z-120
Z-122
Z-123
Z-135
Z-145
Z-190
Z-1200&0
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