FDRCOPY Data Set MOVE Examples

FDRCOPY MOVE moves data sets from one DASD volume to another. The output data sets may have the same name as the originals, or may be modified to have new names (using NEWNAME=, NEWGROUP=, or NEWINDEX=). In either case, if the move is successful, the original data set is scratched and the catalog is updated to point to the new data set. By default, data sets are not moved if they are currently in use (allocated to another task).

BMC also has the FDRMOVE product that builds on the proven technology of FDRPAS (volume migration) and FDRINSTANT (instant data set copy) to provide non-disruptive or minimally-disruptive movement of individual data sets. FDRMOVE is a separately licensed product and is documented in FDRPAS online documentation.

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

Move Non-VSAM volumes example

MOVE non-VSAM data sets to a new volume under their original names, and scratch the original data sets. They are recataloged to the output volume unless they are currently cataloged to a volume other than the input volume. All ISPF data sets (“ISPF” anywhere in their names) on the input volume are moved except PROFILE data sets (last index level of “PROFILE”). The recatalog and scratch is done only if the copy was successful. The EXCLUDE statement automatically excludes all VSAM files. The input and output volumes are specified by DISK1 and TAPE1 DD statements, but could also have been specified by VOL= and NVOL= operands on the SELECT statement.

//MOVE EXEC PGM=FDRCOPY,REGION=0M //SYSPRINT DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //DISK1 DD UNIT=SYSALLDA,VOL=SER=TSO001,DISP=OLD //TAPE1 DD UNIT=SYSALLDA,VOL=SER=TSO002,DISP=OLD //SYSIN DD * MOVE TYPE=DSF EXCLUDE ALLDSN,DSORG=EF EXCLUDE DSN=**.PROFILE SELECT DSN=**ISPF** /*

Move data sets selected from the catalog example

MOVE cataloged data sets to a new volume. The CATDSN= operand causes the volumes the data sets are cataloged on to be processed as input volumes. One specific data set, plus all DB2 data sets, are moved (the mask on the second SELECT selects only DB2 clusters). All selected data sets are moved to volume 3390T1.

//MOVE EXEC PGM=FDRCOPY,REGION=0M //SYSPRINT DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //SYSIN DD * MOVE TYPE=DSF SELECT CATDSN=MY.DATASET,NVOL=3390T1 SELECT CATDSN=*.DSNDBC.*.*.I0001.A*,NVOL=3390T1 /*

Combine several volumes onto one volume example

Combine three 3390-9 volumes (selected by VOL=TSO1*) onto a single 3390-27 volume, by moving all of the data sets (including all non-VSAM and all single-volume VSAM clusters). If the data sets were cataloged to the input volume, the catalog is updated to point to the data set's new volume. If the input volumes contain indexed VTOCs, VVDSs, or ABR Model DSCB data sets they are automatically excluded (message FDR159 REASON=3 is produced and can be ignored. No abend or error code results.) The three input volumes are processed one at a time.

//COMBINE EXEC PGM=FDRCOPY,REGION=0M //SYSPRINT DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //SYSIN DD * MOVE TYPE=DSF SELECT ALLDSN,VOL=TSO1*,NVOL=TSO91A /*

Split one volume into several volumes example

MOVE all data sets from a 3390-9 to several 3390-3 volumes (including all non-VSAM and all single-volume VSAM clusters). If the data sets were cataloged to the input volume, the catalog is updated to point to the data set's new volumes. If the input volume contains an indexed VTOC, VVDS, or ABR Model DSCB they are automatically excluded (message FDR159 REASON=3 is produced and can be ignored. No abend or error code results.) “NVOL=3390D*” selects all online DASD volumes whose volume serial number starts with “3390D” for output; the DASD volume with the lowest device address is used until data sets can no longer be allocated on it, then the next such volume is used.

//SPLIT EXEC PGM=FDRCOPY,REGION=0M //SYSPRINT DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //SYSIN DD * MOVE TYPE=DSF SELECT ALLDSN,VOL=3390T1,NVOL=3390D* /*