Utilities and Procedures › CATRMFI - Initialize the Retention Master File › CATRMFI Procedure JCL

CATRMFI Procedure JCL

//RMFINIT  JOB
//DEFINE   EXEC PGM=IDCAMS,REGION=4096K
//SYSPRINT DD   SYSOUT=*
//SYSIN    DD   *
  DELETE CAI.RMF
  DEFINE CLUSTER                      -
         (NAME (CAI.RMF)              -
          VOL(ASM011)                 -
          RECSZ(200 200)              -
          SHR(3 3) INDEXED REPL       -
          IMBED KEYS(52 1))           -
          DATA                        -
          (NAME(CAI.RMF.DATA)         -
          FREESPACE(40 30)            -
          TRK(3 3))                   -
          INDEX                       -
          (NAME(CAI.RMF.INDEX) -
          TRK(1 1))
/*
//*
//RMFINIT  EXEC CATRMFE
//RMFINIT.SYSIN DD *
  /* * * * * * * * * * * * * */
  /*   INITIALIZE THE RMF    */
  /* * * * * * * * * * * * * */
  INIT
/*
//
//RMFCONV  EXEC CATRMFE
//RMFCONV.SYSIN DD *
  /* * * * * * * * * * * * * * */
  /* CONVERT OLD RMF TO PM RMF */
  /* * * * * * * * * * * * * * */
  CONVERT
/*
//
//RMFUPDT  EXEC CATRMFE
//RMFUPDT.SYSIN DD *
  /* * * * * * * * * * * * * * */
  /* INITIAL UPDATE OF  PM RMF */
  /* * * * * * * * * * * * * * */
  ADDLOC ID(DC)  DESC(DATA CENTER (DC) )
  ADDRTN DSN(DEFAULT)                OWNER(TAPE LIBRARIAN) +
         RTN(2DC )
/*
//