//UTB00X   JOB NOTIFY=&SYSUID,TIME=(,10)                                  
//SKAPA   EXEC PGM=IDCAMS                                                
//SYSPRINT  DD SYSOUT=*                                                  
//SYSIN     DD *                                                         
  DELETE UTB00.CA01.FREQGDG                                              
  DEFINE GDG ( -                                                         
     NAME(UTB00.CA01.FREQGDG) -                                          
     LIMIT(10) -                                                         
     SCRATCH -                                                           
     NOEMPTY -                                                           
     )                                                                   
  LISTCAT ENTRIES(UTB00.CA01.FREQGDG) ALL                                
//REPRO   EXEC PGM=IDCAMS                                                
//SYSPRINT  DD SYSOUT=*                                                  
//INDATA    DD DSN=UTB00.CA01.FREQFILE,DISP=SHR                          
//UTDATA    DD DSN=UTB00.CA01.FREQGDG(+1),DISP=(,CATLG),                 
//             SPACE=(TRK,(5,2)),LRECL=80,RECFM=FB                       
//SYSIN     DD *                                                         
  REPRO INFILE(INDATA) OUTFILE(UTDATA)                                   
  PRINT INFILE(UTDATA) CHAR