??== OVMS 7.3-1:.PCSI_INSTALL_MIN hangs - Part 2
Hans M. Aus
$sh proce/par
12-NOV-2002 11:38:59.96 User: SYSTEM Process ID: 00000123
Node: xxxxx Process name: "SYSTEM"
Soft CPU Affinity: off
Parse Style: Traditional
-----
Quick refresh: I can install a minimum OpenVMS system from a structure 2
disk but not from a structure 5 disk.
Below is the VERITY output after I enter the target disk name and until
the endless loop starts. The problem seems to be the file:
SYS$SYSDEVICE:[VMS$COMMON]DEC-AXPVMS-VMS-V0703-1-2.PCSI$DESCRIPTION;1
-------
Enter device name for target disk: (? for choices) DKB100
$target_disk = f$edit(inpt,"TRIM,UPCASE,COMPRESS")
$else
$endif
$if target_disk .eqs. helpvalue
$endif
$if target_disk .eqs. "" then goto 020_target
$If f$length(target_disk) .gt. 128
$endif
$if f$locate(" ",target_disk) .lt. f$length(target_disk)
$endif
$if f$logical("DKB100") .gts. ""
$endif
$if target_disk .eqs. target_disk - ":" then target_disk := DKB100:
$if f$locate(":",target_disk) .lt. f$length(target_disk)-1
$endif
$if .not. f$getdvi(target_disk,"exists")
$endif
$if f$getdvi(target_disk,"devclass") .ne. 1
$endif
$if f$getdvi(target_disk,"swl")
$endif
$if f$getdvi(target_disk,"devnam") .eqs.
f$getdvi("sys$sysdevice","devnam")
$endif
$if .not. f$getdvi(target_disk,"mnt")
$endif
$if .not. f$getdvi(target_disk,"all")
$endif
$if f$getdvi(target_disk,"for")
$endif
$if f$search("DKB100:[000000]*.*") .eqs. ""
$endif
$if f$search -
("sys$sysdevice:[vms$common]dec-axpvms-vms-*-2.pcsi$description",1) -
.eqs. ""
$endif
$define/nolog/user sys$output nl:
$define/nolog/user sys$error nl:
$set noon
$product show product /producer=DEC /base=AXPVMS VMS
$sav_status = $status
$set on
$if sav_status .eq. 1 then goto 030_vms_in_pdb
$030_vms_in_pdb:
$prod_ver_file = f$search -
("sys$sysdevice:[vms$common]dec-axpvms-vms-*-2.pcsi$description",2)
$if prod_ver_file .eqs. ""
$endif
$prod_ver_string = f$element(3,"-",prod_ver_file) + "-" -
+ f$element(4,"-",prod_ver_file)
$prod_ver_work = f$element(3,"-",prod_ver_file)
$prod_ver_vis = f$extract(0,1,prod_ver_work)
$if f$extract(1,1,prod_ver_work) .nes. "0" then -
prod_ver_vis = prod_ver_vis + f$extract(1,1,prod_ver_work)
$prod_ver_vis = prod_ver_vis + f$extract(2,1,prod_ver_work)
$prod_ver_vis = prod_ver_vis + "."
$if f$extract(3,1,prod_ver_work) .nes. "0" then -
prod_ver_vis = prod_ver_vis + f$extract(3,1,prod_ver_work)
$prod_ver_vis = prod_ver_vis + f$extract(4,1,prod_ver_work)
$prod_ver_work = f$element(4,"-",prod_ver_file)
$if prod_ver_work .nes. "" then -
prod_ver_vis = prod_ver_vis + "-" + prod_ver_work
$define/nolog/user sys$output nl:
$define/nolog/user sys$error nl:
$set noon
$product show product /producer=DEC /base=AXPVMS VMS /version=V7.3-1
$sav_status = $status
$set on
$if sav_status .eq. 1 then goto 030_check_pdf_files
$030_check_pdf_files:
$sear_file = "sys$sysdevice:[vms$common]dec-axpvms-vms-" -
+ prod_ver_string -
+ "-2.pcsi$description"
$if f$search(sear_file,3) .eqs. ""
$endif
$sear_file = "sys$sysdevice:[vms$common]dec-axpvms-vms-" -
+ prod_ver_string -
+ "-2.pcsi$tlb"
$if f$search(sear_file,3) .eqs. ""
$endif
$sear_file = "sys$sysdevice:[vms$common]dec-axpvms-openvms-" -
+ prod_ver_string -
+ "-5.pcsi$description"
$if f$search(sear_file,3) .eqs. ""
$endif
$sear_file = "sys$sysdevice:[vms$common]dec-axpvms-openvms-" -
+ prod_ver_string -
+ "-5.pcsi$tlb"
$if f$search(sear_file,3) .eqs. ""
$endif
$if f$search("DKB100:[000000]vms$common.dir;1") .gts. ""
$endif
$if f$search("DKB100:[000000]vms$common.dir;1") .gts. ""
$else
$if f$search("DKB100:[sys*]syscommon.dir;1") .gts. ""
$endif
$endif
$If f$search("DKB100:[syse]syscommon.dir") .nes. "" then -
goto 070_build_pcf
$if f$getdvi("DKB100:","freeblocks") .lt. 115000
$endif
$070_build_pcf:
$if f$trnlnm("SYS$SCRATCH") .eqs. ""
$endif
$pid = f$getjpi("","PID")
$close/error=070_pdf_open min$pdf
$070_pdf_open:
$open/error=err_exit min$pdf
SYS$SYSDEVICE:[VMS$COMMON]DEC-AXPVMS-VMS-V0703-1-2.
PCSI$DESCRIPTION;1
$close/error=070_pcf_open min$pcf
$070_pcf_open:
$open/error=err_exit/write min$pcf sys$scratch:vms$min00000123.pcf
$pcf_producer = ""
$pcf_base = ""
$pcf_product = ""
$070_read_minpcf:
$read/error=err_exit/end=070_end_minpcf min$pdf pdf_rec
$pdf_rec = f$edit(pdf_rec,"COMPRESS,TRIM,UPCASE")
$if f$element(0," ",pdf_rec) .eqs. "PRODUCT"
$then
$pcf_producer = f$element(1," ",pdf_rec)
$pcf_base = f$element(2," ",pdf_rec)
$pcf_product = f$element(3," ",pdf_rec)
$write min$pcf "DEC AXPVMS VMS"
$endif
$if f$element(0," ",pdf_rec) .eqs. "OPTION"
$endif
$goto 070_read_minpcf
$070_read_minpcf:
$read/error=err_exit/end=070_end_minpcf min$pdf pdf_rec
$pdf_rec = f$edit(pdf_rec,"COMPRESS,TRIM,UPCASE")
$if f$element(0," ",pdf_rec) .eqs. "PRODUCT"
$endif
$if f$element(0," ",pdf_rec) .eqs. "OPTION"
$endif
$goto 070_read_minpcf
$070_read_minpcf:
$read/error=err_exit/end=070_end_minpcf min$pdf pdf_rec
$pdf_rec = f$edit(pdf_rec,"COMPRESS,TRIM,UPCASE")
$if f$element(0," ",pdf_rec) .eqs. "PRODUCT"
$endif
#### Then the procedure loops endlessly.
--
Cheers, Hans M. Aus, Wuerzburg, Germany, a...@vim.uni-wuerzburg.de
Nic Clews
>
> I'm back. First and foremost thanks for the help and ideas so far.
>
> disk but not from a structure 5 disk.
This is a "me too". 7.3-1, ODS5 system disk with hard links enabled,
tried to install a minimum system to an ODS2 disk, didn't work
(hung/looped). I'll have a hack around as it's not in production yet, I
will try with the target disk being ODS5 as well.
As this device is out on a SAN, to prove to myself there was no issue
with the disk itself, I copied the system disk over and managed to boot
it OK.
--
Regards, Nic Clews a.k.a. Mr. CP Charges, CSC Computer Sciences
nclews at csc dot com