RRDS Using IDCAMS

//TRNG111A JOB NOTIFY=TRNG111                                        
//S1 EXEC PGM=IDCAMS                                                  
//SYSPRINT DD SYSOUT=*                                                
//SYSIN DD *                                                          
  DEFINE CLUSTER(NAME(TRNG111.TEST.RRDS2) -                          
  NOERASE NUMBERED NOREUSE RECORDSIZE(70,90) FREESPACE(0,0) -        
  TRK(10,5) SHAREOPTIONS(1,3) SUBALLOCATION CONTROLINTERVALSIZE(1024) -
  RECOVERY