⟦84bce0b3e⟧

TextFile

(
transman=set 63 disc3
global transman
transman=compose
finisb)
 *pl 297,21,240,13,4*
*pn 0,0**lw 170* *ld 12* 
*ps*
*nl*
H.C.Ørsted Institute
*nl*
Computer Department
*nl*
Universitets parken 5
*nl*
DK-2100 København Ø
*nl**nl10*
*ct* 
File transport system between RC4000/RC8000
"transman"
*nl2*
Viggo Kørst
*nl*
*nl15*
*qr*
*nl*
80/4
*nl*

 januar 1980
*ps*
*rj**nl*
*ns 1,2,File transport system between RC4000/8000:*
        ------------------------------------------*nl2*
With these programs it is possible in an easy way to move 
files from RC4000 to RC8000 and the opposite way using magnetic tapes.
*nl2*
The system consist of 4 programs:
*nl2*
load4000
*nl*
load8000*nl*
trans4000*nl*
trans8000*nl*
*nl*
load4000 and trans4000 are found on the RC8000 computer and the other two 
on the RC4000.
*nl*
To use this system you have to do following:
*nl*
-------------------------------------------------------
*nl2*
Mount a magnetic tape  and give this tape a name. 
Create a filedescriptor which 
  points at file 0 and block 0.
*nl1*
Then call the program
trans4000/8000 with the name of the filedescriptor as output parameter and
the files you want to move as input parameters.
The files will then be moved onto the tape   which then may be
 mounted  on the other computer RC8000/4000.
The files on the tape can now be loaded  with the program load4000/8000.
*ns 1,2,Example:*
        ---------*nl2*
This example shows how to move the file "beregning" from RC4000 to the RC8000:
A tape is mountet and a filedescriptor is created by the following command :
*nl*
mts = set mto mts 0 0
*nl*
*nl*
mts=trans8000 beregning
*nl*
This command will then move the file to the tape.  
 On the RC8000 and load this file coan be loaded with the commands
*nl2*
mts=set nrz mtso 0 0
*nl*
load4000 tape.mts beregning scope.user.
*nl1*
*nl*
The tape must be called mtso.
*ps*

*qr*
1978-10-30
Viggo Kørst
*nl2*
*ct*
algol program load8000
*nl2*
*rj**np*
"load8000" is the program which takes the files from a tape 
 created on the RC8000 and loads them on the RC4000.
*nl2*
call:
*nl*
*lm55*
        load8000 <tapename> <listspec.> <keyspec.>
*nl*

                 <allspec.> <filelist>
*nl2*
*nl*               <listspec.>::=list.<boolean>/<empty>
*nl*               <keyspec.>::=key.<integer>/<empty>
*nl*
               <allspec.>::=all.<boolean>/<empty>
*nl*               <filelist>::=<filelist><filename>/<filename>/<empty>
*nl* <boolean>::=yes/no
*nl*
*lm0*
*lm55*
*mt 1,      tapename**cm 6 spaces*
is the name of the filediscriptor descibing the tape.
*nl2**np*
*mt 1,    list.yes*specifies listing the names loaded. 
*nl2**np*
*mt 1,    key.<integer>* specifies the catalog key under which the files
are permanented.If no specification is made the files will 
not be permanented.
*nl2**np*
*mt 1,    all.yes* specifies that all files on the tape are loaded.
*nl2**np*
*mt 1,    filelist* The names of the files to be loaded.

*lm0**nl4*
ALGOL programmed program
*nl2*
Maintenance level: user
*ps*
*qr*
1978-10-30
Viggo Kørst
*nl2*
*ct*
algol program trans8000
*nl2*
*rj**np*
"trans8000" creates a tape with some
files from the RC4000. 
*nl2*
call:
*nl*
*lm55*
<tapename>=trans8000 <listspec.> <filelist>
*nl2*
<listspec.>::=list.<boolean>
*nl*
<boolean>::=yes/no
*nl*
<filelist>::=<filelist><filename>/<filename>
*nl*
*lm0*
*lm55*
*nl*
*mt 1,      list.yes* specifies listing of the names of the files.
*mt 1,      filelist* is the names of the files to be moved
*mt 1,      tapename* an existing filedesriptor specifying a magnetic
tape with odd parity.
*nl2**lm0**nl4*
ALGOL programmed program
*nl2*
maintenance level : user
*ps*

*qr*
1978-10-30
Viggo Kørst
*nl2*
*ct*
algol program load4000
*nl2*
*rj**np*
"load4000" is the program which takes the files from a tape 
 created on the RC4000 and loads them on the RC8000.
*nl2*
call:
*nl*
*lm55*
        load4000 tape.<tapename> <listspec.> 
*nl*

                 <scopespec> <kitspec.> <allspec.> <filelist>
*nl2*
*nl*               <listspec.>::=list.<boolean>/<empty>
*nl*               <scopespec.>::=scope.<scope>/<empty>
*nl*
                   <scope>::= login/temp/user/project
*nl*
               <allspec.>::=all.<boolean>/<empty>
*nl*               <filelist>::=<filelist><filename>/<filename>/<empty>
*nl* <boolean>::=yes/no
*nl*
*nl*
                  <kitspec>::= kit.<docname>/<empty>
*lm0*
*lm55*
*mt 1,      tapename**cm 6 spaces*
is the name of the tape.
*nl2**np*
*mt 1,    list.yes*specifies listing of the names of
*nl2**np*
*mt 1,    scope.<scope>* specifies the scope under which   the files
are loaded.If no specification is made the files will be loaded  as scope temp.

*nl2**np*
*mt 1,    all.yes* specifies that all files on the tape are loaded.
If this is not specified then it is nessecarry to name those files
that is to be loaded.
*nl2**np*
*mt 1,    kit.<docname>* specifies the docname unde which the files 
schould be loaded. If the kit specification is empty a disc is used.
*lm0**nl4*
ALGOL programmed program
*nl2*
Maintenance level: user
*ps*
*qr*
1978-10-30
Viggo Kørst
*nl2*
*ct*
algol program trans4000
*nl2*
*rj**np*
"trans4000" creates a tape with some files from RC8000.
*nl2*
call:
*nl*
*lm55*
<tapename>=trans4000 <listspec.> <filelist>
*nl2*
<listspec.>::=list.<boolean>
*nl*
<boolean>::=yes/no
*nl*
<filelist>::=<filelist><filename>/<filename>
*nl*
*lm0*
*lm55*
*nl*
*mt 1,      list.yes* specifies listing of the names of the files.
*mt 1,      filelist* is the names of the files to be moved
*nl2**lm0**nl4*
ALGOL programmed program
*nl2*
maintenance level : user
*ef*
*ef*
▶EOF◀
DataMuseum.dk

RC4000/8000/9000

⟦84bce0b3e⟧ TextFile

Derivation

TextFile
