Dieses Dokument behandelt die folgenden Themen:
Ein Con-nect-Dokument aus dem Inhalt des Natural-Source-Code-Editierbereichs erstellen (ESIZE).
Dieses Subprogramm entspricht Z-ADD11 mit der Ausnahme, dass der Parameter ISN das Format P10 hat.
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 | P10 | 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-162
Z-175
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 (P10) 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-ADD11X' 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