Dieses Dokument behandelt die folgenden Themen:
Die Büro- und Privatanschrift für ein Büro oder einen Rufnamen ändern.
Dieses Subprogramm entspricht Z-MODADR mit der Ausnahme, dass Sie auch den Nachnamen, 2. Vornamen und Vornamen eines Büros oder den Nachnamen und Vornamen eines Rufnamens ändern können.
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-GET01C 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-GET01C 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. Der 2. Vorname eines Teilnehmers. | |
| Rufname-fuer | A44 | O | Gilt nur für einen Rufnamen. Nachname und Vorname durch ein Komma getrennt. | |
| Buero-Titel | A32 | O | ||
| Buero-Firma | A32 | O | ||
| Buero-Ort | A32 | O | ||
| Buero-Adresse | A60/1:3 | O | ||
| Buero-Stadt | A32 | O | ||
| Buero-Land | A8 | O | ||
| Buero-Abteilungsname | A32 | O | ||
| Buero-Abteilungsnummer | A10 | O | ||
| Buero-Telefon | A15 | O | ||
| Buero-Telefon-Land | N2 | O | ||
| Buero-Durchwahl | A10 | O | ||
| Buero-Postleitzahl | A10 | O | ||
| Buero-Staat | A8 | O | ||
| Privat-Adresse | A60/1:2 | O | ||
| Privat-Stadt | A32 | O | ||
| Privat-Land | A8 | O | ||
| Privat-Telefon | A15 | O | ||
| Privat-Telefon-Land | N2 | O | ||
| Privat-Postleitzahl | A10 | O | ||
| Privat-Staat | A8 | 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 bei Rufname-fuer |
N-UPDNAM
Z-120
Z-122
Z-123
Z-175
Z-206
Z-562
Z-710
Z-1200&0
0010 * Beispielprogramm: ein Bueroadministrator aendert alle 0020 * Bueroanschriften. Das Programm ersetzt die alten deutschen 0030 * Postleitzahlen durch die neuen fuenfstelligen Postleitzahlen. 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-GET01C 0140 1 PERSOENLICH-FLAG (A1) /* wird benutzt von Z-GET01C 0150 1 NACHNAME (A32) 0160 1 VORNAME (A32) 0170 1 2-VORNAME (A1) 0180 1 RUFNAME-FUER (A44) 0190 1 RUFNAME-STATUS (N1) /* wird benutzt von Z-GET01C 0200 1 RUFNAME-URSPRUNG (A8) /* wird benutzt von Z-GET01C 0210 1 BUERO-TITEL (A32) 0220 1 BUERO-FIRMA (A32) 0230 1 BUERO-ORT (A32) 0240 1 BUERO-ADRESSE (A60/1:3) 0250 1 BUERO-STADT (A32) 0260 1 BUERO-LAND (A8) 0270 1 BUERO-ABTEILUNGSNAME (A32) 0280 1 BUERO-ABTEILUNGSNUMMER (A10) 0290 1 BUERO-TELEFON (A15) 0300 1 BUERO-TELEFON-LAND (N2) 0310 1 BUERO-DURCHWAHL (A10) 0320 1 BUERO-POSTLEITZAHL (A10) 0330 1 BUERO-STAAT (A8) 0340 1 PRIVAT-ADRESSE (A60/1:2) 0350 1 PRIVAT-STADT (A32) 0360 1 PRIVAT-LAND (A8) 0370 1 PRIVAT-TELEFON (A15) 0380 1 PRIVAT-TELEFON-LAND (N2) 0390 1 PRIVAT-POSTLEITZAHL (A10) 0400 1 PRIVAT-STAAT (A8) 0410 1 WORK-PARAMETER (A83) /* wird benutzt von Z-GET01C 0420 * 0430 1 LISTE-DA (A30/2) INIT 0440 (1) <'Haardtring 64295'> 0450 (2) <'Friedberger 64289'> 0460 1 REDEFINE LISTE-DA 0470 2 STRING (2) 0480 3 STRASSE (A20) 0490 3 PLZ (A5) 0500 1 IND (N2) 0510 1 #RETURN-CODE (N2) 0520 1 #ZAEHLER (N3) 0530 END-DEFINE 0540 * 0550 MOVE 'DBA ' TO BUERO 0560 MOVE 'DBA ' TO PASSWORT 0570 MOVE '*' TO BUERONAME /* alle Bueros 0580 REPEAT 0590 RESET RETURN-CODE 0600 CALLNAT 'Z-GET01C' RETURN-CODE 0610 BUERO 0620 PASSWORT 0630 BUERONAME 0640 RUFNAME 0650 OBJEKT-ISN 0660 OBJEKTNUMMER 0670 PERSOENLICH-FLAG 0680 NACHNAME 0690 VORNAME 0700 2-VORNAME 0710 RUFNAME-FUER 0720 RUFNAME-STATUS 0730 RUFNAME-URSPRUNG 0740 BUERO-TITEL 0750 BUERO-FIRMA 0760 BUERO-ORT 0770 BUERO-ADRESSE(1:3) 0780 BUERO-STADT 0790 BUERO-LAND 0800 BUERO-ABTEILUNGSNAME 0810 BUERO-ABTEILUNGSNUMMER 0820 BUERO-TELEFON 0830 BUERO-TELEFON-LAND 0840 BUERO-DURCHWAHL 0850 BUERO-POSTLEITZAHL 0860 BUERO-STAAT 0870 PRIVAT-ADRESSE(1:2) 0880 PRIVAT-STADT 0890 PRIVAT-LAND 0900 PRIVAT-TELEFON 0910 PRIVAT-TELEFON-LAND 0920 PRIVAT-POSTLEITZAHL 0930 PRIVAT-STAAT 0940 WORK-PARAMETER 0950 * 0960 MOVE RETURN-CODE TO #RETURN-CODE 0970 IF RETURN-CODE EQ 0 OR 0980 RETURN-CODE EQ 77 0990 RESET RETURN-CODE 1000 * 1010 PERFORM FUELLEN-PLZ /* siehe die Subroutine am Ende dieses Programms 1020 * 1030 CALLNAT 'Z-MOD01C' RETURN-CODE 1040 BUERO /* oder RUFNAME-URSPRUNG, wenn Systemadministrator 1050 PASSWORT 1060 BUERONAME 1070 RUFNAME 1080 OBJEKT-ISN 1090 NACHNAME 1100 VORNAME 1110 2-VORNAME 1120 RUFNAME-FUER 1130 BUERO-TITEL 1140 BUERO-FIRMA 1150 BUERO-ORT 1160 BUERO-ADRESSE(1:3) 1170 BUERO-STADT 1180 BUERO-LAND 1190 BUERO-ABTEILUNGSNAME 1200 BUERO-ABTEILUNGSNUMMER 1210 BUERO-TELEFON 1220 BUERO-TELEFON-LAND 1230 BUERO-DURCHWAHL 1240 BUERO-POSTLEITZAHL 1250 BUERO-STAAT 1260 PRIVAT-ADRESSE(1:2) 1270 PRIVAT-STADT 1280 PRIVAT-LAND 1290 PRIVAT-TELEFON 1300 PRIVAT-TELEFON-LAND 1310 PRIVAT-POSTLEITZAHL 1320 PRIVAT-STAAT 1330 END-IF 1340 IF RETURN-CODE EQ 0 1350 ADD 1 TO #ZAEHLER 1360 END-IF 1370 UNTIL #RETURN-CODE NE 77 1380 END-REPEAT 1390 * 1400 WRITE #ZAEHLER ' Adressen wurde geaendert' 1410 * 1420 * 1430 DEFINE SUBROUTINE FUELLEN-PLZ 1440 * 1450 IF BUERO-STADT EQ SCAN 'Darmstadt' 1460 FOR IND 1 TO 2 1470 IF BUERO-ADRESSE(*) EQ SCAN STRASSE(IND) 1480 MOVE PLZ(IND) TO BUERO-POSTLEITZAHL 1490 END-IF 1500 END-FOR 1510 END-IF 1520 * 1530 END-SUBROUTINE 1540 * 1550 END