PROCEDURE alter_access_modes (
  status)

"  This procedure is executed after the installation of
"  $system.software_maintenance.raf$library.  This code
"  alters the access modes of some NOS/VE product files
"  to prevent sites from copying software for which they
"  are not licensed.

VAR
  ignore_status:  status
  version_catalogs : list of file = ()
  version_catalog_names : list of name = ()
  version : name
VAREND

" The CDCNET TIPS residing in the version catalog need to
" have the read permits deleted from all version catalogs
" that exist.

version_catalogs = $wild_card_files($system.cdcnet.version_* include_catalogs)
version_catalogs = $difference(version_catalogs $system.cdcnet.version_independent)
version_catalog_names = $apply(version_catalogs $name($path(x last)))

FOR EACH version IN version_catalog_names DO

  "bisync_3270_tip
  create_file_permit f=$system.cdcnet//version.di_products.bisync_3270_tip g=public am=execute status=ignore_status

  "high_speed_hdlc
  create_file_permit f=$system.cdcnet//version.di_products.high_speed_hdlc g=public am=execute status=ignore_status

  "mode_4_tip
  create_file_permit f=$system.cdcnet//version.di_products.mode4_tip g=public am=execute  status=ignore_status

  "monitor_tools
  create_file_permit f=$system.cdcnet//version.di_products.monitor_tools g=public am=execute status=ignore_status

  "cdcnet_network_validation
  create_file_permit f=$system.cdcnet//version.di_products.cdcnet_network_validation g=public am=execute ..
    status=ignore_status

  "service_access_control
  create_file_permit f=$system.cdcnet//version.di_products.service_access_control g=public am=execute ..
    status=ignore_status

  "terminal_passthrough
  create_file_permit f=$system.cdcnet//version.di_products.terminal_passthrough g=public am=execute ..
    status=ignore_status

  "tcp_ip_tip
  create_file_permit f=$system.cdcnet//version.di_products.tcp_ip_tip g=public am=execute ..
    status=ignore_status

  "cdcnet_tp0_cons
  create_file_permit f=$system.cdcnet//version.di_products.cdcnet_tp0_cons g=public am=execute ..
    status=ignore_status

  "x29_pad_server
  create_file_permit f=$system.cdcnet//version.di_products.x29_pad_server g=public am=execute ..
    status=ignore_status

  "x25_terminal_gateway
  create_file_permit f=$system.cdcnet//version.di_products.x25_terminal_gateway g=public am=execute ..
    status=ignore_status

FOREND

"cdcnet netcu
create_file_permit f=$system.cdcnet.netcu.bound_product g=public am=execute status=ignore_status

"nis
create_file_permit f=$system.tcp_ip.onc.yp_library g=public am=execute status=ignore_status

"nqs
create_file_permit f=$system.nqs.nqf$bound_66d g=public am=execute status=ignore_status
create_file_permit f=$system.nqs.nqf$bound_6dd g=public am=execute status=ignore_status

"tcp_ip_host
create_file_permit f=$system.tcp_ip.ftp_bound_product g=public am=execute status=ignore_status
create_file_permit f=$system.tcp_ip.inetd_bound_product g=public am=execute status=ignore_status
create_file_permit f=$system.tcp_ip.manta_bound_product g=public am=execute status=ignore_status
create_file_permit f=$system.tcp_ip.smtp_bound_product g=public am=execute status=ignore_status
create_file_permit f=$system.tcp_ip.lpd_bound_product g=public am=execute status=ignore_status

"rexec
create_file_permit f=$system.tcp_ip.rexec_bound_product g=public am=execute status=ignore_status

"tftp_ve
create_file_permit f=$system.tcp_ip.tftp_bound_product g=public am=execute  status=ignore_status

"accounting_analysis_system
create_file_permit f=$system.accounting_analysis_system.avf$bound_aas_34d_library g=public am=execute status=ignore_status
create_file_permit f=$system.accounting_analysis_system.avf$bound_aas_3dd_library g=public am=execute status=ignore_status

"accounting_utilities
create_file_permit f=$system.accounting_and_validation.avf$bound_33d_library g=public am=execute  status=ignore_status
create_file_permit f=$system.accounting_and_validation.avf$bound_3dd_library g=public am=execute  status=ignore_status

