[fa.info-vax] VMSINSTAL warning

info-vax@ucbvax.ARPA (04/02/85)

From: ken@cit-hamlet.arpa

	Today I tried to retrieve the fortran savesets from TU58s
to install on a few machines using vmsinstal's GET option. I ran
into a little problem...
	It appears that when using the get option, if backup encounters
any errors (like recoverable media errors) the file VMSBCKERR.TMP is
created (it is assigned to SYS$ERROR). In creating the new disk saveset,
VMSINSTAL included the VMSBCKERR.TMP file. This caused subsequent
VMSINSTAL's to fail because the file VMSBCKERR.TMP couldn't be created
since it already exists (as the new SYS$ERROR of the restoring BACKUP
image).
	Has anyone else had this problem?

						-=Ken Adelman=-
						  Caltech

info-vax@ucbvax.ARPA (04/02/85)

From: *Hobbit* <AWalker@RUTGERS.ARPA>

I never had any such problem.  I don't use VMSINSTAL... it's too hideous....

_H*
-------

info-vax@ucbvax.ARPA (04/04/85)

From: Denny_Thury <thury%ti-eg.csnet@csnet-relay.arpa>


I too have experienced the problem with the VMSINSTAL GET option.

My fix was to edit SYS$UPDATE:VMSINSTAL.COM adding 
1 line to "STEP_13" (before line #1227).  An excerpt of the corrected
version follows:

	.
	.
	.
$13n: letter = f$ext(saveset,1,"ABCDEFGHIJKLMNOPQRSTUVWXYZ")
$if saveset .ge. 26 then letter = f$string(saveset+1)
$vmi$callback RESTORE_SAVESET 'letter
$if .not. $status then goto 13p
$saveset = saveset + 1
$on error then goto 13s
$if f$length(letter) .gt. 1 then -
letter = f$fao("VMI_!4ZL",f$integer(letter))
$!##########################################################################
$!
$! 1 line Added to fix severe DEC bug
$!			12-MAR-1985  by DLWT
$IF F$SEARCH ("VMI$KWD:VMIBCKERR.TMP") .NES. ""  THEN -
 	DELETE VMI$KWD:VMIBCKERR.TMP;*
$!
$!##########################################################################
$backup/interchange/verify vmi$kwd:*.*;* -
'get_dir''vmi$product.'letter/save_set 'vmi$p6
$on error then goto error_done
$vmi$p6 = ""
$w = f$search("vmi$kwd:*.*")
$if w .nes. "" then set prot=s=rwed vmi$kwd:*.*;*
$if w .nes. "" then delete vmi$kwd:*.*;*
$w = f$search("")
$goto 13n
$13p:
	.
	.
	.


I have also submitted an SPR defining the problem and included the above
fix as a proposed solution..

--------------------------------------------------------

			Denny Thury