Dieses Dokument behandelt die folgenden Themen:
Die Bildschirmfarben im Teilnehmerprofil eines bestimmten Büros ändern.
Dieses Subprogramm kann nur von einem Supervisor oder Büroadministrator benutzt werden. Das Teilnehmerprofil des Büros SYSCNT kann mit diesem Subprogramm nicht geändert werden.
Um die ISN des gewünschten Büros auszugeben, können Sie vor dem Aufruf dieses Subprogramms entweder Z-ADD05 oder Z-DIS05 aufrufen.
Die Parameter, die nicht mit Werten gefüllt werden, werden aus dem Teilnehmerprofil gelöscht. Um die bestehenden Werte beizubehalten, müssen Sie sie daher vor dem Aufruf dieses Subprogramms erneut angeben.
Nach der erfolgreichen Ausführung von Z-MOD05C erfolgt immer ein END TRANSACTION. Sie können die Transaktionsverarbeitung nicht kontrollieren.
| 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 des Büros, in dem das Profil geändert werden soll. Entweder Bueroname oder Buero-ISN, nicht beides. | |
| Buero-ISN | P8 | E* | Die ISN des Büros, in dem das Profil geändert werden soll. Entweder Buero-ISN oder Bueroname, nicht beides. | |
| Farben | N6 | E | 1=Blau, 2=Grün, 3=Neutral, 4=Rosa, 5=Rot, 6=Türkis, 7=Gelb. Durch das Umdefinieren der Farben können Sie die Farben für die verschiedenen Feldtypen definieren. | |
| Redefine Farben | ||||
| Normaler-Text | N1 | E | ||
| Intensivierter-Text | N1 | E | ||
| Normale-Eingabe | N1 | E | ||
| Intensivierte-Eingabe | N1 | E | ||
| Normale-Ausgabe | N1 | E | ||
| Intensivierte-Ausgabe | N1 | E | ||
| 00 | Erfolg |
| 02 | Ungültiger Büroname oder - nur im Batch-Betrieb - Büro gesperrt |
| 03 | Falsches Passwort |
| 08 | Geben Sie entweder ISN oder Name ein - nicht beides |
| 15 | Ungültiger Administratorstatus |
| 91 | Geben Sie Bueroname oder Buero-ISN ein |
| 93 | Gültige Werte für die Farben sind 1 bis 7 |
| 96 | Angabe im Parameter Bueroname ist ungültig |
| 97 | Ungültige Buero-ISN |
| 99 | Das Büro SYSCNT darf nicht geändert werden |
Z-120
Z-122
Z-123
Z-1200&0
0010 * Beispielprogramm zum Aendern der Bildschirmfarben 0020 * in einem Teilnehmerprofil 0030 * 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 BUERO-ISN (P8) 0120 1 FARBEN (N6) 0130 1 REDEFINE FARBEN 0140 2 NORMALER-TEXT (N1) 0150 2 INTENSIVIERTER-TEXT (N1) 0160 2 NORMALE-EINGABE (N1) 0170 2 INTENSIVIERTE-EINGABE (N1) 0180 2 NORMALE-AUSGABE (N1) 0190 2 INTENSIVIERTE-AUSGABE (N1) 0200 END-DEFINE 0210 * 0220 RESET RETURN-CODE 0230 MOVE 'BUERO' TO BUERO 0240 MOVE 'PASSWORT' TO PASSWORT 0250 MOVE 'B-NAME' TO BUERONAME 0260 MOVE 331335 TO FARBEN 0270 * 0280 CALLNAT 'Z-MOD05C' 0290 RETURN-CODE 0300 BUERO 0310 PASSWORT 0320 BUERONAME 0330 BUERO-ISN 0340 FARBEN 0350 * 0360 IF RETURN-CODE = 0 0370 WRITE 'Buero wurde geaendert' 0380 ELSE 0390 WRITE 'Return-Code' RETURN-CODE 0400 END-IF 0410 * 0420 END