mainframesguru.com

Search this site

JCL Utilities Tutorial

                                       About Us        Services        Courses        Case Studies        Mainframe Forum        Mainframe Jobs        Contact Us         Mainframe Connectivity


                                                                     http://www.mainframesguru.com
UTILITY PROGARM: IEFBR14

JCL to allocate the new Physical Sequential data set

//IND220CL JOB (123),'INDUS',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1), 
//             NOTIFY=&SYSUID,REGION=6M                         
//***************************************************************
//* JCL JOB EXECUTING THE IEFBR14 UTILTITY TO ALLOCATE PS DATA SE
//***************************************************************
//STEP10   EXEC PGM=IEFBR14                                     
//SYSPRINT DD SYSOUT=*                                          
//SYSOUT   DD SYSOUT=*                                          
//SYSDUMP  DD SYSOUT=*                                          
//DD1      DD DSN=IND220.INDUS.EMPFILE.TST7,                    
//            DISP=(NEW,CATLG,DELETE),                          
//            SPACE=(TRK,(1,1),RLSE),                           
//            UNIT=SYSDA,                                       
//            DCB=(DSORG=PS,RECFM=FB,LRECL=23,BLKSIZE=230)      
//                                                              

 

JCL to allocate the new Partitioned data set(PDS) using IEFBR14.

//IND220CL JOB (123),'INDUS',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1), 
//             NOTIFY=&SYSUID,REGION=6M                         
//***************************************************************
//* JCL JOB EXECUTING THE IEFBR14 UTILTITY TO ALLOCATE PDS DATA S
//***************************************************************
//STEP10   EXEC PGM=IEFBR14                                     
//SYSPRINT DD SYSOUT=*                                          
//SYSOUT   DD SYSOUT=*                                          
//SYSDUMP  DD SYSOUT=*                                          
//DD1      DD DSN=IND220.INDUS.COBPGMS,                         
//            DISP=(NEW,CATLG,DELETE),                          
//            SPACE=(TRK,(10,10,10),RLSE),                      
//            UNIT=SYSDA,                                       
//            DCB=(DSORG=PO,RECFM=FB,LRECL=80,BLKSIZE=800)      
//                                                              


To delete the data set:

//IND220CL JOB (123),'INDUS',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1), 
//             NOTIFY=&SYSUID,REGION=6M                         
//*********************************************************     
//* JCL STEP TO DELETE THE DATASET USING IEFBR14                
//*********************************************************     
//STEP20   EXEC PGM=IEFBR14                                     
//SYSPRINT DD SYSOUT=*                                          
//SYSOUT   DD SYSOUT=*                                          
//SYSDUMP  DD SYSOUT=*                                          
//DD1      DD DSN=IND220.INDUS.COBPGMS,                         
//            DISP=(OLD,DELETE,DELETE)                          
//                                                              


UTILITY PROGARM: IEBGENER

To copy PS data set to PS data set.

//IND220SO JOB (123),'INDUS',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),                          
//             NOTIFY=&SYSUID                
//***************************************************           
//*DEMO JCL TO SHOW THE IEBGENR UTILTITY                        
//***************************************************           
//STEP10   EXEC PGM=IEBGENER                                    
//SYSPRINT DD SYSOUT=*                                          
//SYSOUT   DD SYSOUT=*                                          
//SYSDUMP  DD SYSOUT=*                                          
//SYSUT1   DD DSN=IND220.INDUS.EMPFILE,DISP=SHR                 
//SYSUT2   DD DSN=IND220.INDUS.EMPFILE.BACKUP,                  
//            DISP=(NEW,CATLG,DELETE),                          
//            SPACE=(TRK,(1,1),RLSE),                           
//            UNIT=SYSDA,                                       
//            DCB=(DSORG=PS,RECFM=FB,LRECL=23,BLKSIZE=230)      
//SYSIN    DD DUMMY                                             
//                                                              


UTILITY PROGARM: IEBCOPY

To copy PDS data set to PDS data set.

