Sunday, September 8, 2019

JCL for creation of RRDS VSAM file

//IBMUSERA JOB NOTIFY=&SYSUID
//*****CREATION OF RRDS*******
//S1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
  DEFINE CLUSTER (NAME(IBMUSER.RATNESH.RRDS)-
  VOLUMES(ZASYS1)-
  CISZ(4096)-
  RECORDSIZE(80,80)-
  TRK(10,10)-
  NUMBERED)
/*

No comments:

Post a Comment