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