Quayle Consulting Inc. Free Stuff

Free Downloads

This page holds free downloads. Enjoy!

The Quayle Consulting homepage: www.stanq.com

Zmodem send and receive for VMS VAX and Alpha. The download is a VMS-format ZIP file.

Usage notes:

Define "sz" and "rz" as foreign symbols
Run "sz" without arguments for options. These options also apply to "rz".

Writing VMS-format CD's (link) Uses a Linux system to burn ODS-2 CD's. Doesn't require a CD burner on the VMS system.

Connections and Connectors (link) All sorts of serial and network connections: DB-9, DB-25, MMJ, RJ-45, etc. Supports VMS systems, Cisco routers, serial, 10Base-T, FDDI over copper (CDDI), DECservers, Flowpoint routers, and more!

"Fix" file attributes of VMS BACKUP savesets

If you FTP a BACKUP saveset, the file attributes will be mangled. If you use ASCII transfer, all is lost. But, if you use Binary transfer, the attributes can be fixed by this procedure. Note that this doesn't work on really old VMS systems (like VAX/VMS 5.5 and older) because it uses SET FILE/ATTRIBUTES.

$! RESET_BACKUP_SAVESET_ATTRIBUTES.COM
$!
$! P1  is the specification of the BACKUP saveset
$!
$! This procedure resets the record format and record
$! length attributes of a BACKUP saveset -- savesets
$! can get "broken" during certain sorts of file
$! transfers -- such as FTP.  This procedure reads the
$! (undocumented) saveset record attributes directly
$! out of the target file.
$!
$! First render the saveset readable, and implicitly
$! check that the file exists.
$!
$ Set File -
    /Attributes=(RFM:FIX,MRS:512,LRL=512,ORG=SEQ,RAT=NONE) -
    'p1'
$
$ Open/Error=whoops/Read BckSaveset 'p1'
$ Read/Error=whoops/End=whoops BckSaveset Record
$ Close/Nolog BckSaveset
$
$! Find the blocksize from within the record...
$
$ BlockSize = 0
$ BBH_L_BLOCKSIZE = %x28*8
$ BlockSize = F$CVUI(BBH_L_BLOCKSIZE, 32, Record)
$ If BlockSize .lt. 2048 .or. BlockSize .gt. 65535
$ Then
$   Write sys$output "Unexpected block size"
$   Goto whoops
$ Else
$   Set File /Attributes=(RFM:FIX,LRL='BlockSize', -
       MRS='BlockSize',RAT=none) -
       'p1'
$ endif
$ exit
$WHOOPS:
$ Write sys$output "Error"
$ exit

Quayle Consulting Services: