Tuesday, 17 April 2012

RRDS


//RRDS JOB 1
//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
  DEFINE CLUSTER -
  (NAME(KC03H0E.RRDS2.CLUSTER) -
  VOLUMES(VSAM02) -
  CYLINDERS(200) -
  CONTROLINTERVALSIZE(4096) -
  RECORDSIZE(50,50) -
  NUMBERED)
/*
//

No comments:

Post a Comment