Z-MOD17

This document covers the following topics:


Description

Authorize a user to use another private cabinet, or modify the profile of a user who is authorized to use another private cabinet.

Only the user of a private cabinet can be authorized to use another private cabinet.

When a value other than 0 is returned in the parameter Return-code, BACKOUT TRANSACTION is always issued.

Parameters

Parameter Format In Out Remarks
Return-code N2 O X Input -1: no ET.
Cabinet A8 R   The cabinet in which the profile for the authorized user is to be added or modified.
Password A8 R   The password of the above cabinet.
Member A8 R   The user who is to be authorized to use the private cabinet or the user whose profile is to be modified.
Profile A55 R   See the redefinition below.
Redefine Profile
  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.
  Read-mail A1 O   If marked, the user can read mail.
  Reply A1 O   If marked, the user can reply to mail.
  Forward A1 O   If marked, the user can forward mail.
  Send-mail A1 O   If marked, the user can send mail.
  Display-calendar A1 O   If marked, the user can display all calendar entries.
  Modify-calendar A1 O   If marked, the user can act upon all calendar entries.
  Modify-other-items A1 O   If marked, the user can modify all other objects.
  Erase-other-items A1 O   If marked, the user can erase all other objects.
  Display-other-items A1 O   If marked, the user can display all other objects.
  Filler A42 O   For future use.

See the Con-nect User's Guide, section Adding Shared Users to Your Private Cabinet for further information regarding the above parameters.

Return Codes

00 Success
02 Invalid cabinet name
03 Password incorrect
90 Both the member and the cabinet must be private
91 A cabinet cannot be shared with itself
92 Requested member cabinet could not be found
93 Invalid security level

Subprograms

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

Example

0010 *
0020 * Demo program to add a member to a private cabinet, where this member is
0030 * only allowed to display the calendar of the shared private cabinet
0040 *
0050 DEFINE DATA
0060 LOCAL
0070 1 RETURN-CODE       (N2)
0080 1 CABINET           (A8)
0090 1 PASSWORD          (A8)
0100 1 MEMBER            (A8)
0110 1 PROFILE           (A55)
0120 END-DEFINE
0130 *
0140 MOVE 'LS'          TO CABINET
0150 MOVE 'PASSWORD'    TO PASSWORD
0160 MOVE 'ESH'         TO MEMBER
0170 MOVE '6666    X'   TO PROFILE
0180 *
0190 CALLNAT 'Z-MOD17'  RETURN-CODE
0200                    CABINET
0210                    PASSWORD
0220                    MEMBER
0230                    PROFILE
0240 *
0250 IF  RETURN-CODE NE 0
0260     WRITE 'Return code' RETURN-CODE
0270 ELSE
0280     WRITE 'Member was modified/added'
0290 END-IF
0300 *
0310 END