//IND220CL JOB (123),'INDUS',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1), 
//             NOTIFY=&SYSUID,REGION=6M                         
//***************************************************           
//* DEMO JCL TO SHOW THE IEBCOPY UTILTITY                       
//* TO COPY PDS TO PDS                                          
//***************************************************           
//STEP10   EXEC PGM=IEBCOPY                                     
//SYSPRINT DD SYSOUT=*                                          
//SYSOUT   DD SYSOUT=*                                          
//SYSDUMP  DD SYSOUT=*                                          
//SYSUT1   DD DSN=IND220.INDUS.COBOL,DISP=SHR                   
//SYSUT2   DD DSN=IND220.INDUS.VIJAY.COBOL.BACKUP,              
//            DISP=(NEW,CATLG,DELETE),                          
//            SPACE=(TRK,(10,10,10),RLSE),                      
//            UNIT=SYSDA,                                       
//            DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=800)      
//SYSIN    DD *                                                 
     COPY INDD=SYSUT1,OUTDD=SYSUT2                              
//                                                              


UTILITY PROGARM: IEBCOPY

To selectively copy PDS members to the another PDS.

//IND220CL JOB (123),'INDUS',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1), 
//             NOTIFY=&SYSUID,REGION=6M                         
//***************************************************           
//* DEMO JCL TO SHOW THE IEBCOPY UTILTITY                       
//* TO COPY SELECTIVE MEMBERS                                   
//***************************************************           
//STEP10   EXEC PGM=IEBCOPY                                     
//SYSPRINT DD SYSOUT=*                                          
//SYSOUT   DD SYSOUT=*                                          
//SYSDUMP  DD SYSOUT=*                                          
//SYSUT1   DD DSN=IND220.INDUS.COBOL,DISP=SHR                   
//SYSUT2   DD DSN=IND220.INDUS.VIJAY.COBOL.TST1,                
//            DISP=(NEW,CATLG,DELETE),                          
//            SPACE=(TRK,(10,10,10),RLSE),                      
//            UNIT=SYSDA,                                       
//            DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=800)      
//SYSIN    DD *                                                 
     COPY INDD=SYSUT1,OUTDD=SYSUT2                              
     SELECT MEMBER=PARMPGM,PARMPGM$                             
