//ORACOPY0 JOB (1,REORA,SYS,01),MSGCLASS=V,NOTIFY=&SYSUID
//STEPAMS1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//OUTDD    DD DSN=&&ORAC,DISP=(NEW,KEEP),SPACE=(CYL,(1,1)),UNIT=SYSDA
//SYSIN    DD *
   EXPORT ORAV.MPMFF1.CONTROL              -
           OUTFILE(OUTDD)                  -
           TEMPORARY                       -
           CIMODE
//STEPAMS2 EXEC PGM=IDCAMS,COND=(0,LT)
//SYSPRINT DD SYSOUT=*
//OUTDD    DD DSN=&&ORAC,DISP=SHR
//SYSIN    DD *
  DELETE ORAV.MPMFF3.CONTROL
  SET LASTCC=0
  SET MAXCC=0
  DEFINE CLUSTER ( NAME(ORAV.MPMFF3.CONTROL) VOLUMES(ORAS11) -
         CONTROLINTERVALSIZE(4096) RECORDS(400)              -
         RECORDSIZE(4089 4089) NONSPANNED UNIQUE             -
         NONINDEXED SPEED SHR(3 3) )                         -
    DATA (NAME(ORAV.MPMFF3.CONTROL.DATA))
  IMPORT INFILE(OUTDD)                                       -
         OUTDATASET(ORAV.MPMFF3.CONTROL)                     -
         INTOEMPTY                                           -
         OBJECTS(                                            -
                 (ORAV.MPMFF1.CONTROL                        -
                  NEWNAME(ORAV.MPMFF3.CONTROL)               -
                 )                                           -
                )                                            -
         CATALOG(CAT.ORACLE.UCAT)