Copying from multiple dump data sets

The stand-alone dump program allows a dump to be contained in multiple dump data sets. Therefore, when you want to view a stand-alone dump using IPCS, it is necessary to concatenate all of the dump data sets onto one DASD data set.

Use the JCL in Figure 1 to invoke the IPCS COPYDUMP subcommand to copy stand-alone dump output from three DASD dump data sets to another data set. Note that two of the dump data sets reside on the volume SADMP1, while the third resides on the volume SADMP2.

Figure 1. Example: Copying a stand-alone dump from multiple DASD data sets

//SADCOPY  JOB MSGLEVEL=(1,1)
//COPY     EXEC PGM=IKJEFT01
//SYSTSPRT DD SYSOUT=A
//C1       DD DSN=SADMP1.DDS1,DISP=SHR,UNIT=DASD,VOL=SER=SADMP1
//C2       DD DSN=SADMP1.DDS2,DISP=SHR,UNIT=DASD,VOL=SER=SADMP1
//C3       DD DSN=SYS1.SADMP,DISP=SHR,UNIT=DASD,VOL=SER=SADMP2
//COPYTO   DD DSN=SADUMP.COPY,UNIT=DASD,
//            VOL=SER=SADCPY,DISP=(NEW,CATLG),
//            DCB=(RECFM=FBS,LRECL=4160,DSORG=PS),
//            SPACE=(4160,(8000,4000),RLSE)
//SYSTSIN DD  *
  IPCS NOPARM DEFER
  COPYDUMP OUTFILE(COPYTO) NOCONFIRM INFILE(C1, C2, C3)
  END
/*

Use the JCL shown in Figure 2 to invoke the IPCS COPYDUMP subcommand to copy stand-alone dump output from two DASD dump data sets and two tape volumes to a DASD data set.

Figure 2. Example: Copying stand-alone dump output from DASD and tape

//SADCOPY  JOB MSGLEVEL=(1,1)
//COPY     EXEC PGM=IKJEFT01
//SYSTSPRT DD SYSOUT=A
//C1       DD  DSN=SYS1.SADMP.MAIN.DDS1,DISP=SHR,UNIT=DASD,
//             VOL=SER=SADMP1
//C2       DD  DSN=SYS1.SADMP.ALTERNAT.DDS1,DISP=SHR,UNIT=DASD,
//             VOL=SER=SADMP2
//C3       DD  DSN=SYS1.SADMP.MAIN.DDS1,DISP=SHR,UNIT=TAPE,
//             VOL=SER=SADMP3
//C4       DD  DSN=SYS1.SADMP.ALTERNAT.DDS1,DISP=SHR,UNIT=TAPE,
//             VOL=SER=SADMP4
//COPYTO   DD  DSN=SADUMP.COPY,UNIT=DASD,
//             VOL=SER=SADCPY,DISP=(NEW,CATLG),
//             DCB=(RECFM=FBS,LRECL=4160,DSORG=PS),
//             SPACE=(2080,(1600,800),RLSE)
//SYSTSIN DD  *
  IPCS NOPARM
  COPYDUMP OUTFILE(COPYTO) NOCONFIRM INFILE((C1,C2,C3,C4)
  END
/*