Converting to DFSMSrmm from CA-1

Chapter 6. Data extraction 303

6.6.4 Creating the empty bin records

EDGC5BIN is the empty bin program provided for CA-1 Releases 5.0, 5.1, and

5.2. If you are using a previous version of CA-1, refer to the redbook Converting

to Removable Media Manager: A Practical Guide, SG24-4998, for information

about the empty bin program and the entire conversion process.

DFSMSrmm keeps track of all of the bins (slots) that exist in each of its

shelf-managed storage locations. Each bin has a status of either “in-use” or

“empty.” CA-1 only keeps track of the in-use slots. Therefore, the purpose of

EDGC5BIN is to build E-Records that represent the empty DFSMSrmm bins by

recognizing gaps in the CA-1 in-use slot locations. It also verifies the slot

numbers and the outcode location names. If it encounters slot number 0 or

multiple volumes in a single slot, it writes an error message to the ERROR DD

data set.

If the outcode location name in the TMC volume record does not match one of

the outcode location names specified in the STORE DD data set, and the volume

has a vault slot number assigned, EDGC5BIN writes an error message to the

ERROR DD data set.

An execution parameter option is provided to allow the EDGC5BIN program to

report all of the outcode locations and the in-use and empty slots in each

outcode location. See 6.6.1, “Preparing to run the extract” on page 266 for more

information.

Planning

Before executing EDGC5BIN, you must review the preprocessing considerations

described in 6.6.1, “Preparing to run the extract” on page 266. If you decide to

reassign bin numbers or consolidate outcode locations through EDGC5LDR, do

not execute EDGC5BIN without the CHECK parameter.

Attention: The empty bin program EDGC5BIN should not be run, other

than with the CHECK parameter, if the reassign or consolidate option is

used in the execution of EDGC5LDR. The necessary empty bin records

(E-Records) are provided by EDGC5LDR when the reassign or consolidate

parameter is used.

Note: DFSMSrmm does not support a bin number of 0. The lowest bin

number is 1. DFSMSrmm does not allow more than one volume to be

assigned to a given bin in a DFSMSrmm storage location.

304 Converting to DFSMSrmm from CA-1

EDGC5BIN requires that the records in the SLOTNO input file be sorted by

outcode and slot number. This is achieved in the sort step. The sort step is also

used to include only those records required for each type of media; the volumes

are selected as either tape reels or tape cartridges. When running with the

CHECK parameter, you can pass all volume records for processing. When

creating the empty bin records, without the CHECK parameter, as long as all

vaults are named in the STORE DD data set, you can also pass all volume

records. If you want to process only part of the vaults, use the SORT INCLUDE

statement to select only the correct volume records by vault name.

If you have both tape reels and tape cartridges being sent to vault outcodes,

CA-1 automatically subvaults the tape cartridges. DFSMSrmm can handle this

using the MEDIANAME value, but you must run EDGC5BIN twice: once to

process tape reels and once to process cartridges. The sample EDGJxBIN does

this. You can separate the reels and cartridges at sort time by using the

TMCDEN field. If you do not have both types of media, you need only execute

EDGC5BIN once.

Sample JCL

Example 6-23 shows sample execution JCL for CA-1 Release 5.0 and above.

Sample JCL is supplied with DFSMSrmm as the EDGJ5BIN member of

SAMPLIB.

Example 6-23 EDGC5BIN sample JCL

//*

//* This Job is setup to use CHECK option for EDGC5BIN

//* When running without the CHECK option remember to remove the

//* LOANOUT and STOREOUT DD statements and provide valid STORE DDs

//*

//DEL EXEC PGM=IEFBR14

//DEXTOUT DD DISP=(MOD,DELETE),SPACE=(TRK,1),UNIT=SYSDA,

// DSN=STSGWD.EDGCXBIN.DEXTOUT.DATA

//STOREOUT DD DISP=(MOD,DELETE),SPACE=(TRK,1),UNIT=SYSDA,

// DSN=STSGWD.EDGCXBIN.STOREOUT.DATA

//LOANOUT DD DISP=(MOD,DELETE),SPACE=(TRK,1),UNIT=SYSDA,

// DSN=STSGWD.EDGCXBIN.LOANOUT.DATA

SORT BY OUTCODE AND VAULT SLOT NUMBER

//* INLUDING ONLY VALID STORAGE LOCATION NAME

//* FIRST SORT SELECTS JUST 3480 STYLE VOLUMES

//*

//SORT EXEC PGM=SORT,REGION=4M

//SYSOUT DD SYSOUT=*

//SORTIN DD DISP=SHR,DSN=STSGWD.TMS51.VOLRECS.DATA

//SORTOUT DD DISP=(,PASS),AVGREC=K,SPACE=(340,(3,3),RLSE),

// DSN=&&SLOT34,UNIT=SYSDA