Dieses Dokument behandelt die folgenden Themen:
Die Büro- und Privatanschrift für ein Büro oder für einen Rufnamen ändern.
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-GETADR 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. | |
| 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-GETADR 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. | |
| 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 |
| 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 |
Z-120
Z-122
Z-123
Z-1200&0
Das folgende Beispiel verwendet eine LDA für die Parameter von Z-MODADR. Siehe Lokale Datenbereiche.
Die LDA-Felder haben dieselben Namen wie die Parameter, die in der englischen Dokumentation verwendet werden. Deshalb werden in diesem Beispiel die englischen Parameternamen verwendet.
Nur die von Z-GETADR benutzten Parameter werden lokal definiert.
**********************************************************************
* Zeigt wie ein Bueroadministrator die alten deutschen Postleitzahlen
* durch die neuen fuenfstelligen Postleitzahlen ersetzen kann
*********************************************************************
DEFINE DATA
LOCAL USING L-MODADR /* wird benutzt von Z-MODADR
LOCAL
1 OBJECT-NUMBER (N2) /* werden benutzt von Z-GETADR
1 PRIVATE-FLAG (A1) /* (zusaetzlich zu den Variablen,
1 LAST-NAME (A32) /* die in der LDA L-MODADR
1 FIRST-NAME (A32) /* definiert sind
1 INITIAL (A1)
1 WORK-PARAMETER (A88)
1 TABLE-DA(A30/2) INIT
(1) <'Haardtring 64295'>
(2) <'Friedberger 64289'>
1 REDEFINE TABLE-DA
2 STRING (2)
3 STREET (A20)
3 PLZ (A5)
1 IND (N2)
1 ADR-INX (N2)
1 #RETURN-CODE (N2)
1 #COUNTER (N3)
END-DEFINE
*
MOVE 'ADMIN-ID' TO CABINET
MOVE 'PASSWORD' TO PASSWORD
MOVE '*' TO CABINET-NAME /* alle Bueros
REPEAT
RESET RETURN-CODE
CALLNAT 'Z-GETADR'
RETURN-CODE
CABINET
PASSWORD
CABINET-NAME
NICKNAME
OBJECT-ISN
OBJECT-NUMBER
PRIVATE-FLAG
LAST-NAME
FIRST-NAME
INITIAL
WORK-TITLE
WORK-COMPANY
WORK-LOCATION
WORK-ADDRESS(*)
WORK-CITY
WORK-COUNTRY
WORK-DEPARTMENT-NAME
WORK-DEPARTMENT-NUMBER
WORK-PHONE
WORK-PHONE-COUNTRY
WORK-PHONE-EXTENSION
WORK-POSTAL-CODE
WORK-STATE
HOME-ADDRESS(*)
HOME-CITY
HOME-COUNTRY
HOME-PHONE
HOME-PHONE-COUNTRY
HOME-POSTAL-CODE
HOME-STATE
WORK-PARAMETER
*
MOVE RETURN-CODE TO #RETURN-CODE
IF RETURN-CODE EQ 0
OR RETURN-CODE EQ 77
RESET RETURN-CODE
*
PERFORM FILL-PLZ /* siehe die Subroutine am Ende dieses Programms
*
CALLNAT 'Z-MODADR'
L-MODADR
END-IF
IF RETURN-CODE EQ 0
ADD 1 TO #COUNTER
END-IF
UNTIL #RETURN-CODE NE 77
END-REPEAT
*
WRITE #COUNTER ' Adressen wurden geaendert'
*
* *****************************************************
*
DEFINE SUBROUTINE FILL-PLZ
*
IF WORK-CITY EQ SCAN 'Darmstadt'
FOR ADR-INX 1 TO 3
FOR IND 1 TO 2
IF WORK-ADDRESS(ADR-INX) EQ SCAN STREET(IND)
MOVE PLZ(IND) TO WORK-POSTAL-CODE
END-IF
END-FOR
END-FOR
END-IF
*
END-SUBROUTINE
* *****************************************************
END