Dieses Dokument behandelt die folgenden Themen:
Ein Büro eingeben.
Dieses Subprogramm kann nur von einem Supervisor oder Büroadministrator benutzt werden.
Das Büro- und Teilnehmerprofil, das für das Büro SYSCNT definiert wurde, wird automatisch in das neue Büro kopiert. Der Administratorstatus wird jedoch nicht in das neue Büro kopiert.
Nach der erfolgreichen Ausführung von Z-ADD05 erfolgt immer ein END TRANSACTION. Sie können die Transaktionsverarbeitung nicht kontrollieren.
Anmerkung:
Wenn bei diesem Büro Änderungen erforderlich sind, können Sie eines
der Z-MOD05-Subprogramme benutzen. Sie können entweder den Parameter ISN
benutzen, der von Z-ADD05 ausgegeben wird, oder den Büronamen, den Sie mit
Z-ADD05 eingegeben haben. Mit den Subprogrammen Z-MOD05A bis Z-MOD05E können Sie verschiedene Bereiche des
Teilnehmerprofils ändern. Mit Z-MOD05F
können Sie das Büroprofil ändern.
Parameter | Format | Ein | Aus | Bemerkung |
---|---|---|---|---|
Return-Code | N2 | X | ||
Buero | A8 | E | Das Bürokennzeichen eines Supervisors oder Büroadministrators. | |
Passwort | A8 | E | Das Passwort des o.g. Büros. | |
Bueroname | A8 | E | Der Name für das Büro, das eingegeben werden soll. | |
Buerotyp | N1 | E | 0=Privatbüro, 1=unabhängiges Büro, 2=Gruppenbüro, 3=offenes Büro. | |
Nachname | A32 | E | Bei Bürotyp 0 müssen Sie den Nachnamen des Bürobenutzers eingeben. Bei den Bürotypen 1, 2 und 3 müssen Sie eine Beschreibung für das Büro eingeben. | |
Vorname | A32 | E | Nur bei Bürotyp 0 erforderlich. Sie müssen den Vornamen des Bürobenutzers eingeben. | |
2-Vorname | A1 | O | Kann nur bei Bürotyp 0 benutzt werden. Der zweite Vorname des Bürobenutzers. | |
Keine-Post | A1 | O | Kann nur bei den Bürotypen 1, 2 und 3 benutzt werden. Wenn gefüllt, kann das Büro keine Post senden und keine Post empfangen. | |
ISN | P8 | X | Die ISN des neuen Büros. |
00 | Erfolg |
02 | Ungültiger Büroname oder - nur im Batch-Betrieb - Büro gesperrt |
03 | Falsches Passwort |
15 | Ungültiger Administratorstatus |
51 | Ungültiger Name |
52 | Es existiert bereits ein Objekt mit dem angegebenen Namen |
91 | Bürotyp wurde nicht angegeben |
92 | Der Parameter Keine-Post ist nur bei den Bürotypen 1, 2 und 3 erlaubt |
94 | Benutzen Sie einen alphanumerischen Wert für den Parameter Keine-Post |
95 | Geben Sie Nachname und Vorname für das Privatbüro ein |
96 | Vorname und 2. Vorname können nur für ein Privatbüro definiert werden |
97 | Geben Sie für die Bürotypen 1 bis 3 eine Beschreibung im Parameter Nachname ein |
98 | Angegebener Büroname ist für Umbenennung reserviert |
Z-109
Z-112
Z-120
Z-122
Z-123
Z-175
Z-190
Z-195
Z-206
Z-720
Z-1200&0
Das folgende Beispiel verwendet zwei LDAs. 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.
Beachten Sie die Präfixe "L-ADD05." und "L-DIS05.", die die Parameter eindeutig identifizieren.
DEFINE DATA LOCAL USING L-ADD05 LOCAL USING L-DIS05 LOCAL 1 INDEX (N2) END-DEFINE * RESET L-ADD05.RETURN-CODE MOVE 'DBA' TO L-ADD05.CABINET MOVE 'DBA' TO L-ADD05.PASSWORD MOVE 'FBL' TO L-ADD05.CABINET-NAME MOVE 0 TO L-ADD05.CABINET-TYPE MOVE 'BLUECHAIR' TO L-ADD05.LAST-NAME MOVE 'FUV' TO L-ADD05.FIRST-NAME MOVE 'A' TO L-ADD05.INITIAL * CALLNAT 'Z-ADD05' L-ADD05 IF L-ADD05.RETURN-CODE = 0 WRITE 'Buero wurde eingegeben' ELSE WRITE 'Return-Code' L-ADD05.RETURN-CODE END-IF * NEWPAGE * RESET L-DIS05.RETURN-CODE MOVE 'DBA' TO L-DIS05.CABINET MOVE 'DBA' TO L-DIS05.PASSWORD MOVE 'FBL' TO L-DIS05.START-CABINET MOVE 9 TO L-DIS05.START-CABINET-TYPE MOVE 20 TO L-DIS05.NUMBER * REPEAT UNTIL L-DIS05.RETURN-CODE NE 0 * CALLNAT 'Z-DIS05' L-DIS05 * FOR INDEX 1 TO L-DIS05.NUMBER IF L-DIS05.CABINET-ISN(INDEX) NE 0 WRITE NOTITLE (SG=OFF ZP=OFF AD=L ) 'Bueroname ' L-DIS05.CABINET-NAME(INDEX) / 'Buerotyp ' L-DIS05.CABINET-TYPE(INDEX) / 'Nachname ' L-DIS05.USER-LAST-NAME(INDEX) / 'Vorname ' L-DIS05.USER-FIRST-NAME(INDEX) / '2. Vorname ' L-DIS05.USER-INITIAL(INDEX) / 'Keine Post ' L-DIS05.DISALLOW-MAIL(INDEX) / 'Verantwortlicher ' L-DIS05.OWNER(INDEX) / 'Administrator ' L-DIS05.ADMINISTRATOR(INDEX) / 'Buero-ISN ' L-DIS05.CABINET-ISN(INDEX) NEWPAGE END-IF END-FOR END-REPEAT WRITE 'Return-Code ' L-DIS05.RETURN-CODE * END