1 03/31/83  cv_mode_
 2 
 3 
 4 Entry points in cv_mode_:
 5    (List is generated by the help command)
 6 
 7 
 8 :Entry: cv_mode_: 02/01/83  cv_mode_
 9 
10 
11 Function:   converts a character string containing access
12 modes for segments into a bit string used by the ACL entries.
13 
14 
15 Syntax:
16 declare cv_mode_ entry(char(*), bit(*), fixed bin(35));
17 call cv_mode_ (char_modes, bit_modes, code);
18 
19 
20 Arguments:
21 char_modes
22    are the character string access modes.  (Input)
23 bit_modes
24    are the bit string access modes.  (Output)
25 code
26    is a standard status code.  (Output) It can be:
27    error_table_$bad_acl_mode
28       if char_mode contains an invalid segment access mode character.
29 
30 
31 Notes:
32 If char_modes is "null" or "n", bit_modes is set to "0"b.  The mode
33 characters in char_modes may occur in any order.  Spaces are ignored.
34 The following table indicates what bit in bit_modes is turned on when
35 the access mode character is found.
36 
37      Access Mode     Bit in bit_modes
38      -----------     ----------------
39           r                  1
40           e                  2
41           w                  3
42 
43 
44 These values are declared in access_mode_values.incl.pl1.