zar@IAGO.CALTECH.EDU (Dan Zirin) (01/08/88)
Since I found a need to allow users to FTP (a TCP/IP copy, sort of) VMS
BACKUP save-sets, I wrote a *SIMPLE* FORTRAN program to recreate a save-
set with the following assumptions:
1) The disk save-set was created with "BACKUP/BLOCK=2048..."
command.
2) Your FTP program won't allow you to X-fer a binary file with
a record length of 2048 (standard FTP uses 512 for binary
transfers). SRI's Multinet TCP/IP software for VMS has a third
file type option called "backup" which will allow you to xfer
save-sets just fine assuming item 1.
This program follows:
The Great Zar
P.S. This seemed obvious to me, but I was CONSTANTLY bugged by users that
had no clue as to how it could be done, so I appologize to master
<computername/compilername> gurus.
P.S.S. SRI Multinet info can be found by asking desiree@kl.sri.com (I think).
------------------------------ Cut Here ------------------------------------
c To use:
c $ assign/user <inputfilename> for002
c $ assign/user <outputfilename> for001
c Then use VMS BACKUP on the <outputfilename>
c
character*512 line(4)
open(unit=1,carriagecontrol='none',recordtype='fixed',
1 recl=2048,status='new')
open(unit=2,carriagecontrol='none',recl=512,status='old',
1 err=1)
goto 2
1 stop '$ASSIGN input FOR002 & $ASSIGN output FOR001'
2 do i=1,4
read(2,'(a)') line(i)
end do
write(1,'(a)') line(1)//line(2)//line(3)//line(4)
goto 2
3 end