IDCAMS create dataset

Sample JCL job to create dataset using IDCAMS

Create a fixed length record sequential dataset

//TESTIDCC JOB  CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1),NOTIFY=&SYSUID
//*-----------------------------------------------------------------
//STEP02   EXEC PGM=IDCAMS
//SYSOUT   DD  SYSOUT=*
//SYSPRINT DD  SYSOUT=*
//SYSUDUMP DD  SYSOUT=*
//SYSIN  DD   *
  DELETE <UID>.TEST.DATA

  IF MAXCC LE 8 THEN -
  ALLOCATE DATASET('<UID>.TEST.DATA')  	   -
                  LRECL(80)                     -
                  RECFM(F B)                    -
                  BLKSIZE(800)                  -
                  SPACE(1,1)                    -
                  CYL
/*

Create a variable length record sequential dataset

//TESTIDCC JOB  CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1),NOTIFY=&SYSUID
//*-----------------------------------------------------------------
//STEP02   EXEC PGM=IDCAMS
//SYSOUT   DD  SYSOUT=*
//SYSPRINT DD  SYSOUT=*
//SYSUDUMP DD  SYSOUT=*
//SYSIN  DD   *                                                         
  DELETE 'UID.TEST.DATA'

  IF MAXCC LE 8 THEN -
  ALLOCATE DATASET('<UID>.TEST.DATA')   -
                  LRECL(80)                     -
                  RECFM(V B)                    -
                  BLKSIZE(800)                  -
                  SPACE(1,1)                    -
                  CYL
/*

Create a ESDS VSAM dataset

//CRESDS  JOB  CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1),NOTIFY=&SYSUID
//*-----------------------------------------------------------------
//STEP1    EXEC PGM=IDCAMS
//SYSOUT   DD  SYSOUT=*
//SYSPRINT DD  SYSOUT=*
//SYSUDUMP DD  SYSOUT=*
//SYSIN  DD   *
  DELETE (UID.TEST.ESDS)
  SET MAXCC = 0

  DEFINE CLUSTER(                           -
                 NAME(<UID>.TEST.ESDS)      -
                 TRACKS(1 1)                -
                 RECORDSIZE(12 20)          -
                 CISZ(512)                  -
                 NONINDEXED                 -
                )                           -
         DATA(                              -
                 NAME(<UID>.TEST.ESDS.DATA) -
             )
//

Create a RRDS VSAM dataset

//CRRRDS  JOB  CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1),NOTIFY=&SYSUID
//*-----------------------------------------------------------------
//STEP1    EXEC PGM=IDCAMS
//SYSOUT   DD  SYSOUT=*
//SYSPRINT DD  SYSOUT=*
//SYSUDUMP DD  SYSOUT=*
//SYSIN  DD   *
  DELETE 'UID.TEST.RRDS'
  SET MAXCC = 0

  DEFINE CLUSTER(                         	-
                 NAME(<UID>.TEST.RRDS)  	-
                 TRACKS(1 1)              	-
                 RECORDSIZE(16 16)        	-
                 CISZ(512)                	-
                 NUMBERED                 	-
                )                         	-
         DATA(                            	-
                 NAME(<UID>.TEST.RRDS.DATA)     -
             )
/*
//

Create a KSDS VSAM dataset

//CRKSDS  JOB  CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1),NOTIFY=&SYSUID
//*-----------------------------------------------------------------
//STEP1    EXEC PGM=IDCAMS
//SYSOUT   DD  SYSOUT=*
//SYSPRINT DD  SYSOUT=*
//SYSUDUMP DD  SYSOUT=*
//SYSIN  DD   *
  DELETE (UID.TEST.KSDS)
  SET MAXCC = 0

  DEFINE CLUSTER(                         	-
                 NAME(<UID>.TEST.KSDS)  	-
                 TRACKS(1 1)              	-
                 RECORDSIZE(16 16)         	-
                 CISZ(512)                	-
                 INDEXED                  	-
                 KEYS(2 0)                	-
                )                         	-
         DATA(                            	-
                 NAME(<UID>.TEST.KSDS.DATA)     -
             )                            	-
         INDEX(                           	-
                 NAME(<UID>.TEST.KSDS.INDEX)    -
             )
/*
//