This document covers the following topics:
Modify the screen colors in the user profile of a specific cabinet.
This subprogram can be used only by a supervisor or cabinet administrator. It is not possible to use this subprogram to modify the user profile of the cabinet SYSCNT.
To get the ISN for the wanted cabinet, you can invoke either Z-ADD05 or Z-DIS05 prior to this subprogram.
Parameters which are not completed in the parameter list are deleted from the user profile. Thus, to retain the existing values, you must specify them once more before you invoke this subprogram.
Successful termination of Z-MOD05C always results in an END TRANSACTION. You are not able to control transaction handling.
| Parameter | Format | In | Out | Remarks |
|---|---|---|---|---|
| Return-code | N2 | X | ||
| Cabinet | A8 | R | The cabinet ID of a supervisor or cabinet administrator. | |
| Password | A8 | R | The password of the above cabinet. | |
| Cabinet-name | A8 | R* | The name of the cabinet to be modified. Either Cabinet-name or Cabinet-ISN, not both. | |
| Cabinet-ISN | P8 | R* | The ISN of the cabinet to be modified. Either Cabinet-ISN or Cabinet-name, not both. | |
| Colors | N6 | R | 1=Blue, 2=Green, 3=Neutral, 4=Pink, 5=Red, 6=Turquoise, and 7=Yellow. Redefining colors allows the user to specify the color for a particular field type. | |
| Redefine Colors | ||||
| Normal-text | N1 | R | ||
| Intense-text | N1 | R | ||
| Normal-input | N1 | R | ||
| Intense-input | N1 | R | ||
| Normal-output | N1 | R | ||
| Intense-output | N1 | R | ||
| 00 | Success |
| 02 | Invalid cabinet name or - in batch mode only - locked cabinet |
| 03 | Password incorrect |
| 08 | Supply either ISN or name, not both |
| 15 | Invalid administrator status |
| 91 | Supply Cabinet-name or Cabinet-ISN |
| 93 | Valid range for color is 1 to 7 |
| 96 | Cabinet-name is not valid |
| 97 | Cabinet-ISN is not valid |
| 99 | Cabinet SYSCNT cannot be modified |
Z-120
Z-122
Z-123
Z-1200&0
0010 DEFINE DATA 0020 LOCAL 0030 1 RETURN-CODE (N2) 0040 1 CABINET (A8) 0050 1 PASSWORD (A8) 0060 1 CABINET-NAME (A8) 0070 1 CABINET-ISN (P8) 0080 1 COLORS (N6) 0090 1 REDEFINE COLORS 0100 2 NORMAL-TEXT (N1) 0110 2 INTENSE-TEXT (N1) 0120 2 NORMAL-INPUT (N1) 0130 2 INTENSE-INPUT (N1) 0140 2 NORMAL-OUTPUT (N1) 0150 2 INTENSE-OUTPUT (N1) 0160 END-DEFINE 0170 * 0180 RESET RETURN-CODE 0190 MOVE 'CABINET' TO CABINET 0200 MOVE 'PASSWORD' TO PASSWORD 0210 MOVE 'CAB-NAME' TO CABINET-NAME 0220 MOVE 331335 TO COLORS 0230 * 0240 CALLNAT 'Z-MOD05C' 0250 RETURN-CODE 0260 CABINET 0270 PASSWORD 0280 CABINET-NAME 0290 CABINET-ISN 0300 COLORS 0310 IF RETURN-CODE = 0 0320 WRITE 'CABINET WAS MODIFIED' 0330 ELSE 0340 WRITE 'RETURN CODE' RETURN-CODE 0350 END-IF 0360 END