zOs/JCL/CPLIB

//A540769W JOB (CP00,KE50),'DB2 REO',                                   00010000
//         MSGCLASS=T,TIME=1440,                                        00020000
//         NOTIFY=&SYSUID,REGION=0M                                     00030000
//*MAIN CLASS=LOG0                                                      00040000
//CPDELETE EXEC PGM=IEFBR14                                             00050000
//SYSDE2   DD DISP=(MOD,DELETE),DSN=A540769.TMP.TMPNEW                  00060000
//*                multiple problemes                                   00070000
//*                cannot move sysal2 to step cpLib                     00080000
//*                mod does not allow sharing, even if already exists|  00090000
//CPALLOC  EXEC PGM=IEFBR14                                             00100000
//SYSAL2   DD DISP=(MOD,CATLG),DSN=A540769.TMP.TMPNEW,                  00110000
//           MGMTCLAS=COM#A069,DSNTYPE=LIBRARY,                         00120000
//           DCB=(RECFM=FB,LRECL=80,DSORG=PO)           ,BLKSIZE=27920) 00130000
//CPLIB    EXEC PGM=IEBGENER                                            00140000
//SYSPRINT DD SYSOUT=*                                                  00150000
//SYSUT1   DD DISP=SHR,DSN=A540769.WK.JCL(CPLIB)                        00160000
//SYSUTX   DD *                                                         00170000
    ein zeile                                                           00180000
    zwei                                                                00190000
    und dri$tens|                                                       00200000
//SYSUT2   DD DISP=SHR,DSN=A540769.TMP.TMPNEW(CPLIBTST)                 00210000
//                                                                      00220000
//INDD     DD DISP=(NEW,CATLG),LIKE=TSU.RZ1.P0.A540769.PROF,            00230000
----+----1----+----2----+----3----+----4----+----5----+----6-           00240000
//            DSNAME=A540769.TTT.PROF                                   00250000
//SYSIN    DD *                                                         00260000
       COPY OUTDD=OUTDD,INDD=INDD                                       00270000
       SELECT MEMBER=(CPLIBTST)                                         00280000