This document covers the following topics:
Modify the cabinet 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 cabinet 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 cabinet profile. Thus, to retain the existing values, you must specify them once more before you invoke this subprogram.
Successful termination of Z-MOD05F 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. | |
| Security-flags | A4 | R | See the redefinition below. | |
| Redefine Security-flags | ||||
| Security-read | A1 | R | The security level for Read. A value between 0 and 9. | |
| Security-modify | A1 | R | The security level for Modify. A value between 0 and 9. | |
| Security-copy | A1 | R | The security level for Copy. A value between 0 and 9. | |
| Security-print | A1 | R | The security level for Print. A value between 0 and 9. | |
| Send-maximum | N4 | R | The maximum number of addressees to whom an object can be sent during one Send operation. Values 1 to 9999. | |
| Address-level | N1 | O | The address level establishes limitations for the Send function. A value between 0 and 9. The sum of Address-level and Send-plus must not be greater than 9. | |
| Send-plus | N1 | O | The number of levels higher to which the user is allowed to send mail. A value between 0 and 9. The sum of Send-plus and Address-level must not be greater than 9. | |
| Allow-flags | A12 | O | See the redefinition below. | |
| Redefine Allow-flags | ||||
| Command-prompt | A1 | O | If marked, a window appears, if a faulty or ambiguous command is entered. | |
| Con-form | A1 | O | If marked, Con-form can be used. | |
| Text-Retrieval | A1 | O | If marked, Con-nect Text Retrieval can be used (if installed). | |
| Proofreader | A1 | O | Con-nect Proofreader is no longer supported. | |
| Modify-own-address | A1 | O | If marked, the user can change the own work or home address. | |
| Display-home-address | A1 | O | If marked, the user can display the home address of any user (including the user's own address). | |
| Send-external-mail | A1 | O | If marked, the user can send mail to external nodes such as Telex or SNADS. | |
| Modify-expiration-date | A1 | O | If marked, the user can change the expiration date of an object. | |
| Read-mail | A1 | O | If marked, the user can read mail in the user's own Inbasket. | |
| Filler | A3 | O | For future use. | |
| 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 |
| 92 | Invalid value for Send-maximum, must be greater than 0 |
| 93 | Enter numeric values |
| 94 | Combining Address-level and Send-plus must not be greater than 9 |
| 95 | Values must not be higher than system values |
| 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 * 0020 * Example program to modify the cabinet profile of a user 0030 * 0040 * 0050 DEFINE DATA 0060 LOCAL 0070 1 RETURN-CODE (N2) 0080 1 CABINET (A8) 0090 1 PASSWORD (A8) 0100 1 CABINET-NAME (A8) 0110 1 CABINET-ISN (P8) 0120 1 SECURITY-FLAGS (A4) 0130 1 REDEFINE SECURITY-FLAGS 0140 2 SECURITY-READ (A1) 0150 2 SECURITY-MODIFY (A1) 0160 2 SECURITY-COPY (A1) 0170 2 SECURITY-PRINT (A1) 0180 1 SEND-MAXIMUM (N4) 0190 1 ADDRESS-LEVEL (N1) 0200 1 SEND-PLUS (N1) 0210 1 ALLOW-FLAGS (A12) 0220 1 REDEFINE ALLOW-FLAGS 0230 2 COMMAND-PROMPT (A1) 0240 2 CON-FORM (A1) 0250 2 TEXT-RETRIEVAL (A1) 0260 2 PROOFREADER (A1) 0270 2 MODIFY-OWN-ADDRESS (A1) 0280 2 DISPLAY-HOME-ADDRESS (A1) 0290 2 SEND-EXTERNAL-MAIL (A1) 0300 2 MODIFY-EXPIRATION-DATE (A1) 0310 2 READ-MAIL (A1) 0320 END-DEFINE 0330 * 0340 RESET RETURN-CODE 0350 MOVE 'CABINET' TO CABINET 0360 MOVE 'PASSWORD' TO PASSWORD 0370 MOVE 'CAB-NAME' TO CABINET-NAME 0380 MOVE '3' TO SECURITY-READ 0390 MOVE '3' TO SECURITY-MODIFY 0400 MOVE '3' TO SECURITY-COPY 0410 MOVE '3' TO SECURITY-PRINT 0420 MOVE 5 TO SEND-MAXIMUM 0430 MOVE 5 TO ADDRESS-LEVEL 0440 MOVE 1 TO SEND-PLUS 0450 MOVE 'X' TO COMMAND-PROMPT 0460 MOVE 'X' TO CON-FORM 0470 MOVE 'X' TO TEXT-RETRIEVAL 0480 MOVE 'X' TO PROOFREADER 0490 MOVE 'X' TO MODIFY-OWN-ADDRESS 0500 MOVE 'X' TO DISPLAY-HOME-ADDRESS 0510 MOVE 'X' TO SEND-EXTERNAL-MAIL 0520 MOVE 'X' TO MODIFY-EXPIRATION-DATE 0530 MOVE 'X' TO READ-MAIL 0540 * 0550 CALLNAT 'Z-MOD05F' 0560 RETURN-CODE 0570 CABINET 0580 PASSWORD 0590 CABINET-NAME 0600 CABINET-ISN 0610 SECURITY-FLAGS 0620 SEND-MAXIMUM 0630 ADDRESS-LEVEL 0640 SEND-PLUS 0650 ALLOW-FLAGS 0660 * 0670 IF RETURN-CODE = 0 0680 WRITE 'Cabinet was modified' 0690 ELSE 0700 WRITE 'Return code' RETURN-CODE 0710 END-IF 0720 * 0730 END