//GENER27 JOB ,'DANA MAXFIELD     ',
//         MSGCLASS=S,MSGLEVEL=(1,1)
//*
//*        THIS JCL TAKES EACH MEMBER OF A PARTIONED DATASET
//*        NAMED COINEWM.MIDAS.DATA AND ADDS IT TO A
//*        SEQUENTIAL DATASET NAMED COINEWM.MIDAS.TEMP
//*
//*        THE SKELETON FOR THIS JCL WAS GENERATED WITH
//*        THE IEBGENER OPTION OF THE TAPES PANEL.
//*
/*JOBPARM SHIFT=D,L=999
//*
//COPY    PROC
//         EXEC PGM=IEBGENER,TIME=3
//SYSPRINT DD SYSOUT=*
//SYSUT1   DD DSN=&DSN,DISP=SHR
//SYSUT2   DD DSN=COINEWM.MIDAS.TEMP,DISP=OLD
//SYSIN    DD DUMMY
//         PEND
//*
//STEP1   EXEC COPY,
//         DSN='COINEWM.DANA.PGM(A)'
//
