//*  COPY YOUR JOBCARD HERE                                             00010000
//********************************************************************* 00020000
//*                                                                   * 00030000
//*          E X E C U T E    I E B C O P Y   U T I L I T Y           * 00040000
//*                                                                   * 00050000
//*  IEBGENER IS A COPY UTILITY FOR PARTITIONED DATASETS (PDS)        * 00060000
//*  THE FOLLOWING FILES (DDNAMES) ARE REQUIRED:                      * 00070000
//*                                                                   * 00080000
//*  SYSPRINT - AN OUTPUT REPORT CONTAINING MESSAGES/ERRORS FROM      * 00090000
//*             IEBCOPY.                                              * 00100000
//*  SYSIN    - AN INPUT FILE CONTAINING COPY INFORMATION.            * 00110000
//*             IT WILL CONTAIN ONE OR MORE COPY, SELECT AND EXCLUDE  * 00120000
//*             STATEMENTS.                                           * 00130000
//*  SYSUT3   - A TEMPORARY WORKFILE.                                 * 00140000
//*  SYSUT4   - A TEMPORARY WORKFILE.                                 * 00150000
//*  SOMEDDS  - ONE OR MORE DD STATEMENTS REFERRED TO BY THE COPY     * 00160000
//*             STATEMENTS IN SYSIN.                                  * 00170000
//*                                                                   * 00180000
//********************************************************************* 00190000
//COPY     EXEC PGM=IEBCOPY                                             00200000
//SYSPRINT DD                                                           00210000
//SYSUT3   DD UNIT=SYSDA,SPACE=(CYL,(1,1))                              00220000
//SYSUT4   DD UNIT=SYSDA,SPACE=(CYL,(1,1))                              00230000
//SYSIN    DD *                                                         00240000
 COPY OUTDD=OUTFILE,INDD=INFILE                                         00250000
 SELECT MEMBER=((OLDNAME,NEWNAME,R))                                    00260000
 EXCLUDE MEMBER=(NAME,NAME)                                             00270000
/*                                                                      00280000
//INFILE   DD DSN=                                                      00290000
//OUTFILE  DD DSN=                                                      00300000
//                                                                      00310000