Using volumes with duplicate volume serial numbers

Define a VLPOOL rack pool to reserve shelf space for duplicate volumes. You can use the next available empty rack number as the unique volume serial number for a new duplicate volume. For example, define a VLPOOL with the PREFIX(D*) to manage duplicate volumes. Volume ABC001 is a duplicate volume because it has standard labels that contain the volser ABC001 and it matches the volume ABC001 that is defined to DFSMSrmm. You can define ABC001 to DFSMSrmm as a duplicate volume by using a unique external volume serial number.

Use the RMM VOLUME subcommands with the VOL1 operand to define a unique volume serial number for each volume that has a duplicate VOL1 volume serial number. Change the external label, and optionally the barcode, to match the new unique volume serial number. In this example, the next available rack in the D* pool is D00010. Use the D00010 value to add the duplicate volume.

For example:

RMM ADDVOLUME D00010 STATUS(MASTER) VOL1(ABC001)

When you use the DFSMSrmm ISPF dialog to define volumes, DFSMSrmm automatically detects when you have added a volume that duplicates a volume that was already defined to DFSMSrmm. The dialog prompts you with options so that you can add the new volume as a duplicate, or change the existing volume to a duplicate and add the new volume using its existing name.

Example: Obtain information about duplicate volumes defined to DFSMSrmm by issuing the RMM SEARCHVOLUME TSO subcommand. You can also use the DFSMSrmm ISPF dialog by selecting the VOL1 field of the Search Volume panel.

RMM SEARCHVOLUME VOLUME(*) VOL1(*) LIMIT(*) OWNER(*)

To label a volume as a duplicate volume, use the EDGINERS utility manual processing with the VOL1 operand on the command in the SYSIN file.Then you can label the volume. If DFSMSrmm already knows the correct VOL1 label volume serial number, you do not need the VOL1 operand on the EDGINERS INIT command. Specify the VOL1 operand on the INIT command to override the value recorded in the DFSMSrmm control data set. DFSMSrmm writes this value to the tape label.

Example: Label a volume as a duplicate volume.

//MANUAL   EXEC PGM=EDGINERS
//SYSPRINT DD SYSOUT=*
//TAPE     DD UNIT=(tape,,DEFER)
//SYSIN    DD *
INIT VOLUME(D00001) LABEL(SL) VOL1(ABC123)
/*

If the volume is not defined to DFSMSrmm, specify the VOL1 operand to label the volume with a value different from the volume serial number used to define the volume to DFSMSrmm. Add the volume as a MASTER volume rather than a SCRATCH volume. This example shows how to label a duplicate volume using the EDGINERS utility.

Example: Define a volume to DFSMSrmm with the external volume serial number D00001 and label it with the VOL1 label volume serial number ABC123.

INIT VOLUME(ABC123,D00001) VOL1(ABC123) LABEL(SL) POOL(F*) -
   MEDIANAME(3590)

When you use EDGINERS automatic processing, the new volume label is written so that the VOL1 label volume serial number matches the volume serial number and the VOL1 label volume serial number value recorded by DFSMSrmm is cleared.