1 :Info: translate_aim_attributes_:  1983-01-24  translate_aim_attributes_
 2 
 3 
 4 Entry points in translate_aim_attributes_:
 5    (List is generated by the help command)
 6 
 7 
 8 :Entry: translate_aim_attributes_: 1983-01-19  translate_aim_attributes_
 9 
10 
11 Function: translates the AIM attributes in an authorization or access
12 class from one system's defintion to another system's definition if
13 possible.
14 
15 
16 Syntax:
17 declare translate_aim_attributes_ entry (ptr, bit(72) aligned, ptr,
18      bit(72) aligned, fixed bin(35));
19 call translate_aim_attributes_ (source_aim_attributes_ptr,
20      source_authorization, target_aim_attributes_ptr,
21      target_aim_authorization, code);
22 
23 
24 Arguments:
25 source_aim_attributes_ptr
26    is a pointer to the aim_attributes structure defining the AIM
27    attributes of the source system.  (Input) This structure is declared
28    in aim_attributes.incl.pl1.
29 source_aim_authorization
30    is the access class or authorization expressed to be translated to
31    the equivalent value on the target system.  (Input)
32 target_aim_attributes_ptr
33    is a pointer to the aim_attributes structure defining the AIM
34    attributes of the target system.  (Input)
35 target_aim_authorization
36    is set to the access class or authorization on the target system
37    which is equivalent to the value given on the source system.
38    (Output)
39 
40 
41 code
42    is a standard system status code.  (Output) It can be one of the
43    following:
44    0
45       the authorization or access class was successfully translated.
46    error_table_$unimplemented_version
47       one of the aim_attributes structures supplied by the caller was
48       of a version not supported by this procedure.
49    error_table_$ai_no_common_max
50       there is no set of AIM attributes in common between the two
51       systems.
52    error_table_$ai_outside_common_range
53       the source access class or authorization is not less than or
54       equal to the common access class ceiling between the two systems.
55 
56 
57 Notes: See the description of the get_system_aim_attributes_
58 subroutine for a definition of the aim_attributes structure.
59 
60 The translation of AIM attributes can only be performed for an
61 authorization or access class that is less than or equal to the common
62 access ceiling between the two systems.  See the Programmers' Reference
63 Manual for a definition of common access ceiling.
64 
65 
66 :hcom:
67 
68 
69 
70 /****^  HISTORY COMMENTS:
71   1) change(2020-05-19,GDixon), approve(2021-02-22,MCR10088),
72      audit(2021-05-27,Swenson), install(2021-05-27,MR12.6g-0056):
73      Fix info seg format errors and typos found by verify_info.
74                                                    END HISTORY COMMENTS */
75 
76 
77