Z-ADD10X

Dieses Dokument behandelt die folgenden Themen:

Beschreibung

Einen Verteiler eingeben.

Dieses Subprogramm entspricht Z-ADD10 mit der Ausnahme, dass der Parameter ISN das Format P10 hat.

Um Mitglieder in den Verteiler einzugeben, müssen Sie Z-ADD17 benutzen.

Parameter

Parameter Format Ein Aus Bemerkung
Return-Code N2 O X Eingabe -1: kein ET.
Buero A8 E   Das Büro, in dem der Verteiler eingegeben werden soll.
Passwort A8 E   Das Passwort des o.g. Büros.
Verteilername A12 E   Der Name des Verteilers, der eingegeben werden soll. Wenn Sie einen Verteiler im Büro SYSCNT eingeben, darf es kein Büro mit diesem Namen geben.
Beschreibung A60/1:4 O   Eine kurze Beschreibung für den Verteiler.
Fachname A15 O   Das Fach, in dem der Verteiler abgelegt werden soll. Sie dürfen kein TRS-Fach und kein Systemfach (außer dem Arbeitsfach) definieren. Vorgabe: Arbeitsfach.
Ordnername A15 O   Der Ordner im o.g. Fach, in dem der Verteiler abgelegt werden soll.
ISN P10   X Die ISN des neuen Verteilers.

Return-Codes

00 Erfolg
02 Ungültiger Büroname oder - nur im Batch-Betrieb - Büro gesperrt
03 Falsches Passwort
10 Funktion ist für Systemfach nicht gültig
51 Ungültiger Name
52 Es existiert bereits ein Objekt mit dem angegebenen Namen
55 Das gewünschte Fach bzw. der gewünschte Ordner existiert nicht
56 Das gewünschte Fach ist ein TRS-Fach
90 Verteiler wurde nicht erstellt - Kennzeichen wird bereits für ein Büro benutzt
91 Ein Fehler trat auf - Verteiler wurde nicht erstellt

Subprogramme

Z-120
Z-122
Z-123
Z-147
Z-150
Z-162
Z-190
Z-195
Z-1200&0

Beispiel

0010 DEFINE DATA LOCAL
0020 1 RETURN-CODE         (N2)
0030 1 BUERO               (A8)
0040 1 PASSWORT            (A8)
0050 1 VERTEILERNAME       (A12)
0060 1 BESCHREIBUNG        (A60/1:4)
0070 1 FACHNAME            (A15)
0080 1 ORDNERNAME          (A15)
0090 1 ISN                 (P10)
0100 END-DEFINE
0110 *
0120 MOVE 'LS'             TO BUERO
0130 MOVE 'PASSWORT'       TO PASSWORT
0140 MOVE 'VERTEILER-1'    TO VERTEILERNAME
0150 MOVE 'Dies ist die erste Zeile der Beschreibung' TO BESCHREIBUNG(1)
0160 *
0170 CALLNAT 'Z-ADD10X' RETURN-CODE BUERO PASSWORT
0180   VERTEILERNAME BESCHREIBUNG(*) FACHNAME ORDNERNAME ISN
0190 *
0200 IF RETURN-CODE EQ 0
0210    WRITE 'Verteiler wurde erstellt'
0220 ELSE
0230    WRITE 'Return-Code' RETURN-CODE
0240 END-IF
0250 *
0260 END