Allocate the Base Structure

//DSCOBOLB JOB (1), 'ALLOCATE LIBRARIES',
//         CLASS=A,MSGCLASS=H,MSGLEVEL=(1,1)
//****************************************************************
//*
//*************************
//* CLEAN UP DATASETS
//*************************
//DELETE   EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT   DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//DD1      DD DSN=DSCOBOL.BASE.COBOL,
//            DISP=(MOD,DELETE,DELETE),
//            SPACE=(CYL,(0)),
//            UNIT=3350,VOL=SER=DSCOB1
//DD2      DD DSN=DSCOBOL.BASE.COPYLIB,
//            DISP=(MOD,DELETE,DELETE),
//            SPACE=(CYL,(0)),
//            UNIT=3350,VOL=SER=DSCOB1
//DD3      DD DSN=DSCOBOL.BASE.JCL,
//            DISP=(MOD,DELETE,DELETE),
//            SPACE=(CYL,(0)),
//            UNIT=3350,VOL=SER=DSCOB1
//DD4      DD DSN=DSCOBOL.BASE.LOADLIB,
//            DISP=(MOD,DELETE,DELETE),
//            SPACE=(CYL,(0)),
//            UNIT=3350,VOL=SER=DSCOB1
//DD5      DD DSN=DSCOBOL.BASE.PROCLIB,
//            DISP=(MOD,DELETE,DELETE),
//            SPACE=(CYL,(0)),
//            UNIT=3350,VOL=SER=DSCOB1
//*
//*************************
//* ALLOCATE DATASETS
//*************************
//ALLOCAT EXEC PGM=IEFBR14,COND=(8,LT)
//SYSOUT   DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
/*
//DD1      DD DSN=DSCOBOL.BASE.COBOL,
//            DISP=(,CATLG),
//            UNIT=3350,VOL=SER=DSCOB1,
//            SPACE=(CYL,(1,1,20)),
//            DCB=(RECFM=FB,LRECL=80,BLKSIZE=19040)
/*
//DD2      DD DSN=DSCOBOL.BASE.COPYLIB,
//            DISP=(,CATLG),
//            UNIT=3350,VOL=SER=DSCOB1,
//            SPACE=(CYL,(1,1,20)),
//            DCB=(RECFM=FB,LRECL=80,BLKSIZE=19040)
/*
//DD3      DD DSN=DSCOBOL.BASE.JCL,
//            DISP=(,CATLG),
//            UNIT=3350,VOL=SER=DSCOB1,
//            SPACE=(CYL,(1,1,20)),
//            DCB=(RECFM=FB,LRECL=80,BLKSIZE=19040)
/*
//DD4      DD DSN=DSCOBOL.BASE.LOADLIB,
//            DISP=(,CATLG),
//            UNIT=3350,VOL=SER=DSCOB1,
//            SPACE=(CYL,(1,1,20)),
//            DCB=(RECFM=U,BLKSIZE=19069)
/*
//DD5      DD DSN=DSCOBOL.BASE.PROCLIB,
//            DISP=(,CATLG),
//            UNIT=3350,VOL=SER=DSCOB1,
//            SPACE=(CYL,(1,1,20)),
//            DCB=(RECFM=FB,LRECL=80,BLKSIZE=19040)
/*
//*