Dieses Dokument behandelt die folgenden Themen:
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 | 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. |
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 |
Z-122
Z-120
Z-123
Z-1200&0
Z-MPPNM
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