Table of Contents
Advertisement
•
Copy a COSY file from mass storage to tape.
(77
88
(
ENDCOSY/
FORTRAN
COPY/
DISK,MAGT
I
t--
($COSY( N)
$*DEF(U,H,MAGT,607,MT33""O)
I
-
($*DEF(O,H,DISK,JAMES,CSy,1,2661
J
I)
I--
($*DEF( A,H,JAMES,CSY, 1 ,2661" 1280)
~$SCHED,CORE=24,607=1,852=1
$JOB,DEPT461,DAJ,10
~
Input COSY file is from 852 disk having dsi
DISK.
Output is on 607 tape
unit having dsi ::\IAGT. COSY file is copied up to COSY deck named FORTRAr\".
4-8
Advertisement
Table of Contents
Need help?
Do you have a question about the 3500 and is the answer not in the manual?
Questions and answers