/*
//                                                              


To exclude some of the members

//IND220CL JOB (123),'INDUS',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1), 
//             NOTIFY=&SYSUID,REGION=6M                         
//***************************************************           
//* DEMO JCL TO SHOW THE IEBCOPY UTILTITY                       
//* TO EXCLUDE SOME OF THE MEMBERS                              
//***************************************************           
//STEP10   EXEC PGM=IEBCOPY                                     
//SYSPRINT DD SYSOUT=*                                          
//SYSOUT   DD SYSOUT=*                                          
//SYSDUMP  DD SYSOUT=*                                          
//SYSUT1   DD DSN=IND220.INDUS.COBOL,DISP=SHR                   
//SYSUT2   DD DSN=IND220.INDUS.VIJAY.COBOL.TST2,                
//            DISP=(NEW,CATLG,DELETE),                          
//            SPACE=(TRK,(10,10,10),RLSE),                      
//            UNIT=SYSDA,                                       
//            DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=800)      
//SYSIN    DD *                                                 
     COPY INDD=SYSUT1,OUTDD=SYSUT2                              
     EXCLUDE MEMBER=PARMPGM,PARMPGM$                            
//                                                              


To compress the PDS, use the same PDS in INDD and OUTDD.

//IND220CL JOB (123),'INDUS',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1), 
//             NOTIFY=&SYSUID,REGION=6M                         
//***************************************************           
//* DEMO JCL TO SHOW THE IEBCOPY UTILTITY                       
//* TO COMPRESS THE PDS DATA SET                                
//***************************************************           
//STEP10   EXEC PGM=IEBCOPY                                     
//SYSPRINT DD SYSOUT=*                                          
//SYSOUT   DD SYSOUT=*                                          
//SYSDUMP  DD SYSOUT=*                                          
//SYSUT1   DD DSN=IND220.INDUS.COBOL,DISP=SHR                   
//SYSIN    DD *                                                 
     COPY INDD=SYSUT1,OUTDD=SYSUT1                              
//                                                              
//IND220CL JOB (123),'INDUS',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1), 
//             NOTIFY=&SYSUID,REGION=6M                         
//***************************************************           
//* DEMO JCL TO SHOW THE IEBCOMPR UTILTITY                      
//* TO COMPARE THE PDS TO PDS                                   
//***************************************************           
//STEP10   EXEC PGM=IEBCOMPR                                    
//SYSPRINT DD SYSOUT=*                                          
//SYSOUT   DD SYSOUT=*                                          
//SYSDUMP  DD SYSOUT=*                                          
//SYSUT1   DD DSN=IND220.INDUS.COBOL,DISP=SHR                   
//SYSUT2   DD DSN=IND220.INDUS.VIJAY.COBOL.BACKUP,DISP=SHR      
//SYSIN    DD *                                                 
      COMPARE TYPORG=PO                                         
//                                                              

 

UTILITY PROGRAM: IEBCOMPR

To compare the PS to PS and PDS to PDS data sets..

//IND220CL JOB (123),'INDUS',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1), 
//             NOTIFY=&SYSUID,REGION=6M                         
//***************************************************           
//* DEMO JCL TO SHOW THE IEBCOMPR UTILTITY                      
//* TO COMPARE THE PS TO PS                                     
//***************************************************           
//STEP10   EXEC PGM=IEBCOMPR                                    
//SYSPRINT DD SYSOUT=*                                          
//SYSOUT   DD SYSOUT=*                                          
//SYSDUMP  DD SYSOUT=*                                          
//SYSUT1   DD DSN=IND220.VIJAY.PS,DISP=SHR                      
//SYSUT2   DD DSN=IND220.VIJAY.PS.TST1,DISP=SHR                 
//SYSIN    DD DUMMY                                             
//                                                              


UTILITY PROGRAM: External SORT

//IND220SO JOB (123),'INDUS',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),                          
//             NOTIFY=&SYSUID                
//***************************************************           
//*DEMO JCL TO SHOW THE SORT UTILTITY WITH COPY OPTION          
//***************************************************           
//STEP10   EXEC PGM=SORT                                        
//SYSPRINT DD SYSOUT=*                                          
//SYSOUT   DD SYSOUT=*                                          
//SYSDUMP  DD SYSOUT=*                                          
//SORTIN   DD DSN=IND220.PRIYA.COBOL.EMPFILE,DISP=SHR           
//SORTOUT  DD DSN=IND220.PRIYA.COBOL.SOROUT,                    
//            DISP=(NEW,CATLG,DELETE),                          
//            SPACE=(TRK,(1,1),RLSE),                           
//            UNIT=SYSDA,                                       
//            DCB=(DSORG=PS,RECFM=FB,LRECL=30,BLKSIZE=300)      
//SORTWK01 DD SPACE=(TRK,(1,1),RLSE),UNIT=SYSDA                 
//SORTWK02 DD SPACE=(TRK,(1,1),RLSE),UNIT=SYSDA                 
//SYSIN    DD *                                                 
   SORT FIELDS=(1,3,CH,A)                                       
//                                                              


SORT


//IND220SO JOB (123),'INDUS',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),                          
//             NOTIFY=&SYSUID                
//***************************************************           
//*DEMO JCL TO SHOW THE SORT UTILTITY WITH COPY OPTION          
//***************************************************           
//STEP10   EXEC PGM=SORT                                        
//SYSPRINT DD SYSOUT=*                                          
//SYSOUT   DD SYSOUT=*                                          
//SYSDUMP  DD SYSOUT=*                                          
//SORTIN   DD DSN=IND220.PRIYA.COBOL.EMPFILE,DISP=SHR           
//SORTOUT  DD DSN=IND220.PRIYA.COBOL.EMPFILE.TST1,              
//            DISP=(NEW,CATLG,DELETE),                          
//            SPACE=(TRK,(1,1),RLSE),                           
//            UNIT=SYSDA,                                       
//            DCB=(DSORG=PS,RECFM=FB,LRECL=30,BLKSIZE=300)      
//SORTWK01 DD SPACE=(TRK,(1,1),RLSE),UNIT=SYSDA                 
//SORTWK02 DD SPACE=(TRK,(1,1),RLSE),UNIT=SYSDA                 
//SYSIN    DD *                                                 
   SORT FIELDS=COPY,                                            
   SKIPREC=2,                                                   
   STOPAFT=2                                                    
//                                                              

 

Merging the files:

//IND220SO JOB (123),'INDUS',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),                          
//             NOTIFY=&SYSUID                
//***************************************************           
//*DEMO JCL TO SHOW THE SORT UTILTITY WITH COPY OPTION          
//***************************************************           
//STEP10   EXEC PGM=SORT                                        
//SYSPRINT DD SYSOUT=*                                          
//SYSOUT   DD SYSOUT=*                                          
//SYSDUMP  DD SYSOUT=*                                          
//SORTIN01 DD DSN=IND220.PRIYA.COBOL.EMPFILE,DISP=SHR           
//SORTIN02 DD DSN=IND220.PRIYA.COBOL.SORTOUT,DISP=SHR           
//SORTOUT  DD DSN=IND220.PRIYA.COBOL.MEROUT,                    
//            DISP=(NEW,CATLG,DELETE),                          
//            SPACE=(TRK,(1,1),RLSE),                           
//            UNIT=SYSDA,                                       
//            DCB=(DSORG=PS,RECFM=FB,LRECL=30,BLKSIZE=300)      
//SORTWK01 DD SPACE=(TRK,(1,1),RLSE),UNIT=SYSDA                 
//SORTWK02 DD SPACE=(TRK,(1,1),RLSE),UNIT=SYSDA                 
//SYSIN    DD *                                                 
   MERGE FIELDS=(1,3,CH,A)                                      
//                                                              


Eliminating the duplicate records in the input file.


//IND220SO JOB (123),'INDUS',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),                          
//             NOTIFY=&SYSUID                
//***************************************************           
//*DEMO JCL TO SHOW THE SORT UTILTITY WITH COPY OPTION          
//***************************************************           
//STEP10   EXEC PGM=SORT                                        
//SYSPRINT DD SYSOUT=*                                          
//SYSOUT   DD SYSOUT=*                                          
//SYSDUMP  DD SYSOUT=*                                          
//SORTIN   DD DSN=IND220.PRIYA.COBOL.EMPFILE,DISP=SHR           
//SORTOUT  DD DSN=CZA058.PRIYA.COBOL.DUPELIM.TST4,              
//            DISP=(NEW,CATLG,DELETE),                          
//            SPACE=(TRK,(1,1),RLSE),                           
//            UNIT=SYSDA,                                       
//            DCB=(DSORG=PS,RECFM=FB,LRECL=30,BLKSIZE=300)      
//SORTWK01 DD SPACE=(TRK,(1,1),RLSE),UNIT=SYSDA                 
//SORTWK02 DD SPACE=(TRK,(1,1),RLSE),UNIT=SYSDA                 
//SYSIN    DD *                                                 
   SORT FIELDS=COPY                                             
   SUM FIELDS=NONE                <========   note this                             
/*                                                              
//                                                              

 


GENERATION DATA GROUPS:

Define GDG and the model data set allocation.

//IND220VI JOB (123),'INDUS',CLASS=A,MSGCLASS=A,                
//         MSGLEVEL=(1,1),REGION=6M,NOTIFY=&SYSUID              
//* JOB TO CREATE THE MODEL AND GDG INDEX                       
//STEP1    EXEC PGM=IDCAMS                                      
//SYSPRINT DD SYSOUT=*                                          
//SYSOUT   DD SYSOUT=*                                          
//MODEL    DD DSN=IND220.INDUS.MODEL.STUDENT,                   
//            DISP=(NEW,CATLG,DELETE),                          
//            SPACE=(TRK,0),                                    
//            UNIT=SYSDA,                                       
//            DCB=(DSORG=PS,RECFM=FB,LRECL=44,BLKSIZE=440)      
//SYSIN    DD *                                                 
  DEFINE GDG(NAME(IND220.INDUS.STUDENT.GDG) -                   
  LIMIT(3) -                                                    
  NOEMPTY -                                                     
  SCRATCH)                                                      
/*                                                              
//                                                              


Creating the GDG versions

//IND220VI JOB (123),'INDUS',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1), 
//         NOTIFY=&SYSUID                                       
//STEP1    EXEC PGM=WRIPGM                                      
//STEPLIB  DD DSN=IND220.INDUS.LOADLIB,DISP=SHR                 
//SYSPRINT DD SYSOUT=*                                          
//SYSOUT   DD SYSOUT=*                                          
//DD1      DD DSN=IND220.INDUS.STUDENT.GDG(+1),                 
//         DISP=(NEW,CATLG,DELETE),                             
//         SPACE=(TRK,(1,1),RLSE),                              
//         UNIT=SYSDA,                                          
//         VOL=SER=OZAV07,                                      
//         DCB=(IND220.INDUS.MODEL.STUDENT)                     
//SYSIN    DD *                                                 
1111                                                            
VIJAY                                                           
TANUKU                                                          
YES                                                             
2222                                                            
BHASKAR                                                         
TANUKU                                                          
YES                                                             
3333                                                            
ANDUKURI                                                        
TANUKU                                                          
NO                                                              
/*                                                              
//                                                              


Define VSAM KSDS Cluster:

//IND220SO JOB (123),'INDUS',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),                          
//             NOTIFY=&SYSUID                
//***************************************************           
//* TO DEFINE THE KEY SEQUENCED DATA SET (KSDS)                 
//***************************************************           
//STEPOZA  EXEC PGM=IDCAMS                                      
//SYSPRINT DD  SYSOUT=*                                         
//SYSOUT   DD  SYSOUT=*                                         
//SYSIN    DD  *                                                
  DEFINE CLUSTER(NAME(IND220.INDUS.STUDENT.CLUSTER)   -         
  RECORDSIZE(44,44)    -                                        
  CYLINDERS(3,2)       -                                        
  FREESPACE(10,20)     -                                        
  KEYS(4,0)            -                                        
  CISZ(4096)           -                                        
  INDEXED)             -                                        
  INDEX(NAME(IND220.INDUS.STUDENT.INDEX)) -                     
  DATA(NAME(IND220.INDUS.STUDENT.DATA))                         
/*                                                              
//                                                              


Define VSAM ESDS Cluster:

//IND220ES JOB (123),'INDUS',MSGLEVEL=(1,1),REGION=6M,          
//             CLASS=A,MSGCLASS=A,NOTIFY=&SYSUID                
//***************************************************           
//* SAMPLE JCL TO CREATE ENTRY SEQUENCED DATA SET(ESDS)         
//***************************************************           
//STEPOZA  EXEC PGM=IDCAMS                                      
//SYSPRINT DD  SYSOUT=*                                         
//SYSOUT   DD  SYSOUT=*                                         
//SYSIN    DD  *                                                
  DEFINE CLUSTER(NAME(IND220.INDUS.STUDENT.ESDS.CLUSTER)-       
  RECORDSIZE(44,44)-                                            
  CYLINDERS(3,2)-                                               
  CISZ(4096)-                                                   
  NONINDEXED) -                                                 
  DATA(NAME(IND220.INDUS.STUDENT.ESDS.DATA))                    
/*                                                              
//                                                              

 

Define VSAM RRDS Cluster:

//IND220SO JOB (123),'INDUS',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),                          
//             NOTIFY=&SYSUID                
//***************************************************           
//*SAMPLE JCL TO CREATE RRDS                                    
//***************************************************           
//STEPOZA  EXEC PGM=IDCAMS                                      
//SYSPRINT DD  SYSOUT=*                                         
//SYSOUT   DD  SYSOUT=*                                         
//SYSIN    DD  *                                                
  DEFINE CLUSTER(NAME(IND220.INDUS.RRDS.CLUSTER)  -             
  RECORDSIZE(44,44)  -                                          
  CYLINDERS(3,2)  -                                             
  NUMBERED)  -                                                  
  DATA(NAME(IND220.INDUS.RRDS.DATA))                            
/*                                                              
//                                                              
 
Define Alternate index
 
//IND220SO JOB (123),'INDUS',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),                          
//             NOTIFY=&SYSUID                
//***************************************************           
//*SAMPLE JCL TO CREATE ALTERNATE INDEX                         
//***************************************************           
//STEPOZA  EXEC PGM=IDCAMS                                      
//SYSPRINT DD  SYSOUT=*                                         
//SYSOUT   DD  SYSOUT=*                                         
//SYSIN    DD  *                                                
  DEFINE AIX  -                                                 
  (NAME(IND220.INDUS.STUDENT.CLUSTER.ALX) -                     
  RELATE(IND220.INDUS.STUDENT.CLUSTER) -                        
  CISZ(4096) -                                                  
  KEYS(20,4) -                                                  
  NONUNIQUEKEY -                                                
  UPGRADE-                                                      
  RECORDSIZE(29,29)-                                            
  CYLINDERS(3,2)-                                               
  FREESPACE(10,20)-                                             
  )                                                             
/*                                                              
//                                                              

Define path

//IND220SO JOB (123),'INDUS',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),                          
//             NOTIFY=&SYSUID                
//***************************************************           
//*SAMPLE JCL TO DEFINE PATH                                    
//***************************************************           
//STEPOZA  EXEC PGM=IDCAMS                                      
//SYSPRINT DD  SYSOUT=*                                         
//SYSIN    DD  *                                                
  DEFINE PATH (NAME(IND220.INDUS.STUDENT.CLUSTER.PATH) -        
               PATHENTRY(IND220.INDUS.STUDENT.CLUSTER.ALX) UPDATE
/*                                                              
//                                                              

Build index command

//IND220SO JOB (123),'INDUS',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),                          
//             NOTIFY=&SYSUID                
//***************************************************           
//*SAMPLE JCL TO BUILD ALTERNATE INDEX                          
//***************************************************           
//STEP     EXEC PGM=IDCAMS                                      
//SYSPRINT DD  SYSOUT=*                                         
//SYSIN    DD  *                                                
  BLDINDEX -                                                    
        INDATASET(IND220.INDUS.STUDENT.CLUSTER) -               
        OUTDATASET(IND220.INDUS.STUDENT.CLUSTER.ALX)            
/*                                                              
//                                                              
 
IDCAMS print command

//IND220PR JOB (123),'INDUS',CLASS=A,MSGCLASS=A,                
//             MSGLEVEL=(1,1),NOTIFY=&SYSUID,REGION=6M          
//***************************************************           
//*SAMPLE JCL TO PRINT/DISPLAY VSAM DATA                        
//***************************************************           
//STEPOZA  EXEC PGM=IDCAMS                                      
//SYSPRINT DD SYSOUT=*                                          
//SYSOUT   DD SYSOUT=*                                          
//DDIN     DD DSN=IND220.INDUS.STUDENT.CLUSTER.ALX,DISP=SHR     
//SYSIN    DD *                                                 
  PRINT -                                                       
  INFILE(DDIN) -                                                
  CHAR                                                          
/*                                                              
//                                                              
 
IDCAMS ALTER COMMAND:

//IND220LC JOB (1234),'INDUS',MSGLEVEL=(1,1),REGION=6M          
//             CLASS=A,MSGCLASS=A,NOTIFY=&SYSUID                
//*******************************************************       
//*DEMO JCL TO SHOW THE IDCAMS UTILTITY WITH ALTER OPTION       
//*******************************************************       
//STEP10   EXEC PGM=IDCAMS                                      
//SYSPRINT DD SYSOUT=*                                          
//SYSOUT   DD SYSOUT=*                                          
//SYSDUMP  DD SYSOUT=*                                          
//SYSIN    DD *                                                 
     ALTER IND220.INDUS.CUSTOMER.INDEX  -                       
     NEWNAME(IND220.INDUS.VIJAY.INDEX)                          
/*                                                              
//                                                              
 

//IND220LC JOB (1234),'INDUS',MSGLEVEL=(1,1),REGION=6M          
//             CLASS=A,MSGCLASS=A,NOTIFY=&SYSUID                
//*******************************************************       
//*DEMO JCL TO SHOW THE IDCAMS UTILTITY WITH ALTER OPTION       
//*******************************************************       
//STEP10   EXEC PGM=IDCAMS                                      
//SYSPRINT DD SYSOUT=*                                          
//SYSOUT   DD SYSOUT=*                                          
//SYSDUMP  DD SYSOUT=*                                          
//SYSIN    DD *                                                 
     ALTER IND220.INDUS.VIJAY.DATA  -                           
     ADDVOLUMES(OZAV05) -                                       
     REMOVEVOLUMES(OZAV11)                                      
/*                                                              
//                                                              
 
//IND220LC JOB (1234),'INDUS',MSGLEVEL=(1,1),REGION=6M          
//             CLASS=A,MSGCLASS=A,NOTIFY=&SYSUID                
//**************************************************************
//* ALTER THE FREESPACE PARAMETERS USING THE IDCAMS UTILITY     
//**************************************************************
//STEP10   EXEC PGM=IDCAMS                                      
//SYSPRINT DD SYSOUT=*                                          
//SYSOUT   DD SYSOUT=*                                          
//SYSDUMP  DD SYSOUT=*                                          
//SYSIN    DD *                                                 
     ALTER IND220.INDUS.VIJAY.DATA  -                           
     FREESPACE(30 30)                                           
/*                                                              
//                                                              
                                                             
       IND220.INDUS.SUTDENT.PSFILE                              
                                                                
=COLS> ----+----1----+----2----+----3----+----4----             
000001 1111AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA             
000002 2222BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB             
000003 3333CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC             
000004 4444DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD             
000005 5555EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE             
000006 6666FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF             
000007 7777GGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGG             
000008 8888HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH             
000009 9999IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII             
                                                                

IDCAMS REPRO COMMAND:

//IND220EX JOB (1234),'INDUS',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),
//             NOTIFY=&SYSUID,REGION=6M                         
//***************************************************           
//*SAMPLE JCL REPRO/COPY DATA FROM PS TO VSAM KSDS              
//* USING REPOR WE CAN COPY ANY FILE TO ANY FILE                
//***************************************************           
//STEPOZA  EXEC PGM=IDCAMS                                      
//SYSPRINT DD SYSOUT=*                                          
//SYSOUT   DD SYSOUT=*                                          
//SYSIN    DD  *                                                
  REPRO -                                                       
  INDATASET(IND220.INDUS.SUTDENT.PSFILE) -                      
  OUTDATASET(IND220.INDUS.SUTDENT.KSDS.CLUSTER) -               
  SKIP(3) -                                                     
  COUNT(3)                                                      
/*                                                              
//                                                              
 
//IND220EX JOB (1234),'INDUS',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),
//             NOTIFY=&SYSUID,REGION=6M                         
//***************************************************           
//* SAMPLE JCL REPRO/COPY DATA FROM VSAM KSDS TO PS             
//* USING REPOR WE CAN COPY ANY FILE TO ANY FILE                
//***************************************************           
//STEPOZA  EXEC PGM=IDCAMS                                      
//SYSPRINT DD SYSOUT=*                                          
//SYSOUT   DD SYSOUT=*                                          
//DD1      DD DSN=IND220.INDUS.SUTDENT.KSDS.CLUSTER,DISP=SHR    
//DD2      DD DSN=IND220.INDUS.SUTDENT.PSFILE.TST1,             
//            DISP=(NEW,CATLG,DELETE),                          
//            SPACE=(TRK,(1,1),RLSE),                           
//            UNIT=SYSDA,                                       
//            DCB=(DSORG=PS,RECFM=FB,LRECL=44,BLKSIZE=440)      
//SYSIN    DD  *                                                
  REPRO -                                                       
  INFILE(DD1) -                                                 
  OUTFILE(DD2) -                                                
  FROMKEY(4444) -                                               
  TOKEY(5555)                                                   
/*                                                              
//                                                              
 
IDCAMS PRINT COMMAND:
//IND220PR JOB (123),'INDUS',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1), 
//             NOTIFY=&SYSUID,REGION=6M                         
//***************************************************           
//* SAMPLE JCL TO PRINT/DISPLAY VSAM DATA                       
//***************************************************           
//STEPOZA  EXEC PGM=IDCAMS                                      
//SYSPRINT DD SYSOUT=*                                          
//SYSOUT   DD SYSOUT=*                                          
//DDIN     DD DSN=IND220.INDUS.SUTDENT.KSDS.CLUSTER,DISP=SHR    
//SYSIN    DD *                                                 
  PRINT -                                                       
  INFILE(DDIN) -                                                
  CHAR                                                          
/*                                                              
//                                                              
 
//IND220PR JOB (123),'INDUS',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1), 
//             NOTIFY=&SYSUID,REGION=6M                         
//***************************************************           
//* SAMPLE JCL TO PRINT/DISPLAY VSAM DATA                       
//***************************************************           
//STEPOZA  EXEC PGM=IDCAMS                                      
//SYSPRINT DD SYSOUT=*                                          
//SYSOUT   DD SYSOUT=*                                          
//SYSIN    DD *                                                 
  PRINT -                                                       
  INDATASET(IND220.INDUS.SUTDENT.KSDS.CLUSTER) -                
  FROMKEY(4444) -                                               
  TOKEY(5555) -                                                 
  HEX                                                           
/*                                                              
//                                                              

IDCAMS LISTCAT COMMAND:
//IND220LC JOB (1123),CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),        
//             NOTIFY=&SYSUID,REGION=6M                         
//***************************************************           
//*DEMO JCL TO SHOW THE IEBGENR UTILTITY                        
//***************************************************           
//STEP10   EXEC PGM=IDCAMS                                      
//SYSPRINT DD SYSOUT=*                                          
//SYSOUT   DD SYSOUT=*                                          
//SYSDUMP  DD SYSOUT=*                                          
//SYSIN    DD *                                                 
     LISTCAT ENTRIES(IND220.INDUS.CUSTOMER.CLUSTER) -           
     VOLUME                                                     
/*                                                              
//                                                              
 
EXPORT COMMAND

//SSS013EX JOB (20,FB3),PARAMESH,CLASS=A,MSGLEVEL=(1,1),TIME=20,
//            NOTIFY=&SYSUID,MSGLEVEL=A,REGION=6M               
//STEP1    EXEC PGM=IDCAMS                                      
//SYSPRINT DD SYSOUT=*                                          
//DD1      DD DSN=SSS013.PARA2.KSDS.BACKUP,                     
//            DISP=(NEW,CATLG,DELETE),                          
//            UNIT=SYSDA,                                       
//            DCB=(BLKSIZE=8000)                                
//SYSIN    DD *                                                 
  EXPORT -                                                      
  SSS013.PARA2.KSDS.CLUSTER    -                                
  OUTFILE(DD1)                 -                                
  TEMPORARY                    -                                
  INHIBITSOURCE                -                                
  INHIBITTARGET                                                 
/*                                                              
                                                                
IMPORT COMMAND                                                             
                                                                
//SSS013IM JOB (20,FB3),PARAMESH,CLASS=A,MSGCLASS=A,TIME=20,    
//            MSGLEVEL=(1,1),NOTIFY=&SYSUID,REGION=6M           
//*THIS IMPORT AND EXPORT COMMAND USED ONLY FOR VSAMFILE.       
//STEP1    DD DSN=IDCAMS                                        
//SYSPRINT DD SYSOUT=*                                          
//DD1      DD DSN=SSS013.STU.KSDS.BACKUP,                       
//            DISP=SHR                                          
//SYSIN    DD *                                                 
  IMPORT -                                                      
  INFILE(DD1) -                                                 
  OUTDATASET(SSS013.STU.KSDS.CLUSTER)                           
/*                                                              
//                                                              
                                                                

ALTER COMMND                                                                
                                                                
 //SSS013MO JOB (20,FB3),PARAMESH,CLASS=A,MEGCLASS=A,TIME=20,   
 //            MSGLEVEL=(1,1),NOTIFY=&SYSUID,REGION=6M          
 //STEP1      EXEC PGM=IDCAMS                                   
 //SYSPRINT DD SYSOUT=*                                         
 //SYSIN    DD *                                                
   ALTER -                                                      
   COBOL.LOAD(PROGRAM1) -                                       
   NEWNAME(COBOL.LOAD(PROGRAM2))                                
 /*                                                             
 //                                                             
                                                                
MODEL COMMANDS                                                                
                                                              
//SSS032MO JOB (20,FB3),PARAMESH,CLASS=A,MEGCLASS=A,TIME=20,    
//            MSGLEVEL=(1,1),NOTIFY=&SYSUID,REGION=6M           
STEP1      EXEC PGM=IDCAMS                                      
//SYSPRINT DD SYSOUT=*                                          
//SYSIN    DD *                                                 
  REPRO -                                                       
  INDATASET(SSS013.STU.PS) -                                    
  OUTDATASET(SSS013.STU.KSDS)                                   
  IF LASTCC = 0                                                 
      THEN                                                      
         DELETE (SSS013.STU.PS)                                 
/*                                                              
//                                                              
                                                                    http://www.mainframesguru.com