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))
    //*