This EXEC uses the CA VM:Tape MOUNT command to pre-mount a scratch tape. The EXEC checks for a return code, then reads the file LARGE FILE from your A disk and writes it as the primary data set called VERY.LARGE.FILE on the tape.
'VMTAPE MOUNT SCRATCH DSN VERY.LARGE.FILE ( WAIT STACK LIFO' if RC < > 0 then exit RC pull . volser dsn
'FILEDEF INMOVE DISK LARGE FILE A' 'FILEDEF OUTMOVE TAP1 SL 1' queue dsn 'LABELDEF OUTMOVE FID ? VOLID SCRATCH FSEQ 1' 'MOVEFILE INMOVE OUTMOVE'
|
Copyright © 2013 CA.
All rights reserved.
|
|