CARDTAPE

Table of Contents

JCL
Examples

CARDTAPE

The CARDTAPE procedure creates a tape data set from card images, or adds card images to the end of an existing tape data set. The required parameters are the output tape volume name (VOL) and, if it is a standard labeled tape, the tape data set name (TDSN). If you do not specify any other parameters, the output tape will be a standard labeled cartridge (TAPEC) tape with the new data set occupying the first file on the tape. (If your tape already has files on it, you must specify the FILE= parameter.) The records will have a fixed-block format with a logical record length of 80 characters and a blocksize of 6160.

JCL

The JCL required to use CARDTAPE is as follows:

Figure 1. JCL to Copy Card Images to a Standard Labeled Tape

//jobname JOB (,,time,lines),'your name',CLASS=class 
/*ROUTE PRINT node.location 
/*SETUP TAPEC,1 
// EXEC CARDTAPE,VOL=volumename,TDSN='tape.dataset.name'
//GO.CARDS DD * ...card images...

Parameters

The following optional parameters can be used with the CARDTAPE procedure. Each has a default value if you do not specify the parameter. You can override the default values by specifying any of the keywords below on the EXEC statement. Each parameter must be separated by a comma.

TAPE=drive: specifies 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). Default is TAPEC.
LABEL=type: specifies other than a standard labeled tape. Default is SL.
FILE=file#: specifies the file for the new data set on the output tape. Default is 1. If your tape has multiple files, you must specify the ,FILE= parameter to avoid writing over existing files.
TLRECL=length: specifies a new logical record length. Default is 80.
TBLKS=size: specifies a new blocksize. Default is6160.
TDSN=name: specifies the tape data set name (required for a standard labeled tape). Default is null.
RETAIN=RETAIN: specifies that the tape should not be dismounted at the end of this job step. Default is null.
TRECFM=format: specifies a new record format. Default is FB.
N1DISP=disp: specifies disposition of the tape data set at the start of the job step. Default is NEW.
N2DISP=disp: specifies the disposition of the tape data set at the end of the job step. Default is KEEP.
DEN=n: overrides the default tape densities. The following chart should be used to determine the value of n:

	DEFAULT	TO SPECIFY	CODE
`TAPEC`	`38000 BPI`	-----	-----
`TAPE9`	`6250 BPI`	`1600 BPI`	`,DEN=3`
`TAPE8`	`1600 BPI`	`800 BPI`	`,DEN=2`

Examples

The following EXEC statement copies card images onto a tape called ARTGO1 using default parameters:

// EXEC CARDTAPE,VOL=ARTGO1,TDSN='UF.userid.JULY'

To specify a blocksize of 12000, code the EXEC statement as follows

// EXEC CARDTAPE,VOL=ARTGO1,TBLKS=12000,TDSN='UF.userid.JULY'

Figure 2 shows a job that copies several different sets of card images, placing each set in a different file on the tape. Use of the RETAIN parameter on each job step except the last will keep you from incurring multiple mount charges for the same tape.

Figure 2. Example to Copy Multiple Sets of Card Images to Tape

//jobname JOB (,,time,lines),'your name',CLASS=class

/*ROUTE PRINT node.location 
/*SETUP TAPEC,1 
//STEP1 EXEC CARDTAPE,VOL=ARTGO1, 
// FILE=1,TDSN='UF.userid.BLUE',RETAIN=RETAIN
//GO.CARDS DD * ...card images for file 1...
/* 
//STEP2 EXEC CARDTAPE,VOL=ARTGO1, 
// FILE=2,TDSN='UF.userid.RED',RETAIN=RETAIN 
//GO.CARDS DD * ...card images for file 2... 
/* 
//STEP3 EXEC CARDTAPE,VOL=ARTGO1, 
// FILE=3,TDSN='UF.userid.GREEN'
//GO.CARDS DD * ...card images for file 3... 
/*

To add card images to the end of an existing tape data set, code the EXEC statement as follows:

// EXEC CARDTAPE,VOL=ARTGO1, 
// TDSN='UF.userid.GREEN',N1DISP=MOD,FILE=4


CARDLIST		DISKTAPE