Sample JCL

The following JCL can be used to copy the files from the 3480 tape cartridge up to a host z/OS® system. Add an appropriate JOB statement for the host system and change 'hlq' to an appropriate data set qualifier.

//*
//FILE01   EXEC PGM=IEBGENER
//*
//SYSPRINT DD SYSOUT=*
//SYSIN    DD DUMMY
//*
//SYSUT1   DD DSN=README,DISP=SHR,
//            UNIT=3480,VOL=(PRIVATE,RETAIN,,,SER=5799TC),
//            LABEL=(1,SL),EXPDT=98000
//*
//SYSUT2   DD DSN=hlq.README,DISP=(NEW,CATLG),
//            SPACE=(1,(100,100),RLSE),AVGREC=K
//*
//*
//FILE02   EXEC PGM=IEBGENER,COND=(4,LT)
//*
//SYSPRINT DD SYSOUT=*
//SYSIN    DD DUMMY
//*
//SYSUT1   DD DSN=H3100300.PDF,DISP=SHR,
//            UNIT=3480,VOL=(PRIVATE,RETAIN,REF=*.FILE01.SYSUT1),
//            LABEL=(2,SL),EXPDT=98000
//*
//SYSUT2   DD DSN=hlq.H3100300.PDF,DISP=(NEW,CATLG),
//            SPACE=(1,(1000,1000),RLSE),AVGREC=K
//*
//*
//FILE03   EXEC PGM=IEBGENER,COND=(4,LT)
//*
//SYSPRINT DD SYSOUT=*
//SYSIN    DD DUMMY
//*
//SYSUT1   DD DSN=ASML1020.PDF,DISP=SHR,
//            UNIT=3480,VOL=(PRIVATE,RETAIN,REF=*.FILE01.SYSUT1),
//            LABEL=(3,SL),EXPDT=98000
//*
//SYSUT2   DD DSN=hlq.ASML1020.PDF,DISP=(NEW,CATLG),
//            SPACE=(1,(1000,1000),RLSE),AVGREC=K
//*
//*
//FILE04   EXEC PGM=IEBGENER,COND=(4,LT)
//*
//SYSPRINT DD SYSOUT=*
//SYSIN    DD DUMMY
//*
//SYSUT1   DD DSN=ASMA90.RPM,DISP=SHR,
//            UNIT=3480,VOL=(PRIVATE,RETAIN,REF=*.FILE01.SYSUT1),
//            LABEL=(4,SL),EXPDT=98000
//*
//SYSUT2   DD DSN=hlq.ASMA90.RPM,DISP=(NEW,CATLG),
//            SPACE=(1,(1000,1000),RLSE),AVGREC=K
//*