Dieses Dokument behandelt die folgenden Themen:
Die Büro- und Privatanschrift für ein Büro oder einen Rufnamen ändern.
Dieses Subprogramm entspricht Z-MOD01C mit der Ausnahme, dass Sie auch die Informationen für Cc und Verschiedenes ändern können. Zusätzlich enthält die Parameterliste neue Felder und die Parameter sind entsprechend ihrer Position auf dem Online-Bildschirm sortiert. Ausnahme: Nachname, Vorname, 2-Vorname und Geschlecht sind in der Parameterliste anders sortiert.
Die Cc-Parameter gelten nur für Büros (Objektnummer 5). Bei Rufnamen (Objektnummer 1) werden sie ignoriert.
Dieses Subprogramm kann von unterschiedlichen Teilnehmertypen benutzt werden. Je nachdem, von welchem Teilnehmer es aufgerufen wird, sind die folgenden Funktionen erlaubt:
Büroadministrator
Die Anschrift für ein Büro ändern (außer für das Büro SYSCNT). Oder
die Anschrift für einen Rufnamen ändern, der im Privatbüro des
Büroadministrators definiert ist.
Systemadministrator
Die Anschrift für das Büro SYSCNT ändern. Oder die Anschrift für einen
Rufnamen ändern, der im Büro SYSCNT oder im Privatbüro des Systemadministrators
definiert ist.
Jeder andere Teilnehmer
Die Anschrift für einen Rufnamen ändern, der im Privatbüro des
Teilnehmers definiert ist.
Dieses Subprogramm ändert auch die Anschriften für Rufnamen in den Büros, für die die oben genannten Teilnehmer eine Zugriffsberechtigung haben (zum Beispiel, Gruppenbüros und offene Büros).
Sie müssen mindestens einen der folgenden Parameter angeben: Bueroname, Rufname oder Objekt-ISN. Die folgenden Kombinationen sind erlaubt: Bueroname und Objekt-ISN, Rufname und Objekt-ISN, nur Bueroname, nur Rufname oder nur Objekt-ISN.
Die folgende Tabelle zeigt, welche Parameter für die verschiedenen Funktionen dieses Subprogramms benutzt werden (der Parameter Objekt-ISN wird in der Tabelle nicht berücksichtigt):
| Funktion | Buero | Bueroname | Rufname |
|---|---|---|---|
| Anschrift für ein Büro ändern (außer für SYSCNT). | Teilnehmerkennzeichen eines Büroadministrators. | Name des zu ändernden Büros. | |
| Anschrift für das Büro SYSCNT ändern. | Teilnehmerkennzeichen eines Systemadministrators. | Der Büroname "SYSCNT". | |
| Rufname im Büro SYSCNT ändern. | Der Büroname "SYSCNT" (nur für Systemadministratoren). | Der zu ändernde Rufname. | |
| Rufname im Privatbüro des Teilnehmers ändern oder in einem Büro, für das der Teilnehmer eine Zugriffsberechtigung hat. | Name des Büros, in dem der Rufname abgelegt ist. | Der zu ändernde Rufname. |
Die Parameter, die nicht mit Werten gefüllt werden, werden aus der Adressinformation gelöscht. Um die bestehenden Werte beizubehalten, müssen Sie sie daher vor dem Aufruf dieses Subprogramms erneut angeben.
Um die Parameter mit den bestehenden Werten zu füllen, wird empfohlen, Z-GET01D vor dem Aufruf dieses Subprogramms aufzurufen (siehe das folgende Beispielprogramm).
| Parameter | Format | Ein | Aus | Bemerkung |
|---|---|---|---|---|
| Return-Code | N2 | O | X | Eingabe -1: kein ET. |
| Buero | A8 | E | Um die Anschrift für ein Büro zu ändern, muss dies das Teilnehmerkennzeichen eines Büroadministrators sein. Um die Anschrift für einen Rufnamen zu ändern, muss dies der Name des Büros sein, in dem der Rufname abgelegt ist. Systemadministratoren können "SYSCNT" verwenden, um Anschriften oder Rufnamen im Büro SYSCNT zu ändern (siehe die Tabelle oben). | |
| Passwort | A8 | E | Das Passwort des o.g. Büros. | |
| Bueroname | A8 | E/O* | Der Name des zu ändernden Büros. Entweder Bueroname oder Rufname, nicht beides. | |
| Rufname | A32 | E/O* | Der zu ändernde Rufname. Entweder Rufname oder Bueroname, nicht beides. | |
| Objekt-ISN | P10 | E/O | Die ISN des Büros oder des Rufnamens. Vor dem Aufruf dieses Subprogramms können Sie Z-GET01D aufrufen, um die ISN des gewünschten Büros oder Rufnamens auszugeben. Sie können Objekt-ISN entweder allein angeben oder zusätzlich zu Bueroname oder Rufname. Im zuletzt genannten Fall müssen Objekt-ISN und Bueroname oder Rufname übereinstimmen, weil sonst Return-Code 4 ausgegeben wird. | |
| Nachname | A32 | O | Gilt nur für ein Büro oder eine externe Adresse. Der Nachname eines Teilnehmers. | |
| Vorname | A32 | O | Gilt nur für ein Privatbüro oder eine externe Adresse. Der Vorname eines Teilnehmers. | |
| 2-Vorname | A1 | O | Gilt nur für ein Privatbüro oder eine externe Adresse. Der 2. Vorname eines Teilnehmers. | |
| Geschlecht | A10 | O | Gilt nur für ein Privatbüro oder eine externe Adresse. | |
| Rufname-fuer | A44 | O | Gilt nur für einen Rufnamen. Nachname und Vorname durch ein Komma getrennt. | |
| Buero-Firma | A32 | O | ||
| Buero-Titel | A32 | O | ||
| Buero-Abteilungsname | A32 | O | ||
| Buero-Abteilungsnummer | A10 | O | ||
| Buero-Ort | A32 | O | ||
| Buero-Adresse | A60/1:3 | O | ||
| Buero-Stadt | A32 | O | ||
| Buero-Staat | A8 | O | ||
| Buero-Postleitzahl | A10 | O | ||
| Buero-Land | A8 | O | ||
| Buero-Telefon-1-Land | N3 | O | ||
| Buero-Telefon-1 | A15 | O | ||
| Buero-Telefon-1-Durchwahl | A5 | O | ||
| Buero-Telefon-2-Land | N3 | O | ||
| Buero-Telefon-2 | A15 | O | ||
| Buero-Telefon-2-Durchwahl | A5 | O | ||
| Mobiltelefon-Land | N3 | O | ||
| Mobiltelefon | A15 | O | ||
| Mobiltelefon-Durchwahl | A5 | O | ||
| Fax-Land | N3 | O | ||
| Fax | A15 | O | ||
| Fax-Durchwahl | A5 | O | ||
| Cc-Flag | A1 | O | Wenn markiert, wird Cc gesetzt. | |
| Cc | A20 | O | Empfänger einer Kopie der Post: Adresse, Büro, Teilnehmerkennzeichen oder Rubrik. | |
| Cc-Adresstyp | N2 | O | Wenn Cc angegeben wird, muss dies einer der folgenden sein: 1=Adresse (Rufname), 4=Rubrik, 5=Büro, 33=Teilnehmerkennzeichen. | |
| Cc-Adressquelle | A1 | O | Nur wenn Cc-Adresstyp 1 (Adresse) ist: S=Adresse von Büro SYSCNT. Leer=Adresse von Bueroname. | |
| Cc-2-Flag | A1 | O | Wenn markiert, wird Cc-2 gesetzt. | |
| Cc-2 | A20 | O | Empfänger einer Kopie der Post: Adresse, Büro, Teilnehmerkennzeichen oder Rubrik. | |
| Cc-2-Adresstyp | N2 | O | Wenn Cc-2 angegeben wird, muss dies einer der folgenden sein: 1=Adresse (Rufname), 4=Rubrik, 5=Büro, 33=Teilnehmerkennzeichen. | |
| Cc-2-Adressquelle | A1 | O | Nur wenn Cc-2-Adresstyp 1 (Adresse) ist: S=Adresse von Büro SYSCNT. Leer=Adresse von Bueroname. | |
| A64 | O | |||
| Internet | A64 | O | ||
| Privat-Adresse | A60/1:2 | O | ||
| Privat-Stadt | A32 | O | ||
| Privat-Staat | A8 | O | ||
| Privat-Postleitzahl | A10 | O | ||
| Privat-Land | A8 | O | ||
| Privat-Telefon-Land | N3 | O | ||
| Privat-Telefon | A15 | O | ||
| Privat-Telefon-Durchwahl | A5 | O | ||
| Privat-Fax-Land | N3 | O | ||
| Privat-Fax | A15 | O | ||
| Privat-Fax-Durchwahl | A5 | O | ||
| Privat-E-mail | A64 | O | ||
| Verschiedenes-Kopfzeilen | A12/1:6 | O | ||
| Verschiedenes-Beschreibung | A64/1:6 | O |
| 00 | Erfolg |
| 02 | Ungültiger Büroname oder - nur im Batch-Betrieb - Büro gesperrt |
| 03 | Falsches Passwort |
| 04 | ISN wurde nicht gefunden |
| 09 | ISN zeigt nicht auf das richtige Objekt |
| 15 | Ungültiger Administratorstatus |
| 53 | Das gewünschte Objekt existiert nicht |
| 91 | Ungültige Angabe im Parameter Bueroname oder Rufname |
| 92 | Geben Sie entweder Büroname oder Rufname an, nicht beides |
| 93 | Geben Sie den Parameter Bueroname oder Rufname an |
| 94 | Ungültige Angabe im Parameter Rufname-fuer |
| 95 | Ungültige Angabe im Parameter Cc-Adresstyp |
| 96 | Cc wurde nicht gefunden |
| 97 | Ungültige Angabe im Parameter Cc-2-Adresstyp |
| 98 | Cc-2 wurde nicht gefunden |
N-UPDNAM
Z-120
Z-122
Z-123
Z-175
Z-206
Z-562
Z-710
Z-723
Z-1200&0
0010 * 0020 * Setzt bei allen Rufnamen im Buero ESH die Titel 0030 * fuer die Informationen unter Verschiedenes 0040 * 0050 DEFINE DATA 0060 LOCAL 0070 1 RETURN-CODE (N2) 0080 1 BUERO (A8) 0090 1 PASSWORT (A8) 0100 1 BUERONAME (A8) 0110 1 RUFNAME (A32) 0120 1 OBJEKT-ISN (P10) 0130 1 OBJEKTNUMMER (N2) /* wird benutzt von Z-GET01D 0140 1 PERSOENLICH-FLAG (A1) /* wird benutzt von Z-GET01D 0150 1 NACHNAME (A32) 0160 1 VORNAME (A32) 0170 1 2-VORNAME (A1) 0180 1 GESCHLECHT (A10) 0190 1 RUFNAME-FUER (A44) 0200 1 RUFNAME-STATUS (N1) /* wird benutzt von Z-GET01D 0210 1 RUFNAME-URSPRUNG (A8) /* wird benutzt von Z-GET01D 0220 1 BUERO-FIRMA (A32) 0230 1 BUERO-TITEL (A32) 0240 1 BUERO-ABTEILUNGSNAME (A32) 0250 1 BUERO-ABTEILUNGSNUMMER (A10) 0260 1 BUERO-ORT (A32) 0270 1 BUERO-ADRESSE (A60/1:3) 0280 1 BUERO-STADT (A32) 0290 1 BUERO-STAAT (A8) 0300 1 BUERO-POSTLEITZAHL (A10) 0310 1 BUERO-LAND (A8) 0320 1 BUERO-TELEFON-1-LAND (N3) 0330 1 BUERO-TELEFON-1 (A15) 0340 1 BUERO-TELEFON-1-DURCHWAHL(A5) 0350 1 BUERO-TELEFON-2-LAND (N3) 0360 1 BUERO-TELEFON-2 (A15) 0370 1 BUERO-TELEFON-2-DURCHWAHL(A5) 0380 1 MOBILTELEFON-LAND (N3) 0390 1 MOBILTELEFON (A15) 0400 1 MOBILTELEFON-DURCHWAHL (A5) 0410 1 FAX-LAND (N3) 0420 1 FAX (A15) 0430 1 FAX-DURCHWAHL (A5) 0440 1 CC-FLAG (A1) 0450 1 CC (A20) 0460 1 CC-ADRESSTYP (N2) 0470 1 CC-ADRESSQUELLE (A1) 0475 1 CC-NACH-VOR-NAME (A20) /* wird benutzt von Z-GET01D 0480 1 CC-KNOTENNAME (A8) /* wird benutzt von Z-GET01D 0485 1 CC-STATUS (A1) /* wird benutzt von Z-GET01D 0490 1 CC-2-FLAG (A1) 0500 1 CC-2 (A20) 0510 1 CC-2-ADRESSTYP (N2) 0520 1 CC-2-ADRESSQUELLE (A1) 0525 1 CC-2-NACH-VOR-NAME (A20) /* wird benutzt von Z-GET01D 0530 1 CC-2-KNOTENNAME (A8) /* wird benutzt von Z-GET01D 0535 1 CC-2-STATUS (A1) /* wird benutzt von Z-GET01D 0540 1 E-MAIL (A64) 0550 1 INTERNET (A64) 0560 1 PRIVAT-ADRESSE (A60/1:2) 0570 1 PRIVAT-STADT (A32) 0580 1 PRIVAT-STAAT (A8) 0590 1 PRIVAT-POSTLEITZAHL (A10) 0600 1 PRIVAT-LAND (A8) 0610 1 PRIVAT-TELEFON-LAND (N3) 0620 1 PRIVAT-TELEFON (A15) 0630 1 PRIVAT-TELEFON-DURCHWAHL (A5) 0640 1 PRIVAT-FAX-LAND (N3) 0650 1 PRIVAT-FAX (A15) 0660 1 PRIVAT-FAX-DURCHWAHL (A5) 0670 1 PRIVAT-E-MAIL (A64) 0680 1 VERSCHIEDENES-KOPFZEILEN (A12/1:6) 0690 1 VERSCHIEDENES-BESCHREIBUNG (A64/1:6) 0700 1 WORK-PARAMETER (A83) /* wird benutzt von Z-GET01D 0710 * 0720 1 #RETURN-CODE (N2) 0730 END-DEFINE 0740 * 0750 MOVE 'ESH ' TO BUERO 0760 MOVE 'ESHPASS ' TO PASSWORT 0770 MOVE '* ' TO RUFNAME 0780 REPEAT 0790 RESET RETURN-CODE 0800 CALLNAT 'Z-GET01D' RETURN-CODE 0810 BUERO 0820 PASSWORT 0830 BUERONAME 0840 RUFNAME 0850 OBJEKT-ISN 0860 OBJEKTNUMMER 0870 PERSOENLICH-FLAG 0880 NACHNAME 0890 VORNAME 0900 2-VORNAME 0910 GESCHLECHT 0920 RUFNAME-FUER 0930 RUFNAME-STATUS 0940 RUFNAME-URSPRUNG 0950 BUERO-FIRMA 0960 BUERO-TITEL 0970 BUERO-ABTEILUNGSNAME 0980 BUERO-ABTEILUNGSNUMMER 0990 BUERO-ORT 1000 BUERO-ADRESSE(1:3) 1010 BUERO-STADT 1020 BUERO-STAAT 1030 BUERO-POSTLEITZAHL 1040 BUERO-LAND 1050 BUERO-TELEFON-1-LAND 1060 BUERO-TELEFON-1 1070 BUERO-TELEFON-1-DURCHWAHL 1080 BUERO-TELEFON-2-LAND 1090 BUERO-TELEFON-2 1100 BUERO-TELEFON-2-DURCHWAHL 1110 MOBILTELEFON-LAND 1120 MOBILTELEFON 1130 MOBILTELEFON-DURCHWAHL 1140 FAX-LAND 1150 FAX 1160 FAX-DURCHWAHL 1170 CC-FLAG 1180 CC 1190 CC-ADRESSTYP 1200 CC-ADRESSQUELLE 1205 CC-NACH-VOR-NAME 1210 CC-KNOTENNAME 1215 CC-STATUS 1220 CC-2-FLAG 1230 CC-2 1240 CC-2-ADRESSTYP 1250 CC-2-ADRESSQUELLE 1255 CC-2-NACH-VOR-NAME 1260 CC-2-KNOTENNAME 1265 CC-2-STATUS 1270 E-MAIL 1280 INTERNET 1290 PRIVAT-ADRESSE(1:2) 1300 PRIVAT-STADT 1310 PRIVAT-STAAT 1320 PRIVAT-POSTLEITZAHL 1330 PRIVAT-LAND 1340 PRIVAT-TELEFON-LAND 1350 PRIVAT-TELEFON 1360 PRIVAT-TELEFON-DURCHWAHL 1370 PRIVAT-FAX-LAND 1380 PRIVAT-FAX 1390 PRIVAT-FAX-DURCHWAHL 1400 PRIVAT-E-MAIL 1410 VERSCHIEDENES-KOPFZEILEN(1:6) 1420 VERSCHIEDENES-BESCHREIBUNG(1:6) 1430 WORK-PARAMETER 1440 * 1450 MOVE RETURN-CODE TO #RETURN-CODE 1460 IF RETURN-CODE EQ 0 OR 1470 RETURN-CODE EQ 77 1480 RESET RETURN-CODE 1490 * 1500 IF VERSCHIEDENES-KOPFZEILEN(1:6) = ' ' AND VERSCHIEDENES-BESCHREIBUNG(1:6) = ' ' 1510 MOVE RIGHT JUSTIFIED 'Manager' TO VERSCHIEDENES-KOPFZEILEN(1) 1520 MOVE RIGHT JUSTIFIED 'Geburtstag' TO VERSCHIEDENES-KOPFZEILEN(2) 1530 MOVE RIGHT JUSTIFIED 'Hobby' TO VERSCHIEDENES-KOPFZEILEN(3) 1540 MOVE RIGHT JUSTIFIED 'Assistent' TO VERSCHIEDENES-KOPFZEILEN(4) 1550 MOVE RIGHT JUSTIFIED 'Partner' TO VERSCHIEDENES-KOPFZEILEN(5) 1560 MOVE RIGHT JUSTIFIED 'Kinder' TO VERSCHIEDENES-KOPFZEILEN(6) 1570 * 1580 CALLNAT 'Z-MOD01D' RETURN-CODE 1590 BUERO 1600 PASSWORT 1610 BUERONAME 1620 RUFNAME 1630 OBJEKT-ISN 1640 NACHNAME 1650 VORNAME 1660 2-VORNAME 1670 GESCHLECHT 1680 RUFNAME-FUER 1690 BUERO-FIRMA 1700 BUERO-TITEL 1710 BUERO-ABTEILUNGSNAME 1720 BUERO-ABTEILUNGSNUMMER 1730 BUERO-ORT 1740 BUERO-ADRESSE(1:3) 1750 BUERO-STADT 1760 BUERO-STAAT 1770 BUERO-POSTLEITZAHL 1780 BUERO-LAND 1790 BUERO-TELEFON-1-LAND 1800 BUERO-TELEFON-1 1810 BUERO-TELEFON-1-DURCHWAHL 1820 BUERO-TELEFON-2-LAND 1830 BUERO-TELEFON-2 1840 BUERO-TELEFON-2-DURCHWAHL 1850 MOBILTELEFON-LAND 1860 MOBILTELEFON 1870 MOBILTELEFON-DURCHWAHL 1880 FAX-LAND 1890 FAX 1900 FAX-DURCHWAHL 1910 CC-FLAG 1920 CC 1930 CC-ADRESSTYP 1940 CC-ADRESSQUELLE 1950 CC-2-FLAG 1960 CC-2 1970 CC-2-ADRESSTYP 1980 CC-2-ADRESSQUELLE 1990 E-MAIL 2000 INTERNET 2010 PRIVAT-ADRESSE(1:2) 2020 PRIVAT-STADT 2030 PRIVAT-STAAT 2040 PRIVAT-POSTLEITZAHL 2050 PRIVAT-LAND 2060 PRIVAT-TELEFON-LAND 2070 PRIVAT-TELEFON 2080 PRIVAT-TELEFON-DURCHWAHL 2090 PRIVAT-FAX-LAND 2100 PRIVAT-FAX 2110 PRIVAT-FAX-DURCHWAHL 2120 PRIVAT-E-MAIL 2130 VERSCHIEDENES-KOPFZEILEN(1:6) 2140 VERSCHIEDENES-BESCHREIBUNG(1:6) 2150 IF RETURN-CODE NE 0 2160 WRITE 'Fehler bei Z-MOD01D. Return-Code:' RETURN-CODE 2170 ELSE 2180 WRITE 'Titel geaendert in Rufname' RUFNAME 'Buero' BUERO 2190 END-IF 2200 END-IF 2210 END-IF 2220 IF #RETURN-CODE EQ 77 2230 ESCAPE BOTTOM 2240 END-IF 2250 END-REPEAT 2260 END