Copying Members Have Alias Names
Copying Members Have Alias Names
The COPY or COPYGRP statement is used to copy members with alias names from one PDS (or PDSE) to another.
Rules -
- All members with their aliases are copied if they copy an entire PDS to a new one.
- If merging a PDS with another, members or aliases will not change on the output PDS.
- When selectively copying, we need to specify every member name, including their aliases.
- To exclude a member, we should specify that member's name and all of its alias names to exclude it from the copy operation.
Practical Example -
Scenario - Copying member (COPY) and its alias (COPYALIA) from one PDS to another.
Input -
JCL -
----+----1----+----2----+----3----+----4----+----5----+
//MATEPKC JOB (123),'MTH',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),
// NOTIFY=&SYSUID
//***********************************************
//* COPY MEMBER AND ITS ALIAS
//***********************************************
//STEP10 EXEC PGM=IEBCOPY
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSDUMP DD SYSOUT=*
//SYSUT1 DD DSN=MATEPK.IEBCOPY.INPPDS,DISP=SHR
//SYSUT2 DD DSN=MATEPK.IEBCOPY.OUTPDS,DISP=OLD
//SYSIN DD *
COPY INDD=SYSUT1,OUTDD=SYSUT2
SELECT MEMBER=(FIRSTPRG,FSTALIAS)
/*
Job Status -
Output -
Explaining Example -
- SYSUT1 DD DSN=MATEPK.IEBCOPY.INPPDS - Specifies the input PDS.
- SYSUT2 DD DSN=MATEPK.IEBCOPY.OUTPDS - Specifies the output PDS.
- COPYGRP INDD=SYSUT1,OUTDD=SYSUT2 - Copies members from SYSUT1 to SYSUT2.
- SELECT MEMBER=(FIRSTPRG,FSTALIAS) - Copies member FIRSTPRG and its alias FSTALIAS from SYSUT1 to SYSUT2.