"ada
create_file_permit f=$system.ada.bound_product g=public am=execute status=ignore_status

"apl
create_file_permit f=$system.apl.bound_product g=public am=execute status=ignore_status

"archive_ve_queue_manager
create_file_permit f=$system.archive_ve.bound_36d_library g=public am=execute status=ignore_status
create_file_permit f=$system.archive_ve.bound_3dd_library g=public am=execute status=ignore_status

"assembler_ve
create_file_permit f=$system.assemble.bound_product g=public am=execute  status=ignore_status

"audit
create_file_permit f=$system.audit.osf$audit_library g=public am=execute status=ignore_status

"basic
create_file_permit f=$system.basic.bound_product g=public am=execute status=ignore_status

"cobol
create_file_permit f=$system.cobol.bound_product g=public am=execute status=ignore_status

"cybil
create_file_permit f=$system.cybil.bound_product g=public am=execute status=ignore_status

"cybilir
create_file_permit f=$system.cybilir.bound_product g=public am=execute status=ignore_status

"cv2
create_file_permit f=$system.cv2.bound_product g=public am=execute status=ignore_status

"data_encryption
create_file_permit f=$system.data_encryption.edf$bound_des_3dd_library g=public am=execute status=ignore_status

"dx_access_method
create_file_permit f=$system.dx.dx_bound_product g=public am=execute status=ignore_status

"fortran_version_1
create_file_permit f=$system.fortran.bound_product g=public am=execute status=ignore_status

"fortran_version_2
create_file_permit f=$system.fortran_version_2.bound_product g=public am=execute status=ignore_status

"ftam
create_file_permit f=$system.ftam.bound_product g=public am=execute status=ignore_status

"im_control
create_file_permit f=$system.control.bound_product g=public am=execute status=ignore_status

"im_fast
create_file_permit f=$system.fast.bound_product g=public am=execute status=ignore_status

"im_quick
create_file_permit f=$system.quick.bound_product g=public am=execute status=ignore_status

"im_smart
create_file_permit f=$system.smart.bound_product g=public am=execute status=ignore_status

"language_services
create_file_permit f=$system.lsf$lis_3dd_library g=public am=execute status=ignore_status

"lisp
create_file_permit f=$system.lisp.bound_product g=public am=execute  status=ignore_status

"network_archiving
create_file_permit f=$system.tcp_ip.netarc.command_66b_library g=public am=execute status=ignore_status

"network_validation
create_file_permit f=$system.network_validation.netval_bound_product g=public am=execute status=ignore_status

"network_transfer_facility
create_file_permit f=$system.network_transfer_facility.bound_product g=public am=execute status=ignore_status

"pascal
create_file_permit f=$system.pascal.bound_product g=public am=execute status=ignore_status

"ppe
create_file_permit f=$system.ppe.bound_product g=public am=execute status=ignore_status

"prolog
create_file_permit f=$system.prolog.bound_product g=public am=execute status=ignore_status

"ptf_qtf
create_file_permit f=$system.ptf_qtf.osf$user_file_transfer g=public am=execute status=ignore_status

"eta_rhfam
create_file_permit f=$system.rhfam.eta_access.bound_product g=public am=execute status=ignore_status

"rhfam
create_file_permit f=$system.rhfam.microcode_c180 g=public am=execute status=ignore_status

"rms
create_file_permit f=$system.rsf$bound_product_333 g=public am=execute status=ignore_status
create_file_permit f=$system.rsf$bound_product_46d g=public am=execute status=ignore_status
create_file_permit f=$system.rsf$bound_product_4dd g=public am=execute status=ignore_status
create_file_permit f=$system.rsf$bound_library_4dd g=public am=execute status=ignore_status

"sdf
create_file_permit f=$system.sdf.bound_product g=public am=execute status=ignore_status

"snap
create_file_permit f=$system.snap.libsnap g=public am=execute status=ignore_status

"xtf
create_file_permit f=$system.xtf.bound_product g=public am=execute status=ignore_status

"x_windows
create_file_permit f=$system.x11r4.bin.uil g=public am=execute status=ignore_status

PROCEND alter_access_modes
