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.