HH&S - ACMU

Example : Sample JCL to convert" JCL chart built by ACMU Shell script built by ACMU

You are invited to "cut and paste", modify as you want, and submit it to our conversion utility.
//H86BN55 JOB (H33D747R),'AJC100M0',COND=(4,LT),REGION=0M,              
//    MSGCLASS=H,MSGLEVEL=(1,1),CLASS=A                                 
//JOBLIB  DD  DSN=SYS1.DSNDB01.SDSNLOAD,DISP=SHR                        
//        DD  DSN=HH123B.BATCH.LOAD,DISP=SHR                            
//        DD  DSN=HH123B.CICS.SPITAB2.LOADLIB,DISP=SHR                  
//        DD  DSN=SYS1.VSCOLIB,DISP=SHR                                 
//        DD  DSN=SYS1.VSCLLIB,DISP=SHR                                 
//        DD  DSN=SYS1.CFT230.LOAD,DISP=SHR                             
//DELFICH EXEC PGM=IDCAMS                                               
//SYSPRINT DD  SYSOUT=*                                                 
//SYSIN    DD  *                                                        
 DELETE HH123B.X.H33ABC03.DETAS1                                        
 DELETE HH123B.X.H33ABC03.DETAS1.CFT                                    
 DELETE HH123B.X.H33ABC03.DETAS2                                        
 DELETE HH123B.X.H33ABC03.DETAS3                                        
 DELETE HH123B.X.H33ABC03.DETAP                                         
 DELETE HH123B.X.H33ABC03.DETAPP                                        
 DELETE HH123B.X.H33ABC03.DETAM                                         
 DELETE HH123B.X.H33ABC03.EDITAPP                                       
  IF MAXCC=8 THEN SET MAXCC=4                                           
/*                                                                      
//* ============================================================        
//*HHSM         EXEC  EDITION                                           
//* ============================================================        
//EDITION  EXEC PGM=IKJEFT01,REGION=0M                                  
//SPI2MSTR DD  DSN=HH123B.CICS.SPITAB2.SPI2MSTR,DISP=SHR                
//FEDT     DD  DSN=HH123B.K.H33ABC03.EDITION.SAVE(0),DISP=SHR           
//DETAS1   DD  DUMMY,                                                   
//             DCB=(LRECL=160,RECFM=FBA,BLKSIZE=0)                      
//DETAPP   DD  DUMMY,                                                   
//             DCB=(LRECL=175,RECFM=FBA,BLKSIZE=0)                      
//DETAS2   DD  DUMMY,                                                   
//             DCB=(LRECL=160,RECFM=FBA,BLKSIZE=0)                      
//DETAS3   DD  DUMMY,                                                   
//             DCB=(LRECL=160,RECFM=FBA,BLKSIZE=0)                      
//DETAP    DD  DUMMY,                                                   
//             DCB=(LRECL=160,RECFM=FBA,BLKSIZE=0)                      
//DETAM    DD  DSN=HH123B.X.H33ABC03.DETAM,                             
//             VOL=SER=HHSDB1,                                          
//             DISP=(NEW,CATLG,CATLG),                                  
//             UNIT=3390,SPACE=(CYL,(300,150),RLSE),                    
//             DCB=(LRECL=160,RECFM=FBA,BLKSIZE=0)                      
//SYSTSPRT DD SYSOUT=*                                                  
//SYSPRINT DD SYSOUT=*                                                  
//SYSDBOUT DD SYSOUT=*                                                  
//SYSOUT   DD SYSOUT=*                                                  
//SYSTSIN  DD *                                                         
  DSN SYSTEM (DB01)                                                     
  RUN PROGRAM(ABCCPT00) PLAN(ABCCPT00) LIB('HH123B.BATCH.LOAD')         
  END                                                                   
/*                                                                      
//SYSIN    DD DISP=SHR,DSN=HH123B.DATE.PARM(DATE5)                      
//* ============================================================        
//*HHSM       CREATION BANDES MICROFICHES                               
//*HHSM                                                                 
//* ============================================================        
//DELMICRO EXEC PGM=IDCAMS                                              
//SYSPRINT DD  SYSOUT=*                                                 
//SYSIN    DD  *                                                        
 DEL HH123B.HHSCOMP.H33ABC03.DETAM                                      
  IF MAXCC=8 THEN SET MAXCC=4                                           
/*                                                                      
//EDDETAM  EXEC PGM=ABCSOUED                                            
//SYSPRINT DD  SYSOUT=*                                                 
//ENTREE   DD  DSN=HH123B.X.H33ABC03.DETAM,DISP=SHR                     
//SORTIE   DD  DSN=HH123B.HHSCOMP.H33ABC03.DETAM,DISP=(,CATLG,DELETE),  
//             UNIT=3390,SPACE=(CYL,(250,200),RLSE),VOL=SER=HHSDB1,     
//             DCB=(LRECL=133,RECFM=FBA,BLKSIZE=26600)                  
/*