This look like your container file for DUA3: is corrupted. Could be because of a FTP in non-binary mode, or other problem with creating your DUA3. The VAX console is looking at the disk image, and it doesn't look like an ODS-2 file structure.
$! Fix_Backup_Saveset_Attributes -- Fix Backup save sets sds 15-may-2010
$!___________________________________________________________________________
$!
$! When Backup Save Sets go through an FTP transfer, typically the record
$! attributes get mangled to be a maximum record size of 512 and the
$! logical record length of 512.
$!
$! When Backup Save Sets get created, the range of allowable record lengths
$! range from 2048-65535. The BACKUP command has a /BLOCK qualifier that
$! specifies this value. The default is 8192 for distination tape drives, and
$! 32256 for destination disk files.
$!____________________________________________________________________________
$ Gosub Setup
$ previous_file = current_file
$ loop: current_file = f$search(P1)
$
$ If current_file .eqs. previous_file .or. current_file .eqs. "" then exit
$ previous_file = current_file
$ old_mrs = f$file(current_file,"MRS"
$ old_lrl = f$file(current_file,"LRL"
$ old_rat = f$file(current_file,"RAT"
$ old_org = f$file(current_file,"ORG"
$ if f$file(current_file,"SHELVED"
$ then
$ say f$fao("!23AS !AS","Skipping shelved file:", current_file)
$ goto loop
$ endif
$ set file/attrib=(ORG=SEQ,RAT=none,MRS=512,LRL=512) 'current_file'
$
$ open/read/share/error=put_it_back file 'current_file'
$ read/nolock/error=eof file rec
$ close/error=put_it_back file
$
$ bbh_l_blocksize = %x28*8
$ BlockSize = f$cvui(bbh_l_blocksize,32,rec)
$
$ Say f$fao("mrs:!5UW,lrl:!5UW old !AS", old_mrs,old_lrl,current_file)
$ set file/attrib=(MRS='BlockSize',LRL='BlockSize' 'current_file'
$
$ new_mrs = f$file(current_file,"MRS"
$ new_lrl = f$file(current_file,"LRL"
$ say f$fao("mrs:!5UW,lrl:!5UW new !AS", new_mrs,new_lrl,current_file)
$ goto loop
$
$ eof: close file
$ put_it_back:
$ set file/attrib=-
(ORG:'old_seq',RAT:'old_rat',MRS:'old_mrs',LRL:'old_lrl' -
'current_file'
$ goto loop
$
$ Setup:
$ pgm = f$parse(f$environment("procedure",,,"name"
$ quiet = %x10000000
$ on control_Y then interrupt\'pgm'
$ on warning then exit $status .or. quiet
$ say := Write Sys$output
$ current_file :=
$ return
malmberg August 04 2022 No more VAX hobbyist licenses.
Community licenses for Alpha/IA64/X86_64 VMS Software Inc.
Commercial VMS software licenses for VAX available from HPE.
ozboomer July 20 2022 Just re-visiting.. No more hobbyist licenses? Is that from vmssoftware.com, no 'community' licenses?
valdirfranco July 01 2022 No more hobbyist license...sad
mister_wavey February 12 2022 I recall that the disks failed on the public access VMS systems that included Fafner
parwezw January 03 2022 Anyone know what happened to FAFNER.DYNDS.ORG?
I had a hobbyist account here but can longer access the site.
gtackett October 27 2021 Make that DECdfs _2.1A_ for Vax
gtackett October 27 2021 I'm looking for DECdfs V2.4A kit for VAX.
Asking here just in case anyone is still listening.
MarkRLV September 17 2021 At one time, didn't this web site have a job board? I would love to use my legacy skills one last time in my career.
malmberg January 18 2021 New Hobbyist PAKs for VAX/VMS are no longer available according to reports. Only commercial licenses are reported to be for sale from HPE
dfilip January 16 2021 Can someone please point me to hobbyist license pak? I'm looking for VAX/VMS 7.1, DECnet Phase IV, and UCX/TCPIP ... have the 7.1 media, need the license paks ... thanks!
