Unload the Datacom Distribution Tape

Submit the following JCL after editing it to conform to your site's standards. This job allocates the data adapter libraries and unloads the distribution tape contents into them.

//job card goes here
//UNLOAD   EXEC  PGM=IEBCOPY
//SYSPRINT DD SYSOUT=*
//INDD1    DD  DSN=DATACOM.LOAD,DISP=SHR,
//         UNIT=unit,VOL=SER=volser,LABEL=(25,SL),
//INDD2    DD  DSN=DATACOM.DATA,DISP=SHR,
//         UNIT=unit,VOL=SER=volser,LABEL=(26,SL)
//OUTDD1   DD DSN=prefix.DATACOM.LOAD,DISP=(NEW,CATLG,DELETE),
//         UNIT=SYSDA,SPACE=(TRK,(10,5,45),RLSE)
//OUTDD2   DD DSN=prefix.DATACOM.DATA,DISP=(NEW,CATLG,DELETE),
//         UNIT=SYSDA,SPACE=(TRK,(15,5,45),RLSE)
//SYSIN DD *
  COPY INDD=INDD1,OUTDD=OUTDD1
  COPY INDD=INDD2,OUTDD=OUTDD2
/*

where:

unit

Is the tape/cartridge.

volser

Is the tape/cartridge serial number.

prefix.DATACOM.LOAD

Is the data adapter load library.

prefix.DATACOM.DATA

Is the data adapter source library.

Upon successful completion there are two new PDS data sets cataloged on your system. The data set names will depend on what you specified on your IEBCOPY OUTDD1 and OUTDD2 DD cards.