Start of change

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.

  1. Use the IEBCOPY or DFDSS utility to copy the contents of the data set to a sequential data set.
  2. Use a utility such as the AMATERSE utility to pack the data set copy that you created in step 1.
  3. 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
/*

Start of changeSuppose 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.End of change

//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)
End of change