COPYGRP

COPYGRP Example

COPYGRP Tutorial   

Scenario - Copying members and their aliases from one PDS to another.

JCL -

----+----1----+----2----+----3----+----4----+----5----+
//MATEPKC  JOB (123),'MTH',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),
//             NOTIFY=&SYSUID
//********************************************************
//* TO COPY SELECTED MEMBERS FROM ONE PDS TO ANOTHER PDS  
//********************************************************
//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 *
      COPYGRP   INDD=SYSUT1,OUTDD=SYSUT2
      SELECT MEMBER=(IDENTDIV,LEVELNUM)
/*

Job Status -

COPYGRP Job Status

Output -

COPYGRP 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=(IDENTDIV,LEVELNUM) - Copies members COPY, COPYPDS from SYSUT1 to SYSUT2.