//LNG0010  JOB (LANGUAGES),
//             'Compilers',
//             CLASS=A,
//             MSGCLASS=A,
//             MSGLEVEL=(1,1)
/*MESSAGE  *******************************************
/*MESSAGE  *                                         *
/*MESSAGE  * You will need to mount following tape:  *
/*MESSAGE  *    <tapes>/bsp002.het                   *
/*MESSAGE  *                                         *
/*MESSAGE  *******************************************
//CLEANUP EXEC PGM=IDCAMS
//SYSPRINT DD  SYSOUT=*
//SYSIN    DD  *
 DELETE SYS1.COBLIB  NONVSAM
 DELETE SYS1.FORTLIB NONVSAM
 DELETE SYS1.PL1LIB  NONVSAM
 DELETE SYS1.SORTLIB NONVSAM
 SET LASTCC = 0
 SET MAXCC  = 0
//RELOAD  EXEC PGM=IEBCOPY,REGION=1024K
//SYSPRINT DD  SYSOUT=A
//COBLIB   DD  DISP=(NEW,CATLG,DELETE),
//             DSN=SYS1.COBLIB,
//             UNIT=3350,
//             VOL=SER=MVSRES,
//             SPACE=(TRK,(6,0,13)),
//             DCB=SYS1.LINKLIB
//FORTLIB  DD  DISP=(NEW,CATLG,DELETE),
//             DSN=SYS1.FORTLIB,
//             UNIT=3350,
//             VOL=SER=MVSRES,
//             SPACE=(TRK,(14,0,35)),
//             DCB=SYS1.LINKLIB
//PL1LIB   DD  DISP=(NEW,CATLG,DELETE),
//             DSN=SYS1.PL1LIB,
//             UNIT=3350,
//             VOL=SER=MVSRES,
//             SPACE=(TRK,(122,,90)),
//             DCB=SYS1.LINKLIB
//SORTLIB  DD  DISP=(NEW,CATLG,DELETE),
//             DSN=SYS1.SORTLIB,
//             UNIT=3350,
//             VOL=SER=MVSRES,
//             SPACE=(TRK,(21,,21)),
//             DCB=SYS1.LINKLIB
//TAPEIN1  DD  DSN=COB.LIB,
//             UNIT=TAPE,
//             DISP=(OLD,KEEP),
//             VOL=(PRIVATE,RETAIN,SER=BSP002),
//             LABEL=(1,SL)
//TAPEIN2  DD  DSN=FOR.LIB,
//             UNIT=AFF=TAPEIN1,
//             DISP=(OLD,KEEP),
//             VOL=REF=*.TAPEIN1,
//             LABEL=(2,SL)
//TAPEIN3  DD  DSN=PL1.LIB,
//             UNIT=AFF=TAPEIN2,
//             DISP=OLD,
//             VOL=REF=*.TAPEIN1,
//             LABEL=(3,SL)
//TAPEIN4  DD  DSN=SORT.LIB,
//             UNIT=AFF=TAPEIN3,
//             DISP=OLD,
//             VOL=REF=*.TAPEIN1,
//             LABEL=(4,SL)
//TAPEIN5  DD  DSN=LINK.LIB,
//             UNIT=AFF=TAPEIN4,
//             DISP=OLD,
//             VOL=REF=*.TAPEIN1,
//             LABEL=(5,SL)
//TAPEIN6  DD  DSN=PROC.LIB,
//             UNIT=AFF=TAPEIN5,
//             DISP=OLD,
//             VOL=REF=*.TAPEIN1,
//             LABEL=(6,SL)
//LINKLIB  DD  DISP=SHR,DSN=SYS2.LINKLIB
//PROCLIB  DD  DISP=SHR,DSN=SYS2.PROCLIB
//SYSIN    DD  *
  COPY INDD=LINKLIB,OUTDD=LINKLIB
  COPY INDD=PROCLIB,OUTDD=PROCLIB
  COPY INDD=((TAPEIN1,R)),OUTDD=COBLIB
  COPY INDD=((TAPEIN2,R)),OUTDD=FORTLIB
  COPY INDD=((TAPEIN3,R)),OUTDD=PL1LIB
  COPY INDD=((TAPEIN4,R)),OUTDD=SORTLIB
  COPY INDD=((TAPEIN5,R)),OUTDD=LINKLIB
  COPY INDD=((TAPEIN6,R)),OUTDD=PROCLIB
/*
//
