Z-MOD05F

This document covers the following topics:


Description

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.

Parameters

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.

Return Codes

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
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

Subprograms

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

Example

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