|
Entire document Available as PDF |
Use the TAPEDISK procedure to copy a tape data set to a disk data set or to append a tape data set to the end of an existing disk data set. If the data set is created successfully, you can specify the disposition of the original
tape data set.
The required parameters are the tape volume name (VOL) and, if the tape has standard labels, the tape data set name (TDSN). Using the default values for the other parameters will result in a primary
allocation of 10 tracks and secondary allocations of 5 tracks for the disk data set. The record format, logical record length, and blocksize of the tape data set will be used for the disk data set. The old tape data set will be kept. The new disk data set
will be cataloged if it is created successfully and will have the same name as the tape data set.
If the tape data set name does not conform to CNS conventions for naming disk data sets, you need to specify the disk data set name; otherwise, the new disk data set will be deleted at the end of the day. Do NOT specify TRECFM
or TLRECL if copying a standard labeled tape.
Use the following JCL to access TAPEDISK:
Figure 15. JCL for Using the TAPEDISK Procedure
//jobnameJOB (,,time,lines),'your name',CLASS=class/*ROUTE PRINTnode.location/*SETUP TAPEC,1 // EXEC TAPEDISK,TDSN='name',VOL=volume,DDSN='name'
You must specify the VOL parameter. If your tape is standard labeled, you must also specify TDSN; the other parameters are optional and have default values. Default values can be overridden by using any
of the following parameters and values on the EXEC statement. Parameters must be separated from each other by a comma.
TDSN=name(Required
for an SL tape) specifies the tape data set name. The default is null.
TAPE=drivespecifies a
cartridge tape drive (,TAPE=TAPEC) at 38000 bpi, a 9-track tape drive at 6250 or 1600 bpi (,TAPE=TAPE9), or a 9-track tape drive with a density of 1600 or 800 bpi (,TAPE=TAPE8). The
default is TAPEC.
FILE=file#specifies the relative position of the file on the tape. The default is
1.
LABEL=typespecifies a non-standard tape label. The default is SL.
TRECFM=formatspecifies
a tape record format. The default is null.
TLRECL=lengthspecifies a tape logical record length. The
default is null.
TBLKS=sizespecifies a tape blocksize. The default is null.
PRIM=tracksspecifies
a primary track allocation. The default is 10.
SEC=tracksspecifies a secondary track allocation. The
default is 5.
DRECFM=formatspecifies the disk record format. The default is the value of TRECFM.
DBLKS=sizespecifies
a disk blocksize. The default is the value of TBLKS.
DDSN=namespecifies a disk data set name. The default
is the value of TDSN.
DISP=dispspecifies the disposition (PASS or DLTE)
of the tape data set upon successful job completion. The default is KEEP.
RETAIN=RETAINspecifies that the tape not be dismounted at the end of the job step. The default is null.
N1DISP=dispspecifies disposition of the disk data set at the start of the job
step. The default is NEW.
N2DISP=dispspecifies disposition of the disk data set at the end of the job
step. The default is CATLG.
UNIT=unitspecifies type of disk unit. The default is SYSDA.
DVOL=volumespecifies
the name of a specific disk volume. The default is null.
The following example shows how to create a disk data set called UF.STARTRK.PHASER from the tape file whose name is FILE1. The volume name is TAPE01. Since the tape file name does not conform to CNS data set naming conventions, using the
DDSN parameter allows you to specify a name for the disk data set.
// EXEC TAPEDISK,TDSN='FILE1',VOL=TAPE01, // DDSN='UF.STARTRK.PHASER'
The sample job shown in Figure 16 creates a disk data set called UF.NTERPRIZ.TEN.FORWARD from file 3 of a non-labeled, 9-track tape called MYTAPE.
The tape is non-labeled and contains 80-byte records. Since the tape does not have labels, you must specify the logical record length (TLRECL) and block size (TBLKS) of the tape data set, as well as a
disk data set name. Note also that the disk block size is changed.
Figure 16. Example to Copy a File from a 9-Track Tape to Disk.
/*ROUTE PRINT node.location
/*SETUP TAPE9,1
// EXEC TAPEDISK,VOL=MYTAPE,TAPE=TAPE9,LABEL=NL,
// FILE=3,TLRECL=80,TBLKS=800,
// DDSN='UF.NTERPRIZ.TEN.FORWARD',DBLKS=6160To append a tape data set named BOOKS to the end of a disk data set named UF.RESEARCH.BOOKS, code the EXEC statement as follows:
// EXEC TAPEDISK,VOL=MYTAPE,TDSN=BOOKS, // DDSN='UF.RESEARCH.BOOKS', // N1DISP=MOD