| Here is the Logfile of the failing installation with option K and
$ IF VMI$KIT_DEBUG THEN SET VERIFY set in KITINSTAL.
Customer is still in need of a work around for this problem.
$ @sys$update:vmsinstal
OpenVMS AXP Software Product Installation Procedure V6.2-1H2
It is 16-APR-1997 at 08:15.
Enter a question mark (?) at any time for help.
%VMSINSTAL-W-ACTIVE, The following processes are still active:
ucx$esnmp
ucx$os_mibs
* Do you want to continue anyway [NO]? yes
* Are you satisfied with the backup of your system disk [YES]?
* Where will the distribution volumes be mounted: uriel00:[sjhsys.dtr]
Enter the products to be processed from the first distribution volume set.
* Products: dtraxp071
* Enter installation options you wish to use (none): ,K,
The following products will be processed:
DTRAXP V7.1
Beginning installation of DTRAXP V7.1 at 08:15
%VMSINSTAL-I-RESTORE, Restoring product save set A ...
%VMSINSTAL-I-RELMOVED, Product's release notes have been moved to SYS$HELP.
$!
$!******************************************************
$! SYMBOL DEFINITIONS AND INITIALIZATIONS
$!******************************************************
$!-- generic symbol definition
$ t*rue = 1
$ f*alse = 0
$!
$!-- local dtr$ symbols
$ dtr$v := " "
$ dtr$vaxinfo_install = false
$ dtr$reinstall = false
$!
$!-- global dtr$ symbols
$ dtr$abort_install == false
$ dtr$discontinue_install == false
$ dtr$suffix == ""
$ dtr$registered == false
$ dtr$restore_database == false
$!
$!-- macro commands
$ dtr$say :== write sys$output
$ dtr$type :== type/page sys$input
$!
$!-- input parameters to this procedure
$ dtr$debug == P2
$!
$!-- system parameters
$ dtr$par_disk_space == 50000
$ dtr$par_global_sections == 8
$ dtr$par_global_pages == 5400
$ dtr$par_max_suffix_length == 26
$!
$!-- versions definition
$ dtr$par_vms_version == "1.0"
$ dtr$par_cdd_version == "T5.2"
$ dtr$par_dbms_version == "T5.0"
$ dtr$par_rdb_version == "T5.0"
$ dtr$par_decforms_version == "V1.4"
$ dtr$par_dtr_version == "V7.1"
$ dtr$par_dtr_rel_date == "15-JAN-1996"
$ dtr$par_fms_version == "V2.4"
$!
$!-- DDMF parameters
$ dtr$ddmf_version == "T2.0-3"
$ dtr$ddmf_object == "DDMF"
$ dtr$ddmf_number == 30
$ dtr$ddmf_file_id == "DDMF.COM"
$!
$ dtr$say " "
$ dtr$say " DEC DATATRIEVE V7.1 Installation Procedure"
DEC DATATRIEVE V7.1 Installation Procedure
$ type sys$input
� Digital Equipment Corporation 1982, 1996. All rights reserved.
� Digital Equipment Corporation 1982, 1996. All rights reserved.
$ if dtr$debug then dtr$say "Debug - Entering KITINSTAL.COM @ 16-APR-1997 08:15:54.02"
Debug - Entering KITINSTAL.COM @ 16-APR-1997 08:15:54.02
$!
$!******************************************************
$! check system platform
$!******************************************************
$ if dtr$debug then dtr$say "Debug - Check CPU Architecture"
Debug - Check CPU Architecture
$ if f$getsyi("HW_MODEL") .lt. 1024
$ endif
$!
$ @vmi$kwd:DTRIDENT
$ !
$ ! file: DTRIDENT.COM
$ !
$ DTR$INSTALL_ID :== "DTR071"
$ DTR$INSTALL_VERSION :=="DEC DATATRIEVE V7.1"
$ DTR$IMAGE_ID :=="DEC DTR V7.1"
$ DTR$INSTALL_TYPE :=="FULL"
$!
$ copy/nolog VMI$KWD:VAXINFOINSTALL.COM vmi$root:[sysupd]*.*;
$!
$!------------------------------------------------------------
$! Which kind of Decnet are we using? Phase IV or Phase V?
$!------------------------------------------------------------
$ DECnetPhase = F$GETSYI ("DECNET_VERSION")
$ DECnetPhase = F$EXTRACT (2, 2, DECnetPhase)
$ ncp = "$vmi$root:[sysexe]ncp"
$ ncl = "$vmi$root:[sysexe]ncl"
$!
$ dmu = "$vmi$root:[sysexe]dmu"
$ install = "$vmi$root:[sysexe]install"
$ sysgen = "$vmi$root:[sysexe]sysgen"
$!
$ log = "/nolog"
$ dtr$ == "delete"
$ if f$locate ("/LOG", dtr$) .lt. f$length (dtr$) then $log = "/log"
$!
$ cdd_e_nodnotfnd = 0+%x102bb162
$ search_e_nofile = 0+%x08d7804a
$ search_i_nomatches = 0+%x08d78053
$!
$!
$ if dtr$debug then dtr$say "Debug - KITINSTAL for DTRAXP071 - function is VMI$_INSTALL"
Debug - KITINSTAL for DTRAXP071 - function is VMI$_INSTALL
$!******************************************************
$! DISPATCHING
$!******************************************************
$ if p1 .eqs. "VMI$_INSTALL" then goto INSTALL
$ INSTALL:
$!
$ vmi$callback SET SAFETY YES
$ ! BUILD_IDENT="X61Q-SSB-DH00"
$! Copyright (c) 1996 Digital Equipment Corporation. All rights reserved.
$vmi_id = "X1-023"
$vmi_msg_id = "L004"
$sevms_invseclass = %X22C0
$class_prot = f$getsyi("CLASS_PROT")
$set nocontrol=y
$if f$type(vmi$installing) .eqs. "" then goto STEP_1
$vmi$save_verify = f$verify(vmi$debug)
$exit vmi$_success
$!
$!******************************************************
$! remove logical names
$!******************************************************
$!
$ set message/facility/identification/severity/text
$!
$ if f$trnlnm ("CDD$DEFAULT","LNM$PROCESS",,"EXECUTIVE") .nes. "" then $deassign/process/exec CDD$DEFAULT
$ if f$trnlnm ("CDD$DEFAULT","LNM$JOB",,"EXECUTIVE") .nes. "" then $deassign/job/exec CDD$DEFAULT
$ if f$trnlnm ("CDD$DEFAULT","LNM$GROUP",,"EXECUTIVE") .nes. "" then $deassign/group/exec CDD$DEFAULT
$ if f$trnlnm ("CDD$DEFAULT","LNM$SYSTEM",,"EXECUTIVE") .nes. "" then $deassign/system/exec CDD$DEFAULT
$!
$ if f$trnlnm ("DTRADT","LNM$PROCESS",,"EXECUTIVE") .nes. "" then $deassign/process/exec dtradt
$ if f$trnlnm ("DTRADT","LNM$JOB",,"EXECUTIVE") .nes. "" then $deassign/job/exec dtradt
$ if f$trnlnm ("DTRADT","LNM$GROUP",,"EXECUTIVE") .nes. "" then $deassign/group/exec dtradt
$ if f$trnlnm ("DTRADT","LNM$SYSTEM",,"EXECUTIVE") .nes. "" then $deassign/system/exec dtradt
$!
$ if f$trnlnm ("DTRGUIDE","LNM$PROCESS",,"EXECUTIVE") .nes. "" then $deassign/process/exec dtrguide
$ if f$trnlnm ("DTRGUIDE","LNM$JOB",,"EXECUTIVE") .nes. "" then $deassign/job/exec dtrguide
$ if f$trnlnm ("DTRGUIDE","LNM$GROUP",,"EXECUTIVE") .nes. "" then $deassign/group/exec dtrguide
$ if f$trnlnm ("DTRGUIDE","LNM$SYSTEM",,"EXECUTIVE") .nes. "" then $deassign/system/exec dtrguide
$!
$ if f$trnlnm ("DTRHELP","LNM$PROCESS",,"EXECUTIVE") .nes. "" then $deassign/process/exec dtrhelp
$ if f$trnlnm ("DTRHELP","LNM$JOB",,"EXECUTIVE") .nes. "" then $deassign/job/exec dtrhelp
$ if f$trnlnm ("DTRHELP","LNM$GROUP",,"EXECUTIVE") .nes. "" then $deassign/group/exec dtrhelp
$ if f$trnlnm ("DTRHELP","LNM$SYSTEM",,"EXECUTIVE") .nes. "" then $deassign/system/exec dtrhelp
$!
$ if f$trnlnm ("DTRMSGS","LNM$PROCESS",,"EXECUTIVE") .nes. "" then $deassign/process/exec dtrmsgs
$ if f$trnlnm ("DTRMSGS","LNM$JOB",,"EXECUTIVE") .nes. "" then $deassign/job/exec dtrmsgs
$ if f$trnlnm ("DTRMSGS","LNM$GROUP",,"EXECUTIVE") .nes. "" then $deassign/group/exec dtrmsgs
$ if f$trnlnm ("DTRMSGS","LNM$SYSTEM",,"EXECUTIVE") .nes. "" then $deassign/system/exec dtrmsgs
$!
$ if f$trnlnm ("DTR$SYNONYM","LNM$PROCESS",,"EXECUTIVE") .nes. "" then $deassign/process/exec dtr$synonym
$ if f$trnlnm ("DTR$SYNONYM","LNM$JOB",,"EXECUTIVE") .nes. "" then $deassign/job/exec dtr$synonym
$ if f$trnlnm ("DTR$SYNONYM","LNM$GROUP",,"EXECUTIVE") .nes. "" then $deassign/group/exec dtr$synonym
$ if f$trnlnm ("DTR$SYNONYM","LNM$SYSTEM",,"EXECUTIVE") .nes. "" then $deassign/system/exec dtr$synonym
$!
$ if f$trnlnm ("DTR$STARTUP","LNM$PROCESS",,"EXECUTIVE") .nes. "" then $deassign/process/exec dtr$startup
$ if f$trnlnm ("DTR$STARTUP","LNM$JOB",,"EXECUTIVE") .nes. "" then $deassign/job/exec dtr$startup
$ if f$trnlnm ("DTR$STARTUP","LNM$GROUP",,"EXECUTIVE") .nes. "" then $deassign/group/exec dtr$startup
$ if f$trnlnm ("DTR$STARTUP","LNM$SYSTEM",,"EXECUTIVE") .nes. "" then $deassign/system/exec dtr$startup
$!
$! if f$trnlnm ("DTR$LIBRARY","LNM$PROCESS",,"EXECUTIVE") .nes. "" then $deassign/process/exec dtr$library
$! if f$trnlnm ("DTR$LIBRARY","LNM$JOB",,"EXECUTIVE") .nes. "" then $deassign/job/exec dtr$library
$! if f$trnlnm ("DTR$LIBRARY","LNM$GROUP",,"EXECUTIVE") .nes. "" then $deassign/group/exec dtr$library
$! if f$trnlnm ("DTR$LIBRARY","LNM$SYSTEM",,"EXECUTIVE") .nes. "" then $deassign/system/exec dtr$library
$!
$ if f$trnlnm ("CDD$DEFAULT","LNM$PROCESS",,"SUPERVISOR") .nes. "" then $deassign/process/super CDD$DEFAULT
$ if f$trnlnm ("CDD$DEFAULT","LNM$JOB",,"SUPERVISOR") .nes. "" then $deassign/job/super CDD$DEFAULT
$ if f$trnlnm ("CDD$DEFAULT","LNM$GROUP",,"SUPERVISOR") .nes. "" then $deassign/group/super CDD$DEFAULT
$ if f$trnlnm ("CDD$DEFAULT","LNM$SYSTEM",,"SUPERVISOR") .nes. "" then $deassign/system/super CDD$DEFAULT
$!
$ if f$trnlnm ("DTRADT","LNM$PROCESS",,"SUPERVISOR") .nes. "" then $deassign/process/super dtradt
$ if f$trnlnm ("DTRADT","LNM$JOB",,"SUPERVISOR") .nes. "" then $deassign/job/super dtradt
$ if f$trnlnm ("DTRADT","LNM$GROUP",,"SUPERVISOR") .nes. "" then $deassign/group/super dtradt
$ if f$trnlnm ("DTRADT","LNM$SYSTEM",,"SUPERVISOR") .nes. "" then $deassign/system/super dtradt
$!
$ if f$trnlnm ("DTRGUIDE","LNM$PROCESS",,"SUPERVISOR") .nes. "" then $deassign/process/super dtrguide
$ if f$trnlnm ("DTRGUIDE","LNM$JOB",,"SUPERVISOR") .nes. "" then $deassign/job/super dtrguide
$ if f$trnlnm ("DTRGUIDE","LNM$GROUP",,"SUPERVISOR") .nes. "" then $deassign/group/super dtrguide
$ if f$trnlnm ("DTRGUIDE","LNM$SYSTEM",,"SUPERVISOR") .nes. "" then $deassign/system/super dtrguide
$!
$ if f$trnlnm ("DTRHELP","LNM$PROCESS",,"SUPERVISOR") .nes. "" then $deassign/process/super dtrhelp
$ if f$trnlnm ("DTRHELP","LNM$JOB",,"SUPERVISOR") .nes. "" then $deassign/job/super dtrhelp
$ if f$trnlnm ("DTRHELP","LNM$GROUP",,"SUPERVISOR") .nes. "" then $deassign/group/super dtrhelp
$ if f$trnlnm ("DTRHELP","LNM$SYSTEM",,"SUPERVISOR") .nes. "" then $deassign/system/super dtrhelp
$!
$ if f$trnlnm ("DTRMSGS","LNM$PROCESS",,"SUPERVISOR") .nes. "" then $deassign/process/super dtrmsgs
$ if f$trnlnm ("DTRMSGS","LNM$JOB",,"SUPERVISOR") .nes. "" then $deassign/job/super dtrmsgs
$ if f$trnlnm ("DTRMSGS","LNM$GROUP",,"SUPERVISOR") .nes. "" then $deassign/group/super dtrmsgs
$ if f$trnlnm ("DTRMSGS","LNM$SYSTEM",,"SUPERVISOR") .nes. "" then $deassign/system/super dtrmsgs
$!
$ if f$trnlnm ("DTR$SYNONYM","LNM$PROCESS",,"SUPERVISOR") .nes. "" then $deassign/process/super dtr$synonym
$ if f$trnlnm ("DTR$SYNONYM","LNM$JOB",,"SUPERVISOR") .nes. "" then $deassign/job/super dtr$synonym
$ if f$trnlnm ("DTR$SYNONYM","LNM$GROUP",,"SUPERVISOR") .nes. "" then $deassign/group/super dtr$synonym
$ if f$trnlnm ("DTR$SYNONYM","LNM$SYSTEM",,"SUPERVISOR") .nes. "" then $deassign/system/super dtr$synonym
$!
$ if f$trnlnm ("DTR$STARTUP","LNM$PROCESS",,"SUPERVISOR") .nes. "" then $deassign/process/super dtr$startup
$ if f$trnlnm ("DTR$STARTUP","LNM$JOB",,"SUPERVISOR") .nes. "" then $deassign/job/super dtr$startup
$ if f$trnlnm ("DTR$STARTUP","LNM$GROUP",,"SUPERVISOR") .nes. "" then $deassign/group/super dtr$startup
$ if f$trnlnm ("DTR$STARTUP","LNM$SYSTEM",,"SUPERVISOR") .nes. "" then $deassign/system/super dtr$startup
$!
$! if f$trnlnm ("DTR$LIBRARY","LNM$PROCESS",,"SUPERVISOR") .nes. "" then $deassign/process/super dtr$library
$! if f$trnlnm ("DTR$LIBRARY","LNM$JOB",,"SUPERVISOR") .nes. "" then $deassign/job/super dtr$library
$! if f$trnlnm ("DTR$LIBRARY","LNM$GROUP",,"SUPERVISOR") .nes. "" then $deassign/group/super dtr$library
$! if f$trnlnm ("DTR$LIBRARY","LNM$SYSTEM",,"SUPERVISOR") .nes. "" then $deassign/system/super dtr$library
$!
$!**********************************************************************
$!
$ if dtr$debug
$ then
$ dtr$say "Debug - Finished Phase 1"
Debug - Finished Phase 1
$ dtr$say "Debug - Entering Phase 2 (the CHECKOUT phase)"
Debug - Entering Phase 2 (the CHECKOUT phase)
$ dtr$say "Debug - CONTROL-Y and CONTROL-T disabled during checkout PHASE..."
Debug - CONTROL-Y and CONTROL-T disabled during checkout PHASE...
$ endif
$!
$ set nocontrol=(Y,T)
$!
$ if f$search("vmi$kwd:kinetkit.com") .nes. "" then $@vmi$kwd:kinetkit
$!
$!******************************************************
$! vms version check
$!******************************************************
$ dtr$vms_version == f$getsyi("VERSION")
$ dtr$tmp = f$locate(".",dtr$vms_version)
$ dtr$vms_major_version == f$extract(dtr$tmp - 1,1,dtr$vms_version)
$!
$ if dtr$debug then dtr$say -
"Debug - VMS version: V6.2-1H2 "
Debug - VMS version: V6.2-1H2
$!
$ dtr$hw_name == f$getsyi("HW_NAME")
$ if dtr$debug then dtr$say "Debug - Running on a AlphaServer 2100A 5/300"
Debug - Running on a AlphaServer 2100A 5/300
$!
$ direct_w_nofiles = 0+%x10018290
$!
$ if dtr$reinstall then goto CHECK_CDD_PROT
$!
$ vmi$callback CHECK_VMS_VERSION -
dtr$ -
1.0
$ ! BUILD_IDENT="X61Q-SSB-DH00"
$! Copyright (c) 1996 Digital Equipment Corporation. All rights reserved.
$vmi_id = "X1-023"
$vmi_msg_id = "L004"
$sevms_invseclass = %X22C0
$class_prot = f$getsyi("CLASS_PROT")
$set nocontrol=y
$if f$type(vmi$installing) .eqs. "" then goto STEP_1
$vmi$save_verify = f$verify(vmi$debug)
$exit vmi$_success
$!
$ if dtr$ then goto CHECK_VMS_VERSION_END
$ CHECK_VMS_VERSION_END:
$ if dtr$debug then dtr$say "Debug - Finished VMS version check"
Debug - Finished VMS version check
$!
$!******************************************************
$! disk space check
$!******************************************************
$ vmi$callback CHECK_NET_UTILIZATION -
dtr$ -
50000
$ ! BUILD_IDENT="X61Q-SSB-DH00"
$! Copyright (c) 1996 Digital Equipment Corporation. All rights reserved.
$vmi_id = "X1-023"
$vmi_msg_id = "L004"
$sevms_invseclass = %X22C0
$class_prot = f$getsyi("CLASS_PROT")
$set nocontrol=y
$if f$type(vmi$installing) .eqs. "" then goto STEP_1
$vmi$save_verify = f$verify(vmi$debug)
$exit vmi$_success
$!
$ if dtr$ then goto CHECK_NET_UTILIZATION_END
$CHECK_NET_UTILIZATION_END:
$ if dtr$debug then dtr$say "Debug - Finished net utilization check"
Debug - Finished net utilization check
$!
$!******************************************************
$! check global sections
$!******************************************************
$ vmi$callback PRODUCT -
VAXINFOINSTALL:CHECK_PARAM -
sys -
gblsections -
8 -
F
$ ! BUILD_IDENT="X61Q-SSB-DH00"
$! Copyright (c) 1996 Digital Equipment Corporation. All rights reserved.
$vmi_id = "X1-023"
$vmi_msg_id = "L004"
$sevms_invseclass = %X22C0
$class_prot = f$getsyi("CLASS_PROT")
$set nocontrol=y
$if f$type(vmi$installing) .eqs. "" then goto STEP_1
$vmi$save_verify = f$verify(vmi$debug)
$exit vmi$_success
$!
$ if (.not. $status) then dtr$abort_install == true
$!
$!******************************************************
$! check global pages
$!******************************************************
$ vmi$callback PRODUCT -
VAXINFOINSTALL:CHECK_PARAM -
sys -
gblpages -
5400 -
F
$ ! BUILD_IDENT="X61Q-SSB-DH00"
$! Copyright (c) 1996 Digital Equipment Corporation. All rights reserved.
$vmi_id = "X1-023"
$vmi_msg_id = "L004"
$sevms_invseclass = %X22C0
$class_prot = f$getsyi("CLASS_PROT")
$set nocontrol=y
$if f$type(vmi$installing) .eqs. "" then goto STEP_1
$vmi$save_verify = f$verify(vmi$debug)
$exit vmi$_success
$!
$ if (.not. $status) then dtr$abort_install == true
$!
$ if dtr$debug then -
dtr$say "Debug - Finished global section/page utilization check"
Debug - Finished global section/page utilization check
$!
$!******************************************************
$! CDD version
$!******************************************************
$!--CDDsupport : check whether CDD/R is available
$!-- CDDSHR is present also on base OpenVMS systems.
$ dtr$no_cdd == false
$ cdd_found = false
$ vmi$callback FIND_FILE -
dtr$cdo_lognam -
VMI$ROOT:[SYSEXE]CDO.EXE -
"" -
SO -
dtr$
$ ! BUILD_IDENT="X61Q-SSB-DH00"
$! Copyright (c) 1996 Digital Equipment Corporation. All rights reserved.
$vmi_id = "X1-023"
$vmi_msg_id = "L004"
$sevms_invseclass = %X22C0
$class_prot = f$getsyi("CLASS_PROT")
$set nocontrol=y
$if f$type(vmi$installing) .eqs. "" then goto STEP_1
$vmi$save_verify = f$verify(vmi$debug)
$exit vmi$_success
$!
$ cdd_found = dtr$ .nes. ""
$ if ( .not. cdd_found )
$ endif
$!
$ vmi$callback FIND_FILE -
dtr$cddshr_lognam -
VMI$ROOT:[SYSLIB]CDDSHR.EXE -
"" -
SO -
dtr$
$ ! BUILD_IDENT="X61Q-SSB-DH00"
$! Copyright (c) 1996 Digital Equipment Corporation. All rights reserved.
$vmi_id = "X1-023"
$vmi_msg_id = "L004"
$sevms_invseclass = %X22C0
$class_prot = f$getsyi("CLASS_PROT")
$set nocontrol=y
$if f$type(vmi$installing) .eqs. "" then goto STEP_1
$vmi$save_verify = f$verify(vmi$debug)
$exit vmi$_success
$!
$ cdd_found = dtr$ .nes. ""
$ if ( .not. cdd_found )
$ endif
$!
$ vmi$callback CHECK_PRODUCT_VERSION -
dtr$ -
dtr$cddshr_lognam -
T5.2 -
"CDD/Repository"
$ ! BUILD_IDENT="X61Q-SSB-DH00"
$! Copyright (c) 1996 Digital Equipment Corporation. All rights reserved.
$vmi_id = "X1-023"
$vmi_msg_id = "L004"
$sevms_invseclass = %X22C0
$class_prot = f$getsyi("CLASS_PROT")
$set nocontrol=y
$if f$type(vmi$installing) .eqs. "" then goto STEP_1
$vmi$save_verify = f$verify(vmi$debug)
$exit vmi$_success
$!
$ cdd_version_ok = dtr$
$!
$ if (.not. cdd_version_ok)
$ endif
$!
$ if dtr$debug
$ then
$ if cdd_version_ok
$ then
$ dtr$say "Debug - Finished CDD version check"
Debug - Finished CDD version check
$ else
$ endif
$ endif
$!
$!--CDDsupport: CDD/R is available; ask for required support
$ vmi$callback ASK -
dtr$cdd_support -
"Do you want support for Oracle CDD/Repository" -
yes -
B -
"@vmi$kwd:kihelp CDD_SUPPORT"
$ ! BUILD_IDENT="X61Q-SSB-DH00"
$! Copyright (c) 1996 Digital Equipment Corporation. All rights reserved.
$vmi_id = "X1-023"
$vmi_msg_id = "L004"
$sevms_invseclass = %X22C0
$class_prot = f$getsyi("CLASS_PROT")
$set nocontrol=y
$if f$type(vmi$installing) .eqs. "" then goto STEP_1
$vmi$save_verify = f$verify(vmi$debug)
* Do you want support for Oracle CDD/Repository [YES]?
$exit vmi$_success
$ if ( .not. dtr$cdd_support )
$ endif
$!******************************************************
$! CDD protections
$!******************************************************
$ CHECK_CDD_PROT:
$ cdd_control = false
$ cdd_local_delete = false
$ cdd_global_delete = false
$ cdd_history = false
$ cdd_pass_thru = false
$ cdd_see = false
$ cdd_update = false
$ cdd_extend = false
$ cdd_forward = false
$ cdd_dtr_read = false
$ cdd_dtr_write = false
$ cdd_dtr_extend = false
$ cdd_dtr_modify = false
$!
$ create vmi$kwd:dtr.tmp
$ assign/user_mode vmi$kwd:dtr.tmp sys$output
$ dmu SHOW protection cdd$top
$!
$ open/read dtr$ vmi$kwd:dtr.tmp
$!
$CDD_CHECK_PROT_LINE_LOOP:
$ read/end=CDD_CHECK_PROT_LINE_LOOP_END dtr$ line
$ cdd_control = cdd_control .or.-
(f$locate ("Control", line) .lt. f$length (line))
$ cdd_local_delete = cdd_local_delete .or.-
(f$locate ("Local Delete", line) .lt. f$length (line))
$ cdd_global_delete = cdd_global_delete .or.-
(f$locate ("Global Delete", line) .lt. f$length (line))
$ cdd_history = cdd_history .or.-
(f$locate ("History", line) .lt. f$length (line))
$ cdd_pass_thru = cdd_pass_thru .or.-
(f$locate ("Pass Thru", line) .lt. f$length (line))
$ cdd_see = cdd_see .or.-
(f$locate ("See", line) .lt. f$length (line))
$ cdd_update = cdd_update .or.-
(f$locate ("Update", line) .lt. f$length (line))
$ cdd_extend = cdd_extend .or.-
(f$locate ("Extend", line) .lt. f$length (line))
$ cdd_forward = cdd_forward .or.-
(f$locate ("Forward", line) .lt. f$length (line))
$ cdd_dtr_read = cdd_dtr_read .or.-
(f$locate ("DTR Read", line) .lt. f$length (line))
$ cdd_dtr_write = cdd_dtr_write .or.-
(f$locate ("DTR Write", line) .lt. f$length (line))
$ cdd_dtr_extend = cdd_dtr_extend .or.-
(f$locate ("DTR Extend", line) .lt. f$length (line))
$ cdd_dtr_modify = cdd_dtr_modify .or.-
(f$locate ("DTR Modify", line) .lt. f$length (line))
$ goto CDD_CHECK_PROT_LINE_LOOP
$CDD_CHECK_PROT_LINE_LOOP:
$ read/end=CDD_CHECK_PROT_LINE_LOOP_END dtr$ line
$ cdd_control = cdd_control .or.-
(f$locate ("Control", line) .lt. f$length (line))
$ cdd_local_delete = cdd_local_delete .or.-
(f$locate ("Local Delete", line) .lt. f$length (line))
$ cdd_global_delete = cdd_global_delete .or.-
(f$locate ("Global Delete", line) .lt. f$length (line))
$ cdd_history = cdd_history .or.-
(f$locate ("History", line) .lt. f$length (line))
$ cdd_pass_thru = cdd_pass_thru .or.-
(f$locate ("Pass Thru", line) .lt. f$length (line))
$ cdd_see = cdd_see .or.-
(f$locate ("See", line) .lt. f$length (line))
$ cdd_update = cdd_update .or.-
(f$locate ("Update", line) .lt. f$length (line))
$ cdd_extend = cdd_extend .or.-
(f$locate ("Extend", line) .lt. f$length (line))
$ cdd_forward = cdd_forward .or.-
(f$locate ("Forward", line) .lt. f$length (line))
$ cdd_dtr_read = cdd_dtr_read .or.-
(f$locate ("DTR Read", line) .lt. f$length (line))
$ cdd_dtr_write = cdd_dtr_write .or.-
(f$locate ("DTR Write", line) .lt. f$length (line))
$ cdd_dtr_extend = cdd_dtr_extend .or.-
(f$locate ("DTR Extend", line) .lt. f$length (line))
$ cdd_dtr_modify = cdd_dtr_modify .or.-
(f$locate ("DTR Modify", line) .lt. f$length (line))
$ goto CDD_CHECK_PROT_LINE_LOOP
$CDD_CHECK_PROT_LINE_LOOP:
$ read/end=CDD_CHECK_PROT_LINE_LOOP_END dtr$ line
$ cdd_control = cdd_control .or.-
(f$locate ("Control", line) .lt. f$length (line))
$ cdd_local_delete = cdd_local_delete .or.-
(f$locate ("Local Delete", line) .lt. f$length (line))
$ cdd_global_delete = cdd_global_delete .or.-
(f$locate ("Global Delete", line) .lt. f$length (line))
$ cdd_history = cdd_history .or.-
(f$locate ("History", line) .lt. f$length (line))
$ cdd_pass_thru = cdd_pass_thru .or.-
(f$locate ("Pass Thru", line) .lt. f$length (line))
$ cdd_see = cdd_see .or.-
(f$locate ("See", line) .lt. f$length (line))
$ cdd_update = cdd_update .or.-
(f$locate ("Update", line) .lt. f$length (line))
$ cdd_extend = cdd_extend .or.-
(f$locate ("Extend", line) .lt. f$length (line))
$ cdd_forward = cdd_forward .or.-
(f$locate ("Forward", line) .lt. f$length (line))
$ cdd_dtr_read = cdd_dtr_read .or.-
(f$locate ("DTR Read", line) .lt. f$length (line))
$ cdd_dtr_write = cdd_dtr_write .or.-
(f$locate ("DTR Write", line) .lt. f$length (line))
$ cdd_dtr_extend = cdd_dtr_extend .or.-
(f$locate ("DTR Extend", line) .lt. f$length (line))
$ cdd_dtr_modify = cdd_dtr_modify .or.-
(f$locate ("DTR Modify", line) .lt. f$length (line))
$ goto CDD_CHECK_PROT_LINE_LOOP
$CDD_CHECK_PROT_LINE_LOOP:
$ read/end=CDD_CHECK_PROT_LINE_LOOP_END dtr$ line
$ cdd_control = cdd_control .or.-
(f$locate ("Control", line) .lt. f$length (line))
$ cdd_local_delete = cdd_local_delete .or.-
(f$locate ("Local Delete", line) .lt. f$length (line))
$ cdd_global_delete = cdd_global_delete .or.-
(f$locate ("Global Delete", line) .lt. f$length (line))
$ cdd_history = cdd_history .or.-
(f$locate ("History", line) .lt. f$length (line))
$ cdd_pass_thru = cdd_pass_thru .or.-
(f$locate ("Pass Thru", line) .lt. f$length (line))
$ cdd_see = cdd_see .or.-
(f$locate ("See", line) .lt. f$length (line))
$ cdd_update = cdd_update .or.-
(f$locate ("Update", line) .lt. f$length (line))
$ cdd_extend = cdd_extend .or.-
(f$locate ("Extend", line) .lt. f$length (line))
$ cdd_forward = cdd_forward .or.-
(f$locate ("Forward", line) .lt. f$length (line))
$ cdd_dtr_read = cdd_dtr_read .or.-
(f$locate ("DTR Read", line) .lt. f$length (line))
$ cdd_dtr_write = cdd_dtr_write .or.-
(f$locate ("DTR Write", line) .lt. f$length (line))
$ cdd_dtr_extend = cdd_dtr_extend .or.-
(f$locate ("DTR Extend", line) .lt. f$length (line))
$ cdd_dtr_modify = cdd_dtr_modify .or.-
(f$locate ("DTR Modify", line) .lt. f$length (line))
$ goto CDD_CHECK_PROT_LINE_LOOP
$CDD_CHECK_PROT_LINE_LOOP:
$ read/end=CDD_CHECK_PROT_LINE_LOOP_END dtr$ line
$ cdd_control = cdd_control .or.-
(f$locate ("Control", line) .lt. f$length (line))
$ cdd_local_delete = cdd_local_delete .or.-
(f$locate ("Local Delete", line) .lt. f$length (line))
$ cdd_global_delete = cdd_global_delete .or.-
(f$locate ("Global Delete", line) .lt. f$length (line))
$ cdd_history = cdd_history .or.-
(f$locate ("History", line) .lt. f$length (line))
$ cdd_pass_thru = cdd_pass_thru .or.-
(f$locate ("Pass Thru", line) .lt. f$length (line))
$ cdd_see = cdd_see .or.-
(f$locate ("See", line) .lt. f$length (line))
$ cdd_update = cdd_update .or.-
(f$locate ("Update", line) .lt. f$length (line))
$ cdd_extend = cdd_extend .or.-
(f$locate ("Extend", line) .lt. f$length (line))
$ cdd_forward = cdd_forward .or.-
(f$locate ("Forward", line) .lt. f$length (line))
$ cdd_dtr_read = cdd_dtr_read .or.-
(f$locate ("DTR Read", line) .lt. f$length (line))
$ cdd_dtr_write = cdd_dtr_write .or.-
(f$locate ("DTR Write", line) .lt. f$length (line))
$ cdd_dtr_extend = cdd_dtr_extend .or.-
(f$locate ("DTR Extend", line) .lt. f$length (line))
$ cdd_dtr_modify = cdd_dtr_modify .or.-
(f$locate ("DTR Modify", line) .lt. f$length (line))
$ goto CDD_CHECK_PROT_LINE_LOOP
$CDD_CHECK_PROT_LINE_LOOP:
$ read/end=CDD_CHECK_PROT_LINE_LOOP_END dtr$ line
$ cdd_control = cdd_control .or.-
(f$locate ("Control", line) .lt. f$length (line))
$ cdd_local_delete = cdd_local_delete .or.-
(f$locate ("Local Delete", line) .lt. f$length (line))
$ cdd_global_delete = cdd_global_delete .or.-
(f$locate ("Global Delete", line) .lt. f$length (line))
$ cdd_history = cdd_history .or.-
(f$locate ("History", line) .lt. f$length (line))
$ cdd_pass_thru = cdd_pass_thru .or.-
(f$locate ("Pass Thru", line) .lt. f$length (line))
$ cdd_see = cdd_see .or.-
(f$locate ("See", line) .lt. f$length (line))
$ cdd_update = cdd_update .or.-
(f$locate ("Update", line) .lt. f$length (line))
$ cdd_extend = cdd_extend .or.-
(f$locate ("Extend", line) .lt. f$length (line))
$ cdd_forward = cdd_forward .or.-
(f$locate ("Forward", line) .lt. f$length (line))
$ cdd_dtr_read = cdd_dtr_read .or.-
(f$locate ("DTR Read", line) .lt. f$length (line))
$ cdd_dtr_write = cdd_dtr_write .or.-
(f$locate ("DTR Write", line) .lt. f$length (line))
$ cdd_dtr_extend = cdd_dtr_extend .or.-
(f$locate ("DTR Extend", line) .lt. f$length (line))
$ cdd_dtr_modify = cdd_dtr_modify .or.-
(f$locate ("DTR Modify", line) .lt. f$length (line))
$ goto CDD_CHECK_PROT_LINE_LOOP
$CDD_CHECK_PROT_LINE_LOOP:
$ read/end=CDD_CHECK_PROT_LINE_LOOP_END dtr$ line
$ cdd_control = cdd_control .or.-
(f$locate ("Control", line) .lt. f$length (line))
$ cdd_local_delete = cdd_local_delete .or.-
(f$locate ("Local Delete", line) .lt. f$length (line))
$ cdd_global_delete = cdd_global_delete .or.-
(f$locate ("Global Delete", line) .lt. f$length (line))
$ cdd_history = cdd_history .or.-
(f$locate ("History", line) .lt. f$length (line))
$ cdd_pass_thru = cdd_pass_thru .or.-
(f$locate ("Pass Thru", line) .lt. f$length (line))
$ cdd_see = cdd_see .or.-
(f$locate ("See", line) .lt. f$length (line))
$ cdd_update = cdd_update .or.-
(f$locate ("Update", line) .lt. f$length (line))
$ cdd_extend = cdd_extend .or.-
(f$locate ("Extend", line) .lt. f$length (line))
$ cdd_forward = cdd_forward .or.-
(f$locate ("Forward", line) .lt. f$length (line))
$ cdd_dtr_read = cdd_dtr_read .or.-
(f$locate ("DTR Read", line) .lt. f$length (line))
$ cdd_dtr_write = cdd_dtr_write .or.-
(f$locate ("DTR Write", line) .lt. f$length (line))
$ cdd_dtr_extend = cdd_dtr_extend .or.-
(f$locate ("DTR Extend", line) .lt. f$length (line))
$ cdd_dtr_modify = cdd_dtr_modify .or.-
(f$locate ("DTR Modify", line) .lt. f$length (line))
$ goto CDD_CHECK_PROT_LINE_LOOP
$CDD_CHECK_PROT_LINE_LOOP:
$ read/end=CDD_CHECK_PROT_LINE_LOOP_END dtr$ line
$ cdd_control = cdd_control .or.-
(f$locate ("Control", line) .lt. f$length (line))
$ cdd_local_delete = cdd_local_delete .or.-
(f$locate ("Local Delete", line) .lt. f$length (line))
$ cdd_global_delete = cdd_global_delete .or.-
(f$locate ("Global Delete", line) .lt. f$length (line))
$ cdd_history = cdd_history .or.-
(f$locate ("History", line) .lt. f$length (line))
$ cdd_pass_thru = cdd_pass_thru .or.-
(f$locate ("Pass Thru", line) .lt. f$length (line))
$ cdd_see = cdd_see .or.-
(f$locate ("See", line) .lt. f$length (line))
$ cdd_update = cdd_update .or.-
(f$locate ("Update", line) .lt. f$length (line))
$ cdd_extend = cdd_extend .or.-
(f$locate ("Extend", line) .lt. f$length (line))
$ cdd_forward = cdd_forward .or.-
(f$locate ("Forward", line) .lt. f$length (line))
$ cdd_dtr_read = cdd_dtr_read .or.-
(f$locate ("DTR Read", line) .lt. f$length (line))
$ cdd_dtr_write = cdd_dtr_write .or.-
(f$locate ("DTR Write", line) .lt. f$length (line))
$ cdd_dtr_extend = cdd_dtr_extend .or.-
(f$locate ("DTR Extend", line) .lt. f$length (line))
$ cdd_dtr_modify = cdd_dtr_modify .or.-
(f$locate ("DTR Modify", line) .lt. f$length (line))
$ goto CDD_CHECK_PROT_LINE_LOOP
$CDD_CHECK_PROT_LINE_LOOP:
$ read/end=CDD_CHECK_PROT_LINE_LOOP_END dtr$ line
$ cdd_control = cdd_control .or.-
(f$locate ("Control", line) .lt. f$length (line))
$ cdd_local_delete = cdd_local_delete .or.-
(f$locate ("Local Delete", line) .lt. f$length (line))
$ cdd_global_delete = cdd_global_delete .or.-
(f$locate ("Global Delete", line) .lt. f$length (line))
$ cdd_history = cdd_history .or.-
(f$locate ("History", line) .lt. f$length (line))
$ cdd_pass_thru = cdd_pass_thru .or.-
(f$locate ("Pass Thru", line) .lt. f$length (line))
$ cdd_see = cdd_see .or.-
(f$locate ("See", line) .lt. f$length (line))
$ cdd_update = cdd_update .or.-
(f$locate ("Update", line) .lt. f$length (line))
$ cdd_extend = cdd_extend .or.-
(f$locate ("Extend", line) .lt. f$length (line))
$ cdd_forward = cdd_forward .or.-
(f$locate ("Forward", line) .lt. f$length (line))
$ cdd_dtr_read = cdd_dtr_read .or.-
(f$locate ("DTR Read", line) .lt. f$length (line))
$ cdd_dtr_write = cdd_dtr_write .or.-
(f$locate ("DTR Write", line) .lt. f$length (line))
$ cdd_dtr_extend = cdd_dtr_extend .or.-
(f$locate ("DTR Extend", line) .lt. f$length (line))
$ cdd_dtr_modify = cdd_dtr_modify .or.-
(f$locate ("DTR Modify", line) .lt. f$length (line))
$ goto CDD_CHECK_PROT_LINE_LOOP
$CDD_CHECK_PROT_LINE_LOOP:
$ read/end=CDD_CHECK_PROT_LINE_LOOP_END dtr$ line
$ cdd_control = cdd_control .or.-
(f$locate ("Control", line) .lt. f$length (line))
$ cdd_local_delete = cdd_local_delete .or.-
(f$locate ("Local Delete", line) .lt. f$length (line))
$ cdd_global_delete = cdd_global_delete .or.-
(f$locate ("Global Delete", line) .lt. f$length (line))
$ cdd_history = cdd_history .or.-
(f$locate ("History", line) .lt. f$length (line))
$ cdd_pass_thru = cdd_pass_thru .or.-
(f$locate ("Pass Thru", line) .lt. f$length (line))
$ cdd_see = cdd_see .or.-
(f$locate ("See", line) .lt. f$length (line))
$ cdd_update = cdd_update .or.-
(f$locate ("Update", line) .lt. f$length (line))
$ cdd_extend = cdd_extend .or.-
(f$locate ("Extend", line) .lt. f$length (line))
$ cdd_forward = cdd_forward .or.-
(f$locate ("Forward", line) .lt. f$length (line))
$ cdd_dtr_read = cdd_dtr_read .or.-
(f$locate ("DTR Read", line) .lt. f$length (line))
$ cdd_dtr_write = cdd_dtr_write .or.-
(f$locate ("DTR Write", line) .lt. f$length (line))
$ cdd_dtr_extend = cdd_dtr_extend .or.-
(f$locate ("DTR Extend", line) .lt. f$length (line))
$ cdd_dtr_modify = cdd_dtr_modify .or.-
(f$locate ("DTR Modify", line) .lt. f$length (line))
$ goto CDD_CHECK_PROT_LINE_LOOP
$CDD_CHECK_PROT_LINE_LOOP:
$ read/end=CDD_CHECK_PROT_LINE_LOOP_END dtr$ line
$ cdd_control = cdd_control .or.-
(f$locate ("Control", line) .lt. f$length (line))
$ cdd_local_delete = cdd_local_delete .or.-
(f$locate ("Local Delete", line) .lt. f$length (line))
$ cdd_global_delete = cdd_global_delete .or.-
(f$locate ("Global Delete", line) .lt. f$length (line))
$ cdd_history = cdd_history .or.-
(f$locate ("History", line) .lt. f$length (line))
$ cdd_pass_thru = cdd_pass_thru .or.-
(f$locate ("Pass Thru", line) .lt. f$length (line))
$ cdd_see = cdd_see .or.-
(f$locate ("See", line) .lt. f$length (line))
$ cdd_update = cdd_update .or.-
(f$locate ("Update", line) .lt. f$length (line))
$ cdd_extend = cdd_extend .or.-
(f$locate ("Extend", line) .lt. f$length (line))
$ cdd_forward = cdd_forward .or.-
(f$locate ("Forward", line) .lt. f$length (line))
$ cdd_dtr_read = cdd_dtr_read .or.-
(f$locate ("DTR Read", line) .lt. f$length (line))
$ cdd_dtr_write = cdd_dtr_write .or.-
(f$locate ("DTR Write", line) .lt. f$length (line))
$ cdd_dtr_extend = cdd_dtr_extend .or.-
(f$locate ("DTR Extend", line) .lt. f$length (line))
$ cdd_dtr_modify = cdd_dtr_modify .or.-
(f$locate ("DTR Modify", line) .lt. f$length (line))
$ goto CDD_CHECK_PROT_LINE_LOOP
$CDD_CHECK_PROT_LINE_LOOP:
$ read/end=CDD_CHECK_PROT_LINE_LOOP_END dtr$ line
$ cdd_control = cdd_control .or.-
(f$locate ("Control", line) .lt. f$length (line))
$ cdd_local_delete = cdd_local_delete .or.-
(f$locate ("Local Delete", line) .lt. f$length (line))
$ cdd_global_delete = cdd_global_delete .or.-
(f$locate ("Global Delete", line) .lt. f$length (line))
$ cdd_history = cdd_history .or.-
(f$locate ("History", line) .lt. f$length (line))
$ cdd_pass_thru = cdd_pass_thru .or.-
(f$locate ("Pass Thru", line) .lt. f$length (line))
$ cdd_see = cdd_see .or.-
(f$locate ("See", line) .lt. f$length (line))
$ cdd_update = cdd_update .or.-
(f$locate ("Update", line) .lt. f$length (line))
$ cdd_extend = cdd_extend .or.-
(f$locate ("Extend", line) .lt. f$length (line))
$ cdd_forward = cdd_forward .or.-
(f$locate ("Forward", line) .lt. f$length (line))
$ cdd_dtr_read = cdd_dtr_read .or.-
(f$locate ("DTR Read", line) .lt. f$length (line))
$ cdd_dtr_write = cdd_dtr_write .or.-
(f$locate ("DTR Write", line) .lt. f$length (line))
$ cdd_dtr_extend = cdd_dtr_extend .or.-
(f$locate ("DTR Extend", line) .lt. f$length (line))
$ cdd_dtr_modify = cdd_dtr_modify .or.-
(f$locate ("DTR Modify", line) .lt. f$length (line))
$ goto CDD_CHECK_PROT_LINE_LOOP
$CDD_CHECK_PROT_LINE_LOOP:
$ read/end=CDD_CHECK_PROT_LINE_LOOP_END dtr$ line
$ cdd_control = cdd_control .or.-
(f$locate ("Control", line) .lt. f$length (line))
$ cdd_local_delete = cdd_local_delete .or.-
(f$locate ("Local Delete", line) .lt. f$length (line))
$ cdd_global_delete = cdd_global_delete .or.-
(f$locate ("Global Delete", line) .lt. f$length (line))
$ cdd_history = cdd_history .or.-
(f$locate ("History", line) .lt. f$length (line))
$ cdd_pass_thru = cdd_pass_thru .or.-
(f$locate ("Pass Thru", line) .lt. f$length (line))
$ cdd_see = cdd_see .or.-
(f$locate ("See", line) .lt. f$length (line))
$ cdd_update = cdd_update .or.-
(f$locate ("Update", line) .lt. f$length (line))
$ cdd_extend = cdd_extend .or.-
(f$locate ("Extend", line) .lt. f$length (line))
$ cdd_forward = cdd_forward .or.-
(f$locate ("Forward", line) .lt. f$length (line))
$ cdd_dtr_read = cdd_dtr_read .or.-
(f$locate ("DTR Read", line) .lt. f$length (line))
$ cdd_dtr_write = cdd_dtr_write .or.-
(f$locate ("DTR Write", line) .lt. f$length (line))
$ cdd_dtr_extend = cdd_dtr_extend .or.-
(f$locate ("DTR Extend", line) .lt. f$length (line))
$ cdd_dtr_modify = cdd_dtr_modify .or.-
(f$locate ("DTR Modify", line) .lt. f$length (line))
$ goto CDD_CHECK_PROT_LINE_LOOP
$CDD_CHECK_PROT_LINE_LOOP:
$ read/end=CDD_CHECK_PROT_LINE_LOOP_END dtr$ line
$ cdd_control = cdd_control .or.-
(f$locate ("Control", line) .lt. f$length (line))
$ cdd_local_delete = cdd_local_delete .or.-
(f$locate ("Local Delete", line) .lt. f$length (line))
$ cdd_global_delete = cdd_global_delete .or.-
(f$locate ("Global Delete", line) .lt. f$length (line))
$ cdd_history = cdd_history .or.-
(f$locate ("History", line) .lt. f$length (line))
$ cdd_pass_thru = cdd_pass_thru .or.-
(f$locate ("Pass Thru", line) .lt. f$length (line))
$ cdd_see = cdd_see .or.-
(f$locate ("See", line) .lt. f$length (line))
$ cdd_update = cdd_update .or.-
(f$locate ("Update", line) .lt. f$length (line))
$ cdd_extend = cdd_extend .or.-
(f$locate ("Extend", line) .lt. f$length (line))
$ cdd_forward = cdd_forward .or.-
(f$locate ("Forward", line) .lt. f$length (line))
$ cdd_dtr_read = cdd_dtr_read .or.-
(f$locate ("DTR Read", line) .lt. f$length (line))
$ cdd_dtr_write = cdd_dtr_write .or.-
(f$locate ("DTR Write", line) .lt. f$length (line))
$ cdd_dtr_extend = cdd_dtr_extend .or.-
(f$locate ("DTR Extend", line) .lt. f$length (line))
$ cdd_dtr_modify = cdd_dtr_modify .or.-
(f$locate ("DTR Modify", line) .lt. f$length (line))
$ goto CDD_CHECK_PROT_LINE_LOOP
$CDD_CHECK_PROT_LINE_LOOP:
$ read/end=CDD_CHECK_PROT_LINE_LOOP_END dtr$ line
$ cdd_control = cdd_control .or.-
(f$locate ("Control", line) .lt. f$length (line))
$ cdd_local_delete = cdd_local_delete .or.-
(f$locate ("Local Delete", line) .lt. f$length (line))
$ cdd_global_delete = cdd_global_delete .or.-
(f$locate ("Global Delete", line) .lt. f$length (line))
$ cdd_history = cdd_history .or.-
(f$locate ("History", line) .lt. f$length (line))
$ cdd_pass_thru = cdd_pass_thru .or.-
(f$locate ("Pass Thru", line) .lt. f$length (line))
$ cdd_see = cdd_see .or.-
(f$locate ("See", line) .lt. f$length (line))
$ cdd_update = cdd_update .or.-
(f$locate ("Update", line) .lt. f$length (line))
$ cdd_extend = cdd_extend .or.-
(f$locate ("Extend", line) .lt. f$length (line))
$ cdd_forward = cdd_forward .or.-
(f$locate ("Forward", line) .lt. f$length (line))
$ cdd_dtr_read = cdd_dtr_read .or.-
(f$locate ("DTR Read", line) .lt. f$length (line))
$ cdd_dtr_write = cdd_dtr_write .or.-
(f$locate ("DTR Write", line) .lt. f$length (line))
$ cdd_dtr_extend = cdd_dtr_extend .or.-
(f$locate ("DTR Extend", line) .lt. f$length (line))
$ cdd_dtr_modify = cdd_dtr_modify .or.-
(f$locate ("DTR Modify", line) .lt. f$length (line))
$ goto CDD_CHECK_PROT_LINE_LOOP
$CDD_CHECK_PROT_LINE_LOOP:
$ read/end=CDD_CHECK_PROT_LINE_LOOP_END dtr$ line
$CDD_CHECK_PROT_LINE_LOOP_END:
$!
$ close dtr$
$!
$ cdd_all_privs = cdd_control .and. cdd_local_delete .and. -
cdd_global_delete .and. cdd_history .and. cdd_pass_thru .and. -
cdd_see .and. cdd_update .and. cdd_extend .and. cdd_forward .and. -
cdd_dtr_read .and. cdd_dtr_write .and. cdd_dtr_extend .and. -
cdd_dtr_modify
$ if cdd_all_privs then goto CHECK_CDD_PROT_END
$ CHECK_CDD_PROT_END:
$ if dtr$debug then dtr$say "Debug - Finished CDD protection check"
Debug - Finished CDD protection check
$!
$ CHECK_CDD_END:
$ if dtr$debug then dtr$say "Debug - Finished CDD check"
Debug - Finished CDD check
$!
$!************************************************************************
$! check DATABASES
$!************************************************************************
$ dtr$dbms_found == false
$ dtr$rdb_found == false
$!
$!************************************************************************
$! check DBMS
$!************************************************************************
$!
$ dbmshr_image = f$trnlnm ("DBMSHR")
$ if dbmshr_image .eqs. ""
$ then dbmshr_image = "VMI$ROOT:[SYSLIB]DBMSHR.EXE"
$ endif
$!
$ vmi$callback FIND_FILE -
dtr$dbmshr -
VMI$ROOT:[SYSLIB]DBMSHR.EXE -
"" -
S -
dtr$
$ ! BUILD_IDENT="X61Q-SSB-DH00"
$! Copyright (c) 1996 Digital Equipment Corporation. All rights reserved.
$vmi_id = "X1-023"
$vmi_msg_id = "L004"
$sevms_invseclass = %X22C0
$class_prot = f$getsyi("CLASS_PROT")
$set nocontrol=y
$if f$type(vmi$installing) .eqs. "" then goto STEP_1
$vmi$save_verify = f$verify(vmi$debug)
$exit vmi$_success
$!
$ dtr$dbms_found == dtr$ .nes. ""
$!
$ dtr$dbms_image_id == ""
$ if dtr$dbms_found
$ endif
$!
$ if dtr$debug
$ then
$ if dtr$dbms_found
$ else
$ dtr$say "Debug - DBMS image VMI$ROOT:[SYSLIB]DBMSHR.EXE not found"
Debug - DBMS image VMI$ROOT:[SYSLIB]DBMSHR.EXE not found
$ endif
$ endif
$!
$!************************************************************************
$! check RDB
$!************************************************************************
$!
$!--CDDsupport:
$! Rdb shareable image is no longer required. No Error if not found.
$ vmi$callback FIND_FILE -
dtr$rdbshr -
RDBSHR.EXE -
VMI$ROOT:[SYSLIB] -
SO -
dtr$
$ ! BUILD_IDENT="X61Q-SSB-DH00"
$! Copyright (c) 1996 Digital Equipment Corporation. All rights reserved.
$vmi_id = "X1-023"
$vmi_msg_id = "L004"
$sevms_invseclass = %X22C0
$class_prot = f$getsyi("CLASS_PROT")
$set nocontrol=y
$if f$type(vmi$installing) .eqs. "" then goto STEP_1
$vmi$save_verify = f$verify(vmi$debug)
$exit vmi$_success
$!
$ dtr$rdb_found == dtr$ .nes. ""
$!
$ if dtr$debug
$ then
$ if dtr$rdb_found
$ then
$ dtr$say "Debug - RDBSHR.EXE found"
Debug - RDBSHR.EXE found
$ else
$ endif
$ endif
$!
$ if .not. dtr$rdb_found then goto CHECK_RDB_END
$!
$ rdbshr_image_id == ""
$ vmi$callback GET_IMAGE_ID -
rdbshr_image_id -
dtr$rdbshr
$ ! BUILD_IDENT="X61Q-SSB-DH00"
$! Copyright (c) 1996 Digital Equipment Corporation. All rights reserved.
$vmi_id = "X1-023"
$vmi_msg_id = "L004"
$sevms_invseclass = %X22C0
$class_prot = f$getsyi("CLASS_PROT")
$set nocontrol=y
$if f$type(vmi$installing) .eqs. "" then goto STEP_1
$vmi$save_verify = f$verify(vmi$debug)
$exit vmi$_success
$ if dtr$debug
$ then
$ dtr$say "Debug - RDBSHR.EXE image id: RDBDSPV6.1-0 ." -
+ "Minimum version: T5.0"
Debug - RDBSHR.EXE image id: RDBDSPV6.1-0 .Minimum version: T5.0
$ endif
$!
$ vmi$callback CHECK_PRODUCT_VERSION -
dtr$ -
dtr$rdbshr -
T5.0
$ ! BUILD_IDENT="X61Q-SSB-DH00"
$! Copyright (c) 1996 Digital Equipment Corporation. All rights reserved.
$vmi_id = "X1-023"
$vmi_msg_id = "L004"
$sevms_invseclass = %X22C0
$class_prot = f$getsyi("CLASS_PROT")
$set nocontrol=y
$if f$type(vmi$installing) .eqs. "" then goto STEP_1
$vmi$save_verify = f$verify(vmi$debug)
$exit vmi$_success
$!
$ dtr$rdb_found == dtr$
$!
$ CHECK_RDB_END:
$!************************************************************************
$! check DECforms
$!************************************************************************
$!
$ formsmgr_image = f$trnlnm ("FORMS$MANAGER")
$ if formsmgr_image .eqs. ""
$ then formsmgr_image = "VMI$ROOT:[SYSLIB]FORMS$MANAGER.EXE"
$ endif
$!
$ vmi$callback FIND_FILE -
dtr$formsmgr -
VMI$ROOT:[SYSLIB]FORMS$MANAGER.EXE -
"" -
SO -
dtr$
$ ! BUILD_IDENT="X61Q-SSB-DH00"
$! Copyright (c) 1996 Digital Equipment Corporation. All rights reserved.
$vmi_id = "X1-023"
$vmi_msg_id = "L004"
$sevms_invseclass = %X22C0
$class_prot = f$getsyi("CLASS_PROT")
$set nocontrol=y
$if f$type(vmi$installing) .eqs. "" then goto STEP_1
$vmi$save_verify = f$verify(vmi$debug)
$exit vmi$_success
$!
$ formsmgr_found == dtr$ .nes. ""
$!
$ dtr$formsmgr_image_id == ""
$ if formsmgr_found
$ endif
$!
$ if dtr$debug
$ then
$ if formsmgr_found
$ else
$ dtr$say "Debug - VMI$ROOT:[SYSLIB]FORMS$MANAGER.EXE not found"
Debug - VMI$ROOT:[SYSLIB]FORMS$MANAGER.EXE not found
$ endif
$ endif
$!
$ CHECK_DECFORMS_END:
$!
$!************************************************************************
$! check DECnet
$!************************************************************************
$ ddmf_object = ""
$ ddmf_number = -1
$ ddmf_file_id = ""
$!
$ dtr$ == ""
$ if (DECnetPhase .eqs. "04")
$ endif
$!
$ if (DECnetPhase .eqs. "05")
$ then
$ installer_rights = f$getjpi ("","process_rights")
$ length = f$length (installer_rights)
$ decnet_v_rights = f$locate ("NET$MANAGE",installer_rights)
$ if (length .ne. decnet_v_rights)
$ then
$ vmi$callback FIND_FILE -
dtr$ncl -
vmi$root:[sysexe]ncl.exe -
"" -
S -
dtr$
$ ! BUILD_IDENT="X61Q-SSB-DH00"
$! Copyright (c) 1996 Digital Equipment Corporation. All rights reserved.
$vmi_id = "X1-023"
$vmi_msg_id = "L004"
$sevms_invseclass = %X22C0
$class_prot = f$getsyi("CLASS_PROT")
$set nocontrol=y
$if f$type(vmi$installing) .eqs. "" then goto STEP_1
$vmi$save_verify = f$verify(vmi$debug)
$exit vmi$_success
$ else
$ endif
$ endif
$!
$ dtr$decnet_found == dtr$ .nes. ""
$ if dtr$debug
$ then
$ if dtr$decnet_found
$ then
$ dtr$say "Debug - NCP/NCL found"
Debug - NCP/NCL found
$ else
$ endif
$ endif
$!
$ if dtr$decnet_found
$ then
$ vmi$callback FIND_FILE -
dtr$nmlshr -
nmlshr.exe -
vmi$root:[syslib] -
S -
dtr$
$ ! BUILD_IDENT="X61Q-SSB-DH00"
$! Copyright (c) 1996 Digital Equipment Corporation. All rights reserved.
$vmi_id = "X1-023"
$vmi_msg_id = "L004"
$sevms_invseclass = %X22C0
$class_prot = f$getsyi("CLASS_PROT")
$set nocontrol=y
$if f$type(vmi$installing) .eqs. "" then goto STEP_1
$vmi$save_verify = f$verify(vmi$debug)
$exit vmi$_success
$!
$ dtr$decnet_found == dtr$ .nes. ""
$ if dtr$debug
$ then
$ if dtr$decnet_found
$ then
$ dtr$say "Debug - NMLSHR.EXE found"
Debug - NMLSHR.EXE found
$ else
$ endif
$ endif
$!
$ if dtr$decnet_found
$ then
$ if (DECnetPhase .eqs. "04")
$ endif
$!
$ if (DECnetPhase .eqs. "05")
$ then
NCL EXIT
$ endif
$!
$ dtr$status = $status
$ if dtr$status then goto GET_DDMF_ATTRIBUTES
$ GET_DDMF_ATTRIBUTES:
$ set on
$!-- exception handling: unknown DDMF causes a warning
$ on ERROR then goto CHECK_DDMF_PART1_END
$ if .not. dtr$decnet_found then goto CHECK_DDMF_PART1_END
$!
$ set message/facility/identification/severity/text
$!
$ if f$search ("VMI$KWD:DTR.TMP") .nes. "" then delete/nolog vmi$kwd:dtr.tmp;*
$!
$ if (DECnetPhase .eqs. "04")
$ endif
$!
$ if (DECnetPhase .eqs. "05")
$ then
$ assign/user_mode _nl: sys$error
$ assign/user_mode vmi$kwd:dtr.tmp sys$output
$ NCL SHOW SESSION CONTROL APPLICATION DDMF NAME,ADDRESSES,IMAGE NAME
$ CHECK_DDMF_PART1_END:
$!
$ on warning then goto INSTALL_ERROR
$ set control = (Y,T)
$ set message/facility/identification/severity/text
$ on control_y then goto INSTALL_CONTROL_Y
$ if dtr$debug
$ then
$ dtr$say "Debug - Finished Phase 2"
Debug - Finished Phase 2
$ dtr$say "Debug - Re-enabled CONTROL-Y and CONTROL-T traps"
Debug - Re-enabled CONTROL-Y and CONTROL-T traps
$ dtr$say "Debug - Entering Phase 3 (The ASKing phase...)"
Debug - Entering Phase 3 (The ASKing phase...)
$ endif
$!
$ if dtr$abort_install then goto INSTALL_TERMINATE
$!************************************************************************
$! check DTR license
$!************************************************************************
$ vmi$callback CONFIRM_LICENSE -
dtr$registered -
"DTR or DTR-USER" -
DEC -
V7.1 -
15-JAN-1996
$ ! BUILD_IDENT="X61Q-SSB-DH00"
$! Copyright (c) 1996 Digital Equipment Corporation. All rights reserved.
$vmi_id = "X1-023"
$vmi_msg_id = "L004"
$sevms_invseclass = %X22C0
$class_prot = f$getsyi("CLASS_PROT")
$set nocontrol=y
$if f$type(vmi$installing) .eqs. "" then goto STEP_1
$vmi$save_verify = f$verify(vmi$debug)
Product: DTR or DTR-USER
Producer: DEC
Version: V7.1
Release Date: 15-JAN-1996
* Does this product have an authorization key registered and loaded? yes
$exit vmi$_success
$!
$ if .not. dtr$registered
$ endif
$!
$ if dtr$debug then dtr$say "Debug - Finished license check for DTR"
Debug - Finished license check for DTR
$!
$!************************************************************************
$! asking questions
$!************************************************************************
$ if dtr$debug then dtr$say "Debug - Checking for default answers"
Debug - Checking for default answers
$!
$ vmi$callback ASK -
dtr$default_instal -
"Do you want to use default answers for all questions" -
yes -
B -
"@vmi$kwd:kihelp DEF_ANSWERS"
$ ! BUILD_IDENT="X61Q-SSB-DH00"
$! Copyright (c) 1996 Digital Equipment Corporation. All rights reserved.
$vmi_id = "X1-023"
$vmi_msg_id = "L004"
$sevms_invseclass = %X22C0
$class_prot = f$getsyi("CLASS_PROT")
$set nocontrol=y
$if f$type(vmi$installing) .eqs. "" then goto STEP_1
$vmi$save_verify = f$verify(vmi$debug)
* Do you want to use default answers for all questions [YES]?
$exit vmi$_success
$!
$!************************************************************************
$! check LSE
$!************************************************************************
$ vmi$callback PRODUCT -
VAXINFOINSTALL:CHECK_LSE -
dtr$continue
$ ! BUILD_IDENT="X61Q-SSB-DH00"
$! Copyright (c) 1996 Digital Equipment Corporation. All rights reserved.
$vmi_id = "X1-023"
$vmi_msg_id = "L004"
$sevms_invseclass = %X22C0
$class_prot = f$getsyi("CLASS_PROT")
$set nocontrol=y
$if f$type(vmi$installing) .eqs. "" then goto STEP_1
$vmi$save_verify = f$verify(vmi$debug)
$exit vmi$_success
$!
$ if .not. dtr$continue then goto FINISH_DISCONTINUE
$!
$ if .not. VAXINFO$LSE_AVAILABLE
$ endif
$!
$ CHECK_LSE_ONLY:
$ dtr$lse_only == 1
$ if dtr$default_instal then goto CHECK_FORM_DRIVERS
$ CHECK_FORM_DRIVERS:
$ dtr$form_driver_type == ""
$!
$!******************************************************
$! check FMS
$!******************************************************
$ fms_found = false
$ vmi$callback FIND_FILE -
dtr$fdvshr -
FDVSHR.EXE -
VMI$ROOT:[SYSLIB] -
SO -
dtr$
$ ! BUILD_IDENT="X61Q-SSB-DH00"
$! Copyright (c) 1996 Digital Equipment Corporation. All rights reserved.
$vmi_id = "X1-023"
$vmi_msg_id = "L004"
$sevms_invseclass = %X22C0
$class_prot = f$getsyi("CLASS_PROT")
$set nocontrol=y
$if f$type(vmi$installing) .eqs. "" then goto STEP_1
$vmi$save_verify = f$verify(vmi$debug)
$exit vmi$_success
$!
$ fms_found = dtr$ .nes. ""
$!
$ if fms_found
$ then
$ fms_image_id == ""
$ vmi$callback GET_IMAGE_ID -
fms_image_id -
dtr$fdvshr
$ ! BUILD_IDENT="X61Q-SSB-DH00"
$! Copyright (c) 1996 Digital Equipment Corporation. All rights reserved.
$vmi_id = "X1-023"
$vmi_msg_id = "L004"
$sevms_invseclass = %X22C0
$class_prot = f$getsyi("CLASS_PROT")
$set nocontrol=y
$if f$type(vmi$installing) .eqs. "" then goto STEP_1
$vmi$save_verify = f$verify(vmi$debug)
$exit vmi$_success
$ vmi$callback CHECK_PRODUCT_VERSION -
dtr$ -
dtr$fdvshr -
V2.4
$ ! BUILD_IDENT="X61Q-SSB-DH00"
$! Copyright (c) 1996 Digital Equipment Corporation. All rights reserved.
$vmi_id = "X1-023"
$vmi_msg_id = "L004"
$sevms_invseclass = %X22C0
$class_prot = f$getsyi("CLASS_PROT")
$set nocontrol=y
$if f$type(vmi$installing) .eqs. "" then goto STEP_1
$vmi$save_verify = f$verify(vmi$debug)
$exit vmi$_success
$!
$ fms_version_ok = dtr$
$ if dtr$debug
$ then
$ if fms_found
$ then
$ dtr$say "Debug - FMS found"
Debug - FMS found
$ dtr$say "Debug - FMS image id: FMS V2.4 " -
+ ".Minimum version: V2.4 "
Debug - FMS image id: FMS V2.4 .Minimum version: V2.4
$ endif
$ if fms_version_ok
$ then
$ dtr$say "Debug - FMS Version check passed"
Debug - FMS Version check passed
$ else
$ endif
$ endif
$ endif
$!
$!************************************************************************
$! form package selection
$!************************************************************************
$ dtr$forms == "YES"
$ dtr$fdv_count == (fms_found .and. true)
$ if dtr$fdv_count .eq. 0 then goto 0_FORMS
$ if dtr$fdv_count .eq. 1 then goto 1_FORMS
$ 1_FORMS:
$ if dtr$default_instal then goto 1_FORMS_DEFAULT
$ 1_FORMS_DEFAULT:
$ if fms_found then $dtr$form_driver == "FMS"
$ if .not. dtr$forms then $dtr$form_driver == "NONE"
$ goto ASK_FORMS_END
$ ASK_FORMS_END:
$ if dtr$debug then dtr$say "Debug - Forms - FMS"
Debug - Forms - FMS
$!
$!************************************************************************
$! choice of the suffix for the files to be created
$!************************************************************************
$ dtr$image_list == ""
$ dtr$default_image == "DTR32.EXE"
$ dtr$dtr32_found == false
$ dtr$count == 0
$ dtr$tmp == ""
$!
$!******************************************************
$ BUILD_IMAGE_LIST:
$!******************************************************
$ dtr$tmp = f$search ("vmi$root:[sysexe]dtr32*.exe")
$ if dtr$tmp .eqs. "" then goto END_IMAGE_LIST
$ END_IMAGE_LIST:
$!
$!******************************************************
$! SUFFIX
$!******************************************************
$ dtr$suffix == ""
$ dtr$multiple == "NO"
$!
$ if dtr$default_instal then goto GET_SUFFIX_END
$ GET_SUFFIX_END:
$ if .not. dtr$multiple
$ then
$ if .not. dtr$dtr32_found
$ then
$ dtr$image_list == "" + "DTR32"
$ endif
$ endif
$!
$!
$!************************************************************************
$! make symbols
$!************************************************************************
$!-- assign to symbols the names of the files we are going to produce
$!-- whose names depend on the suffix chosen for this installation.
$ dtr$dtrbld == "DTRBLD.COM"
$ dtr$dtrfnd == "DTRFND.MAR"
$ dtr$dtrfndobj == "DTRFND.OBJ"
$ dtr$dtrfun == "DTRFUN.OLB"
$ dtr$dtrlib == "DTRLIB.OLB"
$ dtr$dtrshr == "DTRSHR.EXE"
$!--UserLinkOptions
$ dtr$dtrusropt == "DTRSHRUSROPT.OPT"
$ dtr$dtr32 == "DTR32.EXE"
$ dtr$ddmf == "DDMF.EXE"
$!-- DTREXTRE = DATATRIEVE Extract Dictionary Directory Tree Utility
$ dtr$dtrextre == "DTREXTRE.EXE"
$ dtr$ddmfcom == "DDMF.COM"
$ dtr$ddmflog == "DDMF.LOG"
$ dtr$dtrstup == "DTRSTUP.COM"
$ dtr$dtrhelp == "DTRHELP.EXE"
$ dtr$cld == "DEC_DATATRIEVE.CLD"
$ dtr$dtrapi == "DTRAPI.OLB"
$ dtr$dtrapishr == "DTRAPI.EXE"
$!
$!******************************************************
$ CHECK_DDMF_FILE:
$!******************************************************
$ if dtr$define_ddmf then goto CHECK_DDMF_PART2_END
%DCL-W-UNDSYM, undefined symbol - check validity and spelling
\DTR$DEFINE_DDMF\
$ INSTALL_ERROR:
$!**************************************************
$ dtr$abort_install == true
$ dtr$status == VMI$_FAILURE
$ if dtr$debug then dtr$say "Debug - Installation ERROR: cleaning up and aborting..."
Debug - Installation ERROR: cleaning up and aborting...
$!
$ if (f$search ("vmi$kwd:dtroutput.tmp") .nes. "") then type vmi$kwd:dtroutput.tmp;*
$ if (f$search ("vmi$kwd:dtrerror.tmp") .nes. "")
$ endif
$!
$!**************************************************
$ INSTALL_FINISH:
$!**************************************************
$!
$!************************************************************************
$! MAKE_DOCUMENT
$!************************************************************************
$ if .not. dtr$abort_install
$ endif
$!
$!**********************************************************************
$!
$ if ( dtr$abort_install .or. dtr$discontinue_install ) .and. -
( dtr$install_id .nes. "" )
$ then
$ vmi$callback PRODUCT -
VAXINFOINSTALL:CLOSE_FILE -
provided -
"DTR071" -
""
$ ! BUILD_IDENT="X61Q-SSB-DH00"
$! Copyright (c) 1996 Digital Equipment Corporation. All rights reserved.
$vmi_id = "X1-023"
$vmi_msg_id = "L004"
$sevms_invseclass = %X22C0
$class_prot = f$getsyi("CLASS_PROT")
$set nocontrol=y
$if f$type(vmi$installing) .eqs. "" then goto STEP_1
$vmi$save_verify = f$verify(vmi$debug)
$exit vmi$_success
$!
$ if dtr$debug then dtr$say "Debug - Deleting Temporary Files..."
Debug - Deleting Temporary Files...
$ if f$trnlnm ("DTR$ADD") .nes. "" then close dtr$add
$ if f$search ("vmi$root:[sysupd]dtradd.tmp") .nes. "" then delete vmi$root:[sysupd]dtradd.tmp;*
$ if f$search ("vmi$root:[sysupd]dtrdelete.tmp") .nes. "" then delete vmi$root:[sysupd]dtrdelete.tmp;*
$ if dtr$debug then dtr$say "Debug - Temporary files deleted"
Debug - Temporary files deleted
$ endif
$!
$!**************************************************
$ INSTALL_DEASSIGN:
$!**************************************************
$ if dtr$debug then dtr$say "Debug - Deassigning Related Logicals..."
Debug - Deassigning Related Logicals...
$!
$ if f$trnlnm ("DTR$") .nes. "" then deassign dtr$
$ if f$trnlnm ("DTR$DDMF") .nes. "" then deassign dtr$ddmf
$ if f$trnlnm ("DTR$DTR32") .nes. "" then deassign dtr$dtr32
$ if f$trnlnm ("DTR$DTRSHR") .nes. "" then deassign dtr$dtrshr
$ if f$trnlnm ("DTR$DTRAPISHR") .nes. "" then deassign dtr$dtrapishr
$ if f$trnlnm ("DTR$DTREXTRE") .nes. "" then deassign dtr$dtrextre
$ if f$trnlnm ("DTR$DTREXTRE_OBJ") .nes. "" then deassign dtr$dtrextre_obj
$ if f$trnlnm ("DTR$DTRUSROPT") .nes. "" then deassign dtr$dtrusropt
$ if f$trnlnm ("DTR$STARLET") .nes. "" then deassign dtr$starlet
$ if f$trnlnm ("DTR$DECCSHR") .nes. "" then deassign dtr$deccshr
$ if f$trnlnm ("DTR$LIBRTL") .nes. "" then deassign dtr$librtl
$ if f$trnlnm ("DTR$DPMLSHR") .nes. "" then deassign dtr$dpmlshr
$ if f$trnlnm ("DTR$SMGSHR") .nes. "" then deassign dtr$smgshr
$ if f$trnlnm ("DTR$SECSHR") .nes. "" then deassign dtr$secshr
$ if f$trnlnm ("DTR$SECSHRP") .nes. "" then deassign dtr$secshrp
$ if f$trnlnm ("DTR$PUB_VEC") .nes. "" then deassign dtr$pub_vec
$ if f$trnlnm ("DTR$LBRSHR") .nes. "" then deassign dtr$lbrshr
$ if f$trnlnm ("CMA$OPEN$LBSHR").nes. "" then deassign cma$open$lbshr
$ if f$trnlnm ("CMA$OPEN$RTL") .nes. "" then deassign cma$open$rtl
$ if f$trnlnm ("CMA$RTL") .nes. "" then deassign cma$rtl
$ if f$trnlnm ("DTR$CDDSHR") .nes. "" then deassign dtr$cddshr
$ if f$trnlnm ("DTR$SORTSHR") .nes. "" then deassign dtr$sortshr
$ if f$trnlnm ("DTR$DTRFUN") .nes. "" then deassign dtr$dtrfun
$ if f$trnlnm ("DTR$DTRFNDOBJ") .nes. "" then deassign dtr$dtrfndobj
$ if f$trnlnm ("DTR$DTRFND") .nes. "" then deassign dtr$dtrfnd
$ if f$trnlnm ("DTR$IDTRFND") .nes. "" then deassign dtr$idtrfnd
$ if f$trnlnm ("DTR$DTRFNLB") .nes. "" then deassign dtr$dtrfnlb
$ if f$trnlnm ("DTR$DTRLIB") .nes. "" then deassign dtr$dtrlib
$ if f$trnlnm ("DTR$DTRAPI") .nes. "" then deassign dtr$dtrapi
$ if f$trnlnm ("DTR$DBMSHR") .nes. "" then deassign dtr$dbmshr
$ if f$trnlnm ("DTR$RDBSHR") .nes. "" then deassign dtr$rdbshr
$ if f$trnlnm ("DTR$FDVSHR") .nes. "" then deassign dtr$fdvshr
$ if f$trnlnm ("DTR$TERMSERVE") .nes. "" then deassign dtr$termserve
$ if f$trnlnm ("DTR$DTRSTUP") .nes. "" then deassign dtr$dtrstup
$!
$ if dtr$debug then dtr$say "Debug - Related Logicals Deassigned"
Debug - Related Logicals Deassigned
$!
$! Installation completed, let's check if errors occurred then leave control
$! back to VMSINSTAL which will execute the IVP on request.
$!
$ goto END_KITINSTAL
$ END_KITINSTAL:
$!**************************************************
$ if dtr$debug then dtr$say "Debug - Exiting KITINSTAL.COM @ 16-APR-1997 08:16:42.47"
Debug - Exiting KITINSTAL.COM @ 16-APR-1997 08:16:42.47
$ if vmi$_failure .or. dtr$abort_install .or. (.not. dtr$status) then -
exit vmi$_failure
$s = $status
$tmp = f$verify(vmi$debug)
%VMSINSTAL-E-INSFAIL, The installation of DTRAXP V7.1 has failed.
Adding history entry in VMI$ROOT:[SYSUPD]VMSINSTAL.HISTORY
Enter the products to be processed from the next distribution volume set.
* Products:
VMSINSTAL procedure done at 08:17
$ log
SYSTEM logged out at 16-APR-1997 08:17:02.16
|