English 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.
