Z-MOD05C

Dieses Dokument behandelt die folgenden Themen:


Beschreibung

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

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    

Return-Codes

00 Erfolg
02 Ungültiger Büroname
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

Subprogramme

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

Beispiel

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