//RPFINST  JOB (SYS),'INSTALL RPF',CLASS=A,MSGLEVEL=(1,1)               00010000
//* ***************************************************************** * 00020000
//* RETRIVE INSTALL JCL LIBRARY                                       * 00030000
//* ***************************************************************** * 00040000
//IEBCOPY EXEC PGM=IEBCOPY,REGION=1024K                                 00050000
//SYSPRINT DD  SYSOUT=*                                                 00060000
//TAPEIN   DD  DSN=RPF.CNTL,UNIT=(TAPE,,DEFER),DISP=OLD,                00070000
//             VOL=(PRIVATE,RETAIN,SER=RPF153),LABEL=(4,SL)             00080000
//PDSOUT   DD  DSN=&&RPFCNTL,UNIT=3350,DISP=(,PASS),                    00090000
//             SPACE=(TRK,(15,15,5))                                    00100000
//SYSUT3   DD  UNIT=SYSDA,SPACE=(80,(60,45)),DISP=(NEW,DELETE)          00110000
//SYSIN    DD  *                                                        00120000
  COPY INDD=TAPEIN,OUTDD=PDSOUT                                         00130000
//* ***************************************************************** * 00140000
//* PRINT INSTALL MEMBER                                              * 00150000
//* ***************************************************************** * 00160000
//PRINT    EXEC PGM=IEBGENER                                            00170000
//SYSPRINT DD  SYSOUT=*                                                 00180000
//SYSUT1   DD  DSN=&&RPFCNTL(INSTRPF),DISP=(OLD,PASS)                   00190000
//SYSUT2   DD  SYSOUT=*                                                 00200000
//SYSIN    DD  DUMMY                                                    00210000
//* ***************************************************************** * 00220000
//* PUNCH INSTALL MEMBER                                              * 00230000
//* ***************************************************************** * 00240000
//PRINT    EXEC PGM=IEBGENER                                            00250000
//SYSPRINT DD  SYSOUT=*                                                 00260000
//SYSUT1   DD  DSN=&&RPFCNTL(INSTRPF),DISP=(OLD,DELETE)                 00270000
//SYSUT2   DD  SYSOUT=B                                                 00280000
//SYSIN    DD  DUMMY                                                    00290000
//                                                                      00300000