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