Z-ADD11X

Dieses Dokument behandelt die folgenden Themen:

Beschreibung

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

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.

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-162
Z-175
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             (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