FDR DASD COPY Examples

All examples in this section are found in the JCL library installed with FDR. The member names are EX1012x.

Copy a DASD volume with duplicate backup example

Copy a 3390 volume to another 3390 volume, creating a backup on tape at the same time. CPYVOLID=NO and VOLRESET=YES are specified so the volume serial of the DASD volume being copied to is retained and the VTOCIX and ABR model DSCB is renamed to match the new volume serial number. This is appropriate when you do not plan to relabel the output volume back to the volume serial number of the input, however, VSAM clusters become unusable. All of the data sets on the volume being copied are enqueued during the copy. Neither volume can be SMS-managed.

//COPY EXEC PGM=FDR,REGION=0M //SYSPRINT DD SYSOUT=* //SYSPRIN1 DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //DISK1 DD UNIT=SYSALLDA,DISP=OLD,VOL=SER=SYSRES //TAPE1 DD UNIT=SYSALLDA,DISP=OLD,VOL=SER=DUPRES //TAPE11 DD UNIT=TAPE,DISP=(,CATLG),DSN=SYSRES.BACKUP, // VOL=(,,,20) //SYSIN DD * COPY TYPE=FDR,DSNENQ=HAVE,CPYVOLID=NO,VOLRESET=YES /*

Copy a DASD volume changing the volume serial example

Copy a 3390 volume to another 3390 volume of the same size. The volume serial number of the receiving volume is changed to the volume being copied. The output volume is automatically set offline at the end of the restore. To replace the original with the copy, you must vary the original volume offline on all systems, and vary on the new copy.

//COPY EXEC PGM=FDR,REGION=0M //SYSPRINT DD SYSOUT=* //SYSPRIN1 DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //DISK1 DD UNIT=SYSALLDA,DISP=OLD,VOL=SER=DISK01 //TAPE1 DD UNIT=SYSALLDA,DISP=OLD,VOL=SER=DISK02 //SYSIN DD * COPY TYPE=FDR,DSNENQ=USE,CPYVOLID=YES /*

Copy to larger DASD example

Convert a 3390-3 (3339 cylinders) to a 3390-9 (10017 cylinders) DASD volume, with a direct DASD-to-DASD copy, creating a backup copy on tape cartridges as well. The volume serial of the 3390-9 (D3390A) is changed to the volume serial of the 3390-3 (D3390B), and the new volume is automatically placed offline at the end of the copy. At that time, the original volume should be varied offline, and the new volume should be mounted. Free space is automatically adjusted to include the additional cylinders. If the original volume had an indexed VTOC, it must be rebuilt on the new volume (see Rebuild Indexed VTOC Example).

//COPY EXEC PGM=FDR,REGION=0M //SYSPRINT DD SYSOUT=* //SYSPRIN1 DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //DISK1 DD UNIT=SYSALLDA,DISP=OLD,VOL=SER=D3390B <--- 3390-3 //TAPE1 DD UNIT=SYSALLDA,DISP=OLD,VOL=SER=D3390A <--- 3390-9 //SYSIN DD * COPY TYPE=FDR,DSNENQ=USE,CPYVOLID=YES /*

Copy to smaller DASD example

Convert a 3390-27 (32760 cylinders) to a 3390-9 (10017 cylinders) volume, with a direct DASD-to-DASD copy. FDR does not normally allow a copy or restore to a smaller density DASD volume; COMPAKTOR is recommended for that function. However, if the larger DASD volume has no data sets allocated past the end of the smaller DASD (cylinder 10016 in this example), FDR can do this copy or restore with PROT=NONE.

All of the comments in the previous example (Copy to Larger DASD Example) apply.

//COPY EXEC PGM=FDR,REGION=0M //SYSPRINT DD SYSOUT=* //SYSPRIN1 DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //DISK1 DD UNIT=SYSALLDA,DISP=OLD,VOL=SER=D33927 <--- 3390-27 //TAPE1 DD UNIT=SYSALLDA,DISP=OLD,VOL=SER=D33909 <--- 3390-9 //SYSIN DD * COPY TYPE=FDR,DSNENQ=USE,CPYVOLID=YES,PROT=NONE /*

Copy to an EAV volume example

Convert a 3390-54 (65,520 cylinders) to a 3390-A (262,668 cylinders) volume, with a direct DASD-to-DASD copy. The volume serial of the 3390-A (D3390A) is changed to the volume serial of the 3390-54 (D33954), and the new volume is automatically placed offline at the end of the copy. At that time, the original volume should be varied offline, and the new volume should be mounted. Free space is automatically adjusted to include the additional cylinders. If the original volume had an indexed VTOC, it must be rebuilt on the new volume (see Rebuild Indexed VTOC Example).

Important

The COPY function of FDR only copies to the first 65,520 cylinders on the EAV volume. You need to use FDRCOPY or FDRDSF to move data sets to the space beyond cylinder 65,520.

//COPY EXEC PGM=FDR,REGION=0M //SYSPRINT DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //DISK1 DD UNIT=SYSALLDA,DISP=OLD,VOL=SER=D33954 <--- 3390-54 //TAPE1 DD UNIT=SYSALLDA,DISP=OLD,VOL=SER=D3390A <--- 3390-A //SYSIN DD * COPY TYPE=FDR,DSNENQ=USE,CPYVOLID=YES /*