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) /*
Contact us for details