KSDS - Allocate, Load, Print, Listcat using JCL

//*  Allocate KSDS

//usernm JOB ('Training','KK'),CLASS=A,MSGCLASS=X,    
// NOTIFY=&SYSUID,PRTY=10,TIME=(,30)                     
//STEP1 EXEC PGM=IDCAMS                                  
//SYSPRINT DD SYSOUT=*                                   
//SYSIN   DD * 
//* Below statement to delete an allocated KSDS
//* DELETE usernm.JAN.KSDS                            
    DEFINE CLUSTER(              -                       
    NAME(usernm.JAN.KSDS)        -                       
    VOLUMES(USER01)              -                       
    TRACKS(10,5)                 -                          
    CISZ(4096)                   -                       
    FREESPACE(20,20)             -                       
    INDEXED                      -                       
    KEYS(6,0)                    -                       
    RECORDSIZE(80,80) )                                  
/*
//









//*  Load KSDS

//usernm JOB ('Training','KK'),CLASS=A,MSGCLASS=X,     
// NOTIFY=&SYSUID,PRTY=10,TIME=(,30)                      
//STEP1 EXEC PGM=IDCAMS                                   
//SYSPRINT DD SYSOUT=*                                    
//INPUT DD DSN=usernm.JAN.DS.DEMO,DISP=OLD             
//OUTPUT DD DSN=usernm.JAN.KSDS,DISP=OLD               
//SYSIN   DD *                                            
   REPRO          -                                       
   INFILE(INPUT)  -                                       
   OUTFILE(OUTPUT)                                        
/*                                                        
//

//*  Print ksds

//usernm JOB ('Training','KK'),CLASS=A,MSGCLASS=X,    
// NOTIFY=&SYSUID,PRTY=10,TIME=(,30)                     
//STEP1 EXEC PGM=IDCAMS                                  
//SYSPRINT DD SYSOUT=*                                   
//INPUT DD DSN=usernm.JAN.KSDS,DISP=SHR               
//SYSIN   DD *                                           
   PRINT           -                                      
   INFILE(INPUT)  CHAR                                   
/*                                                       
//                                                    

//*  Listcat KSDS

//usernm JOB ('Training','KK'),CLASS=A,MSGCLASS=X,  
// NOTIFY=&SYSUID,PRTY=10,TIME=(,30)                   
//STEP1 EXEC PGM=IDCAMS                                
//SYSPRINT DD SYSOUT=*                                 
//SYSIN   DD *                                         
   LISTCAT ENTRIES(usernm.JAN.KSDS) ALL             
/*                                                     
//