Exemple : JCL à convertir Diagramme du JCL généré Shell script généré

Vous pouvez "copier/coller" ce Job, le modifier à votre gré et le soumettre à notre automate.


//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)                  
/*                                                                      

Pour plus d'information, contactez-nous.