Z-REN05

Dieses Dokument behandelt die folgenden Themen:


Beschreibung

Büro zum Umbenennen markieren.

Dieses Subprogramm kann nur von einem Supervisor oder Büroadministrator benutzt werden.

Ein Büro wird nach dem Markieren erst dann umbenannt, wenn das im Parameter Datum-umbenennen angegebene Datum erreicht und das Dienstprogramm "Büros umbenennen" ausgeführt wurde. Weitere Informationen hierzu finden Sie unter Con-nect-Dienstprogramme, Abschnitt Büros umbenennen.

Dieses Subprogramm kann auch verwendet werden, um die Markierung zur Büroumbenennung aufzuheben und den Status eines Büros auszugeben.

Parameter

Parameter Format Ein Aus Bemerkung
Return-Code N2 O X Eingabe -1: kein ET.
Buero A8 E   Das Bürokennzeichen eines Supervisors oder Büroadministrators.
Passwort A8 E   Das Passwort des o.g. Büros.
Funktion A1 E   S=Set:Büro zum Umbenennen markieren. R=Reset: Markierung aufheben. D=Display: Status anzeigen.
Aktueller-Bueroname A8 E   Der Büroname vor der Umbenennung.
Neuer-Bueroname A8 E   Gilt nur für Funktion S. Der neue Büroname, wenn der Umbenennungsprozess abgeschlossen ist
Datum-umbenennen A8 O   Gilt nur für Funktion S. Format=yyyymmdd. Das angegebene Datum wird als GMT interpretiert und die GMT-Zeit als 0. Wenn kein Datum angegeben wird, wird das aktuelle Datum verwendet.
Status-Markierung A1   X X=Büro ist zum Umbenennen markiert. Leer=Büro ist nicht zum Umbenennen markiert.

Return-Codes

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 (Syntax für Neuer-Bueroname prüfen)
52 Es existiert bereits ein Objekt mit diesem Namen (Neuer-Bueroname)
90 Falsche Funktion
91 Bürosatz existiert nicht
92 Büro ist bereits zum Umbenennen markiert
93 Büro ist bereits zum Übertragen markiert
94 Büro ist bereits zum Löschen markiert
95 Neuer-Bueroname wird bereits als neuer Name für ein anderes Büro verwendet
96 Ungültiges Datumsformat
97 Vergangenes Datum
98 Büro wurde nicht zum Umbenennen markiert
99 Büro SYSCNT darf nicht verwendet werden

Subprogramme

Z-122
Z-120
Z-123
Z-1200&0
Z-MPPNM

Beispiel

0010 DEFINE DATA
0020 *
0030 LOCAL
0040 1 RETURN-CODE         (N2)
0050 1 BUERO               (A8)
0060 1 PASSWORT            (A8)
0070 1 FUNKTION            (A1) 
0080 1 AKTUELLER-BUERONAME (A8)
0090 1 NEUER-BUERONAME     (A8)
0100 1 DATUM-UMBENENNEN    (A8)
0110 1 STATUS-MARKIERUNG   (A1)
0120 *
0130 END-DEFINE
0140 *
0150 MOVE 'BUERO'     TO BUERO
0160 MOVE 'PASSWORT'  TO PASSWORT
0170 MOVE 'S'         TO FUNKTION 
0180 MOVE 'TEST1'     TO AKTUELLER-BUERONAME
0190 MOVE 'TEST2'     TO NEUER-BUERONAME
0200 MOVE  19991010   TO DATUM-UMBENENNEN
0210 *
0220 CALLNAT 'Z-REN05'
0230         RETURN-CODE
0240         BUERO
0250         PASSWORT
0260         FUNKTION
0270         AKTUELLER-BUERONAME
0280         NEUER-BUERONAME
0290         DATUM-UMBENENNEN
0300         STATUS-MARKIERUNG
0310 *
0320 IF RETURN-CODE EQ 0
0330         WRITE 'Das Buero 'AKTUELLER-BUERONAME' ist
0340                 zum Umbenennen markiert '
0350 ELSE
0360         WRITE 'Return-code' RETURN-CODE
0370 END-IF
0380 *
0390 END