1 &
2 & EXEC_COM TO ASSIST THE SYSTEM ADMINISTRATOR AND SYSTEM SECURITY
3 & ADMINISTRATOR IN ASSIGNING AND CHANGING AUTHORIZATIONS AND AUDIT FLAGS.
4 &
5 & Written 750605 by PG
6 &
7 &command_line off
8 &goto &1
9
10 &label change_proj_auth
11 admin_util lock
12 set_sat_auth &2 "&3"
13 &goto check_for_install_sat
14
15 &label change_pers_auth
16 admin_util lock
17 set_pnt_auth &2 "&3"
18 &goto check_for_install_pnt
19
20 &label change_proj_audit
21 admin_util lock
22 set_sat_audit &2 "&3"
23 &goto check_for_install_sat
24
25 &label change_pers_audit
26 admin_util lock
27 set_pnt_audit &2 "&3"
28 &goto check_for_install_pnt
29
30 &label change_gpw
31 admin_util lock
32 set_pnt_gpw &2 &3
33 &goto check_for_install_pnt
34
35 &
36 & Routines above this point transfer here to ask if the table should be
37 & installed.
38 &
39
40 &label check_for_install_pnt
41 &if equal query Install? true &then install PNT.pnt -auth
42 admin_util unlock
43 &quit
44
45 &label check_for_install_sat
46 &if equal query Install? true &then install smf.cur.sat -auth
47 admin_util unlock
48 &quit
49
50 &
51 & These routines require no interlocking, nor installing.
52 &
53
54 &label change_term_class
55 set_term_class &2 "&3"
56 &quit
57
58 &label change_term_id
59 set_term_id &2 "&3"
60 &quit
61
62 &label change_term_audit
63 set_term_audit &2 &3
64 &quit
65
66 &
67 & This section prints authorizations and audit flags.
68 &
69
70 &label print_pers_auth
71 &label print_pers_audit
72 print_pnt >system_control_1>pnt &2
73 &quit
74
75 &label print_proj_auth
76 &label print_proj_audit
77 print_sat >system_control_1>sat &2
78 &quit
79
80 &label print_term_class
81 &label print_term_id
82 &label print_term_audit
83 print_term_info &2
84 &quit
85
86 &label &1
87 &print ERROR: Unknown action "&1". Legal commands are:
88 &print exec_com ssa_ops change_proj_auth PROJ AUTH
89 &print exec_com ssa_ops change_pers_auth PERSON AUTH
90 &print exec_com ssa_ops change_proj_audit PROJ AUDIT
91 &print exec_com ssa_ops change_pers_audit PERSON AUDIT
92 &print exec_com ssa_ops change_gpw PERSON on|off
93 &print exec_com ssa_ops change_term_class TERMINAL ACCESS_CLASS
94 &print exec_com ssa_ops change_term_id TERMINAL ID
95 &print exec_com ssa_ops change_term_audit TERMINAL on|off
96 &print exec_com ssa_ops print_pers_auth PERSON
97 &print exec_com ssa_ops print_proj_auth PROJECT
98 &print exec_com ssa_ops print_pers_audit PERSON
99 &print exec_com ssa_ops print_proj_audit PROJECT
100 &print exec_com ssa_ops print_term_class TERMINAL
101 &print exec_com ssa_ops print_term_id TERMINAL
102 &print exec_com ssa_ops print_term_audit TERMINAL
103 &quit