Preparing data sets with program objects for transfer to IBM Support
When IBM Support asks you to provide Db2 data sets that contain program objects, you can either pack a copy of the contents and send them, or use the AMAPDUPL utility to prepare and send the contents.
About this task
IBM Support might ask you to provide them with Db2 partitioned data sets that contain program objects, such as the prefix.SDSNLOAD data set. You cannot use a pack utility directly on those data sets.
You can use either of the following methods to pack and transfer a partitioned data set that contains program objects:
- Use the procedure described below to pack a copy of the data set, and use FTP to transfer it IBM Support.
- Use the AMAPDUPL utility to prepare and send the contents of the data set to IBM Support. When you use AMAPDUPL, you do not need to pack the contents of the data set. See the AMAPDUPL documentation for usage information and examples.
Procedure
To pack the contents of a partitioned data set that contains program objects and transfer the contents to IBM Support, follow these steps.
- Use the IEBCOPY or DFDSS utility to copy the contents of the data set to a sequential data set.
- Use a utility such as the AMATERSE utility to pack the data set copy that you created in step 1.
- FTP the packed data set to IBM Support.
Example: Pack the contents of the DSN1210.SDSNLOAD data set
Use JCL similar to this example to copy the contents of the DSN1210.SDSNLOAD data set to sequential data set DSN1210.SDSNLOAD.IEBCOPY.
//JOBSTEP EXEC PGM=IEBCOPY
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//IN1 DD DSN=DSN1210.SDSNLOAD,DISP=SHR
//OUT1 DD DSN=DSN1210.SDSNLOAD.IEBCOPY,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(900,300),RLSE),
// RECFM=FB,LRECL=80,DSORG=PS
//SYSUT3 DD UNIT=VIO,SPACE=(TRK,(10,10))
//SYSUT4 DD UNIT=VIO,SPACE=(TRK,(10,10))
//SYSIN DD *
COPY INDD=IN1,OUTDD=OUT1
/*
Suppose that you are sending data for case number TS123456789 to IBM Support. Use JCL similar to this example to pack the contents of the DSN1210.SDSNLOAD.IEBCOPY data set before you transfer it to IBM Support.
//STEPNAME EXEC PGM=AMATERSE,PARM='PACK'
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DISP=SHR,DSN=DSN1210.SDSNLOAD.IEBCOPY
//SYSUT2 DD DSN=TS123456.789.SDSNLOAD.IEBCOPY.TRS,
// SPACE=(TRK,(1,1000),RLSE),
// UNIT=3390,DISP=(NEW,CATLG,DELETE)