Z-MOD01B

Dieses Dokument behandelt die folgenden Themen:


Beschreibung

Einen Rufnamen für eine Adresse an einem externen Knoten ändern. Dieses Subprogramm gilt nur für externe Knoten, die die Spoolfile-Methode benutzen.

Dieses Subprogramm entspricht Z-MOD01A mit der Ausnahme, dass Sie auch den Nachnamen und Vornamen eines Teilnehmers ändern können.

Dieses Subprogramm gilt nicht für Transport Service-Knoten. Um einen Rufnamen für einen Transport Service-Knoten zu ändern, müssen Sie Z-MOD01T benutzen.

Wenn Sie nur den Knotennamen kennen und nicht die physische Adresse des externen Knotens, die vom Administrator definiert wurde (Knotenparameter), können Sie vor dem Aufruf von Z-MOD01B das Subprogramm Z-GET74 aufrufen, um die physische Adressinformation auszugeben.

Dieses Subprogramm prüft nicht, ob die Daten, die Sie im Knotenparameter eingeben, mit den Daten übereinstimmen, die vom Administrator definiert wurden. Sie können daher auch abweichende Adressinformationen im Knotenparameter eingeben. Sie müssen jedoch darauf achten, dass diese Daten gültig sind.

Die Parameter, die nicht mit Werten gefüllt werden, werden aus der Rufnameninformation gelöscht. Um die bestehenden Werte beizubehalten, müssen Sie sie daher vor dem Aufruf dieses Subprogramms erneut angeben. Es gibt eine Ausnahme: wenn Sie Fachname und Ordnername nicht angeben, wird der Rufname automatisch im Arbeitsfach abgelegt.

Parameter

Parameter Format Ein Aus Bemerkung
Return-Code N2 O X Eingabe -1: kein ET
Buero A8 E   Das Büro, in dem der Rufname geändert werden soll.
Passwort A8 E   Das Passwort des o.g. Büros.
Rufname A20 E* X Der Rufname, der geändert werden soll. Eingabe: entweder Rufname oder ISN, nicht beides.
ISN P10 E* X Die ISN des Rufnamens, der geändert werden soll. Eingabe: entweder ISN oder Rufname, nicht beides. Vor dem Aufruf dieses Subprogramms können Sie Z-GET01 aufrufen, um die ISN des gewünschten Rufnamens auszugeben.
Nachname A32 O   Der Nachname eines Teilnehmers an einem externen Knoten.
Vorname A32 O   Der Vorname eines Teilnehmers an einem externen Knoten.
Beschreibung A60/1:4 O   Eine kurze Beschreibung für den Rufnamen.
Fachname A15 O   Das Fach, im dem der Rufname 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 Rufname abgelegt werden soll.
Knotenname A8 E   Der Name eines Knotens, der vom Administrator definiert wurde.
Knotenparameter A250 E   Die physische Adresse des externen Knotens. Siehe Externe Kommunikation.
Parameterlaenge N3 O   Die Länge des Knotenparameters. Wenn die Länge nicht bekannt ist, sollten Sie keinen Wert definieren.
Bearbeitungs-Flag A1 O   Es ist nur dann sinnvoll, dieses Flag zu markieren, wenn Sie online mit Con-nect arbeiten. Wenn es markiert ist, erscheint ein Fenster und Sie können vor dem Versenden zusätzliche Informationen eingeben. Wenn Sie Post mit Z-MAILA versenden, dürfen Sie dieses Flag nicht markieren, weil das Fenster hier nicht erscheint.
Persoenlich-Flag A1 O   Wenn markiert, ist der Rufname ein persönliches Objekt.
Berechtigungsstufen A4 O   Die Berechtigungsstufen für Lesen, Ändern, Kopieren und Drucken. Werte 0 bis 9.

Return-Codes

