This document covers the following topics:
Display the cabinet profile of a specific cabinet.
This subprogram can be used only by a supervisor or cabinet administrator.
To get the ISN for the wanted cabinet, you can invoke either Z-ADD05 or Z-DIS05 prior to this subprogram. To modify the cabinet profile, you can invoke Z-MOD05F after this subprogram.
| 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 displayed. Either Cabinet-name or Cabinet-ISN, not both. | |
| Cabinet-ISN | P8 | R* | The ISN of the cabinet to be displayed. Either Cabinet-ISN or Cabinet-name, not both. | |
| Security-flags | A4 | X | See the redefinition below. | |
| Redefine Security-flags | ||||
| Security-read | A1 | X | The security level for Read. A value between 0 and 9. | |
| Security-modify | A1 | X | The security level for Modify. A value between 0 and 9. | |
| Security-copy | A1 | X | The security level for Copy. A value between 0 and 9. | |
| Security-print | A1 | X | The security level for Print. A value between 0 and 9. | |
| Send-maximum | N4 | X | The maximum number of addressees to whom an object can be sent during one Send operation. Values 1 to 9999. | |
| Address-level | N1 | X | The address level establishes limitations for the Send function. A value between 0 and 9. | |
| Send-plus | N1 | X | The number of levels higher to which the user is allowed to send mail. A value between 0 and 9. | |
| Allow-flags | A12 | X | See the redefinition below. | |
| Redefine Allow-flags | ||||
| Command-prompt | A1 | X | If marked, a window appears, if a faulty or ambiguous command is entered. | |
| Con-form | A1 | X | If marked, Con-form can be used. | |
| Text-Retrieval | A1 | X | If marked, Con-nect Text Retrieval can be used (if installed). | |
| Proofreader | A1 | X | Con-nect Proofreader is no longer supported. | |
| Modify-own-address | A1 | X | If marked, the user can change the own work or home address. | |
| Display-home-address | A1 | X | If marked, the user can display the home address of any user (including the user's own address). | |
| Send-external-mail | A1 | X | If marked, the user can send mail to external nodes such as Telex or SNADS. | |
| Modify-expiration-date | A1 | X | If marked, the user can change the expiration date of an object. | |
| Read-mail | A1 | X | If marked, the user can read mail in the user's own Inbasket. | |
| Filler | A3 | X | For future use. | |
| 00 | Success |
| 02 | Invalid cabinet name |
| 03 | Password incorrect |
| 08 | Supply either ISN or name, not both |
| 15 | Invalid administrator status |
| 91 | Supply Cabinet-name or Cabinet-ISN |
| 96 | Cabinet-name is not valid |
| 97 | Cabinet-ISN is not valid |
Z-120
Z-122
Z-123
Z-1200&0
0010 * 0020 * Example program to display 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 * 0390 CALLNAT 'Z-DIS05F' 0400 RETURN-CODE 0410 CABINET 0420 PASSWORD 0430 CABINET-NAME 0440 CABINET-ISN 0450 SECURITY-FLAGS 0460 SEND-MAXIMUM 0470 ADDRESS-LEVEL 0480 SEND-PLUS 0490 ALLOW-FLAGS 0500 * 0510 IF RETURN-CODE = 0 0520 DISPLAY CABINET-NAME SECURITY-FLAGS SEND-MAXIMUM ADDRESS-LEVEL 0530 SEND-PLUS ALLOW-FLAGS 0540 ELSE 0550 WRITE 'Return code' RETURN-CODE 0560 END-IF 0570 * 0580 END