This document covers the following topics:
Display the cabinet profile of a specific member of a shared cabinet.
This subprogram can be used only by a supervisor or cabinet administrator.
To get the ISN for the wanted shared cabinet, you can invoke Z-DIS17C 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 | O | X | Input -1: no ET. |
| 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 shared cabinet for which you want to display the members. Either Cabinet-name or Cabinet-ISN, not both. | |
| Cabinet-ISN | P10 | R* | The ISN of the shared cabinet for which you want to display the members. Either Cabinet-ISN or Cabinet-name, not both. | |
| Member-name | A8 | R | The cabinet name of the member. | |
| Profile-type | A1 | X | 1=shared cabinet profile, 2=private cabinet profile, 3=special profile. | |
| 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 | A8 | 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). | |
| 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. | |
| 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 |
| 30 | Shared cabinet name invalid |
| 53 | Requested object does not exist |
| 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
*
* Example program to return the cabinet profile of a specific member
* of a shared cabinet.
*
DEFINE DATA
LOCAL
1 RETURN-CODE (N2)
1 CABINET (A8)
1 PASSWORD (A8)
1 CABINET-NAME (A8)
1 CABINET-ISN (P10)
1 MEMBER-NAME (A8)
1 PROFILE-TYPE (A1)
1 SECURITY-FLAGS (A4)
1 REDEFINE SECURITY-FLAGS
2 SECURITY-READ (A1)
2 SECURITY-MODIFY (A1)
2 SECURITY-COPY (A1)
2 SECURITY-PRINT (A1)
1 SEND-MAXIMUM (N4)
1 ADDRESS-LEVEL (N1)
1 SEND-PLUS (N1)
1 ALLOW-FLAGS (A8)
1 REDEFINE ALLOW-FLAGS
2 COMMAND-PROMPT (A1)
2 CON-FORM (A1)
2 TEXT-RETRIEVAL (A1)
2 MODIFY-OWN-ADDRESS (A1)
2 DISPLAY-HOME-ADDRESS (A1)
2 SEND-EXTERNAL-MAIL (A1)
2 MODIFY-EXPIRATION-DATE (A1)
2 READ-MAIL (A1)
*
END-DEFINE
*
RESET RETURN-CODE
MOVE 'CABINET' TO CABINET
MOVE 'PASSWORD' TO PASSWORD
MOVE 'SHAR-CAB' TO CABINET-NAME
MOVE 'MEMBER' TO MEMBER-NAME
*
CALLNAT 'Z-DIS17F' RETURN-CODE
CABINET
PASSWORD
CABINET-NAME
CABINET-ISN
MEMBER-NAME
PROFILE-TYPE
SECURITY-FLAGS
SEND-MAXIMUM
ADDRESS-LEVEL
SEND-PLUS
ALLOW-FLAGS
*
IF RETURN-CODE EQ 0
WRITE 'Shared Cabinet Name:' CABINET-NAME (AD=I) /
'Shared Cabinet ISN: ' CABINET-ISN (EM=ZZZZZZZZZ9 AD=I) //
'Member Name: ' MEMBER-NAME (AD=I) /
'Profile Type:' PROFILE-TYPE (AD=I) //
'Security:' (AD=I) 3X
'Read' SECURITY-READ (AD=I) 3X
'Modify' SECURITY-MODIFY (AD=I) 3X
'Copy' SECURITY-COPY (AD=I) 3X
'Print' SECURITY-PRINT (AD=I) //
'Send:' (AD=I) 7X
'Max. Number of Addressees' SEND-MAXIMUM (AD=I) /
25T 'Address Level' ADDRESS-LEVEL (AD=I)
'may send' SEND-PLUS (AD=I) 'levels higher' //
'Permitted:' (AD=I)
16X COMMAND-PROMPT (AD=I) 'Command Prompting' /
'(mark to allow)'
11X CON-FORM (AD=I) 'CON-FORM' /
27T TEXT-RETRIEVAL (AD=I) 'Text Retrieval (TRS)' /
27T MODIFY-OWN-ADDRESS (AD=I) 'Modify Own Address' /
27T DISPLAY-HOME-ADDRESS (AD=I) 'Display Home Addresses' /
27T SEND-EXTERNAL-MAIL (AD=I) 'Send External Mail' /
27T MODIFY-EXPIRATION-DATE (AD=I) 'Modify Expiration Date' /
27T READ-MAIL (AD=I) 'Read Mail' /
ELSE
WRITE 'Return Code' RETURN-CODE
END-IF
*
END