In this example, a selected member and its aliases are copied from
a PDSE to a PDSE. Either the member's name or a maximum of eight
characters can be given on the SELECT statement. See
Copying Program Objects (COPYGRP and COPYGROUP Statements) for
information about selecting groups on COPYGRP.
//CPYGRP JOB ...
//STEP1 EXEC PGM=IEBCOPY
//SYSPRINT DD SYSOUT=A
//DDIN DD DSNAME=PDSESETA,DISP=SHR
//DDOUT DD DSNAME=PDSESETB,LIKE=PDSESETA,DSNTYPE=LIBRARY,
// DISP=(NEW,CATLG)
//SYSUT3 DD UNIT=SYSDA,SPACE=(TRK,(1,1))
//SYSIN DD *
GROUPCPY COPYGRP INDD=DDIN,OUTDD=DDOUT
SELECT MEMBER=(ALIAS001)
/*
The control statements are discussed below:
- DDIN DD defines the input data set, PDSE, which is a partitioned
data set extended.
DDOUT DD defines the output data set, PDSE,
which is a partitioned data set extended.
All PDSEs must be
managed by the Storage Management Subsystem.
The LIKE parameter
indicates that the DCB and SPACE attributes for PDSESETB are to be
copied from PDSESETA.
The DSNTYPE parameter defines the new
data set as a PDSE.
The Storage Management Subsystem chooses
an appropriate volume for the allocation.
- SYSUT3 DD defines a temporary spill data set.
- SYSIN DD defines the control data set, which follows in the input
stream. The data set contains a COPYGRP statement, an INDD statement,
and an OUTDD statement.
- COPYGRP indicates the start of the copy operation.
The INDD
parameter shows PDSESETA as the input data set.
The OUTDD parameter
shows PDSESETB as the output data set.
- The SELECT statement indicates that a group that has the alias
ALIAS001 is to be selected from the input data set (PDSESETA) and
copied to the output data set (PDSESETB).