00 Erfolg
02 Ungültiger Büroname
03 Falsches Passwort
04 ISN wurde nicht gefunden
08 Geben Sie entweder ISN oder Name ein - nicht beides
09 ISN zeigt nicht auf das richtige Objekt
15 Ungültiger Administratorstatus
55 Das gewünschte Fach bzw. der gewünschte Ordner existiert nicht
56 Das gewünschte Fach ist ein TRS-Fach
73 Ungültiger Fach-/Ordnername
91 Ungültiger Name
93 Der externe Knoten oder die Adresse existiert nicht
94 Der Knotenname ist kein Spoolfile-Knotenname

Subprogramme

Z-120
Z-122
Z-123
Z-147
Z-150
Z-1200&0

Beispiel

0010 * 
0020 * Rufname für eine externe Adresse aendern. 
0030 * Vor dem Aufruf von Z-MOD01B wird Z-GET01B aufgerufen.
0040 * 
0050 DEFINE DATA
0060 LOCAL
0070 1 RETURN-CODE             (N2)
0080 1 BUERO                   (A8)
0090 1 PASSWORT                (A8)
0100 1 RUFNAME                 (A20)
0110 1 ISN                     (P10)
0120 1 NACHNAME                (A32)
0130 1 VORNAME                 (A32)
0140 1 BESCHREIBUNG            (A60/1:4)
0150 1 FACHNAME                (A15)
0160 1 ORDNERNAME              (A15)
0170 1 KNOTENNAME              (A8)
0180 1 KNOTENPARAMETER         (A250)
0190 1 PARAMETERLAENGE         (N3)
0200 1 BEARBEITUNGS-FLAG       (A1)
0210 1 PERSOENLICH-FLAG        (A1)
0220 1 BERECHTIGUNGSSTUFEN     (A4)
0230 1 REDEFINE BERECHTIGUNGSSTUFEN
0240   2 BERECHTIGUNG-LESEN    (A1)
0250   2 BERECHTIGUNG-AENDERN  (A1)
0260   2 BERECHTIGUNG-KOPIEREN (A1)
0270   2 BERECHTIGUNG-DRUCKEN  (A1)
0280 END-DEFINE
0290 *
0300 RESET RETURN-CODE
0310 MOVE 'KENNZ'            TO BUERO
0320 MOVE 'PW'               TO PASSWORT
0330 MOVE 'EXTERNER-KNOTEN'  TO RUFNAME
0340 *
0350 CALLNAT 'Z-GET01B' RETURN-CODE 
0360                    BUERO
0370                    PASSWORT
0380                    RUFNAME
0390                    ISN
0400                    NACHNAME
0410                    VORNAME
0420                    BESCHREIBUNG(*)
0430                    FACHNAME
0440                    ORDNERNAME
0450                    KNOTENNAME
0460                    KNOTENPARAMETER
0470                    PARAMETERLAENGE
0480                    BEARBEITUNGS-FLAG
0490                    PERSOENLICH-FLAG
0500                    BERECHTIGUNGSSTUFEN
0510 *
0520 MOVE 'Neuer Nachname'  TO NACHNAME
0530 MOVE 'Neuer Vorname'   TO VORNAME
0540 RESET ISN
0550 *
0560 CALLNAT 'Z-MOD01B' RETURN-CODE
0570                    BUERO
0580                    PASSWORT
0590                    RUFNAME
0600                    ISN
0610                    NACHNAME
0620                    VORNAME
0630                    BESCHREIBUNG(*)
0640                    FACHNAME
0650                    ORDNERNAME
0660                    KNOTENNAME
0670                    KNOTENPARAMETER
0680                    PARAMETERLAENGE
0690                    BEARBEITUNGS-FLAG
0700                    PERSOENLICH-FLAG
0710                    BERECHTIGUNGSSTUFEN
0720 *
0730 IF RETURN-CODE EQ 0
0740    WRITE 'Rufname   ' (AD=IO) RUFNAME 'wurde geaendert' (AD=IO) /
0750          'Neu:'       (AD=IO)                                   /
0760          'Nachname  ' (AD=IO) NACHNAME                          /
0770          'Vorname   ' (AD=IO) VORNAME
0780 ELSE
0790    WRITE 'Return-Code' RETURN-CODE
0800 END-IF
0810 *
0820 END