
Multi-Dataset Processing
User Reference
Connectivity Systems, Inc.—Copyright © 2006
Use Pursuant to Company Instructions
7-19
Be sure the dataset is not already controlled before you attempt to catalog
it using this method. If the prime dataset or any subdataset is already
controlled, DISP=(x,CATLG) is ignored.
Example 1 The following example is one of the easiest situations for creating a
multi-dataset group. The program creates datasets with different DTF
names, but each DTF uses the same logical unit. The datasets are defined
in the first step and are created in the second step. The second dataset on
the tape is read in the third step. In the cataloging step, the prime dataset is
defined first. It is given a tape pool which applies to all associated
subdatasets. All other datasets are defined with the NSU parameter, which
makes them subdatasets. SUB1 and SUB2 have their own retention
parameters specified. SUB3 is assigned the BIM-EPIC system default
retention. All datasets are defined with the user ID value of TS, so they
can be easily identified as a group. The last dataset does not require the
tape and drive to be held, nor does it require a dataset drop.
// JOB XYZ
*
*
----------------------------------------------------------+
* CATALOG A PRIME DSN AND THREE SUB DSN'S +
*
----------------------------------------------------------+
*
// EXEC TSIDMNT
CAT 'PRIME' CYC=2 UID=TS TPL=A
CAT 'SUB1' NSU='PRIME' RET=14 UID=TS
CAT 'SUB2' NSU='PRIME' CYC=3 UID=TS
CAT 'SUB3' NSU='PRIME' UID=TS
/*
*
*
----------------------------------------------------------+
* CREATE A PRIME AND 3 SUB DSN'S. PROGX PERFORMS 4 OPENS, +
* ONE EACH FOR TAPE1, TAPE2, TAPE3 AND TAPE4. +
*
----------------------------------------------------------+
*
// TLBL TAPE1,'PRIME',,,,,,75 64 + 8 + 3
// TLBL TAPE2,'SUB1',,,,,,75 64 + 8 + 3
// TLBL TAPE3,'SUB2',,,,,,75 64 + 8 + 3
// TLBL TAPE4,'SUB3',,,,,,65 64 + 1
// EXEC PROGX
/*
*
*
----------------------------------------------------------+
* READ FILE=2 ONLY +
*
----------------------------------------------------------+
*
// TLBL TAPEIN,'SUB1'
// EXEC PROGY
/*
/&
Comentarios a estos manuales