Example

In Figure 55, two existing page sets are copied onto two new page sets. The procedure for this is:

1. Set up the required DDnames, where:

   CSQP0005, CSQP0006

   Identify the destination data sets. These DDnames are used by the FORMAT function.

   CSQS0005, CSQS0006

   Identify the source data sets containing the two page sets you want to copy.

   CSQT0005, CSQT0006

   Identify the destination data sets (page sets), but this time for the COPYPAGE function.

2. Format the destination data sets, referenced by DDnames CSQP0005 and CSQP0006, as page sets using the FORMAT function.

3. Copy the two existing page sets onto the new page sets using the COPYPAGE function.

Figure 55. Sample JCL showing the use of the COPYPAGE function

//COPYPAGE EXEC PGM=CSQUTIL
//STEPLIB  DD   DISP=SHR,DSN=thlqual.SCSQANLE
//         DD   DISP=SHR,DSN=thlqual.SCSQAUTH
//CSQP0005 DD   DISP=OLD,DSN=pageset.newname5
//CSQP0006 DD   DISP=OLD,DSN=pageset.newname6
//CSQS0005 DD   DISP=OLD,DSN=pageset.oldname5
//CSQS0006 DD   DISP=OLD,DSN=pageset.oldname6
//CSQT0005 DD   DISP=OLD,DSN=pageset.newname5
//CSQT0006 DD   DISP=OLD,DSN=pageset.newname6
//SYSPRINT DD   SYSOUT=*
//SYSIN    DD   *
* Format new data sets (CSQP0005 and CSQP0006) as page sets
 FORMAT
* Copy old page sets CSQS0005 and CSQS0006 to new
* page sets CSQT0005 and CSQT0006
 COPYPAGE
/*