Unloading the files from the tape

About this task

The z/OS gateway files are supplied on a 3480 tape cartridge written in non-IDRC (uncompressed) format.

Modify and submit the JCL below to unload the tape. Customize the job card and modify the following parameters according to your environment standards:

Enter an appropriate job name.

Identify a 3480 tape device.

//MVSXAUNL JOB (876903,D07),'OPCL3',MSGLEVEL=(1,1),
//        MSGCLASS=A,CLASS=A,NOTIFY=&SYSUID
//**********************************************************************
//*                                                                    *
//* THIS IS THE JOB THAT UNLOADS THE WORKLOAD SCHEDULER FOR            *
//* APPLICATIONS z/OS Access Method Version 8.4 TO CUSTOMIZE           *
//*                                                                    *
//**********************************************************************
//STEP01   EXEC PGM=IEBCOPY
//SYSPRINT DD SYSOUT=*
//INDD     DD DSN=TWSX.V8R4M0.SAMPLES,
//            DISP=(OLD,PASS),UNIT=600,
//            VOL=SER=ABC001,
//            LABEL=(1,SL)
//OUTDD    DD DSN=TWSX.V8R4M0.SAMPLES,
//            DISP=(NEW,CATLG),
//            SPACE=(32760,(2,2,10)),
//            DCB=(RECFM=FB,LRECL=80,BLKSIZE=0),
//            UNIT=3390,VOL=SER=OPC00C
//SYSUT3   DD UNIT=SYSDA,SPACE=(TRK,(20,1,10))
//SYSUT4   DD UNIT=SYSDA,SPACE=(TRK,(20,1,10))
//SYSIN    DD *
         COPY OUTDD=OUTDD,INDD=((INDD,R))
//STEP02   EXEC PGM=IEBCOPY
//SYSPRINT DD SYSOUT=*
//INDD     DD DSN=TWSX.V8R4M0.SERVICE.APFLIB1,
//            DISP=(OLD,PASS),UNIT=600,
//            VOL=SER=ABC001,
//            LABEL=(2,SL)
//OUTDD    DD DSN=TWSX.V8R4M0.SERVICE.APFLIB1,
//            DISP=(NEW,CATLG),
//            SPACE=(32760,(50,50,50)),
//            DCB=(RECFM=U,BLKSIZE=32760),
//            UNIT=3390,VOL=SER=OPC00C
//SYSUT3   DD UNIT=SYSDA,SPACE=(TRK,(20,1,10))
//SYSUT4   DD UNIT=SYSDA,SPACE=(TRK,(20,1,10))
//SYSIN    DD *
         COPY OUTDD=OUTDD,INDD=((INDD,R))
//*