Français Example :
Sample JCL to convert" 
JCL chart built by ACMU
Shell script built by ACMU
JCL Flow Chart for JOB H86BN55
Click on items to display details
JOB H86BN55
Step DELFICH
0011 //SYSIN DD * 0012 DELETE HH123B.X.H33ABC03.DETAS1 0013 DELETE HH123B.X.H33ABC03.DETAS1.CFT 0014 DELETE HH123B.X.H33ABC03.DETAS2 0015 DELETE HH123B.X.H33ABC03.DETAS3 0016 DELETE HH123B.X.H33ABC03.DETAP 0017 DELETE HH123B.X.H33ABC03.DETAPP 0018 DELETE HH123B.X.H33ABC03.DETAM 0019 DELETE HH123B.X.H33ABC03.EDITAPP 0020 IF MAXCC=8 THEN SET MAXCC=4
0009 //DELFICH EXEC PGM=IDCAMS
0010 //SYSPRINT DD SYSOUT=*
Step EDITION
0047 //SYSTSIN DD *
0048 DSN SYSTEM (DB01)
0049 RUN PROGRAM(ABCCPT00) PLAN(ABCCPT00) LIB('HH123B.BATCH.LOAD')
0050 END
0052 //SYSIN DD DISP=SHR,DSN=HH123B.DATE.PARM(DATE5)
0025 //EDITION EXEC PGM=IKJEFT01,REGION=0M
0026 //SPI2MSTR DD DSN=HH123B.CICS.SPITAB2.SPI2MSTR,DISP=SHR
0027 //FEDT DD DSN=HH123B.K.H33ABC03.EDITION.SAVE(0),DISP=SHR
0028 //DETAS1 DD DUMMY, 0029 // DCB=(LRECL=160,RECFM=FBA,BLKSIZE=0)
0030 //DETAPP DD DUMMY, 0031 // DCB=(LRECL=175,RECFM=FBA,BLKSIZE=0)
0032 //DETAS2 DD DUMMY, 0033 // DCB=(LRECL=160,RECFM=FBA,BLKSIZE=0)
0034 //DETAS3 DD DUMMY, 0035 // DCB=(LRECL=160,RECFM=FBA,BLKSIZE=0)
0036 //DETAP DD DUMMY, 0037 // DCB=(LRECL=160,RECFM=FBA,BLKSIZE=0)
0038 //DETAM DD DSN=HH123B.X.H33ABC03.DETAM, 0039 // VOL=SER=HHSDB1, 0040 // DISP=(NEW,CATLG,CATLG), 0041 // UNIT=3390,SPACE=(CYL,(300,150),RLSE), 0042 // DCB=(LRECL=160,RECFM=FBA,BLKSIZE=0)
0043 //SYSTSPRT DD SYSOUT=*
0044 //SYSPRINT DD SYSOUT=*
0045 //SYSDBOUT DD SYSOUT=*
0046 //SYSOUT DD SYSOUT=*
Step DELMICRO
0059 //SYSIN DD * 0060 DEL HH123B.HHSCOMP.H33ABC03.DETAM 0061 IF MAXCC=8 THEN SET MAXCC=4
0057 //DELMICRO EXEC PGM=IDCAMS
0058 //SYSPRINT DD SYSOUT=*
Step EDDETAM
0063 //EDDETAM EXEC PGM=ABCSOUED
0065 //ENTREE DD DSN=HH123B.X.H33ABC03.DETAM,DISP=SHR
0064 //SYSPRINT DD SYSOUT=*
0066 //SORTIE DD DSN=HH123B.HHSCOMP.H33ABC03.DETAM,DISP=(,CATLG,DELETE), 0067 // UNIT=3390,SPACE=(CYL,(250,200),RLSE),VOL=SER=HHSDB1, 0068 // DCB=(LRECL=133,RECFM=FBA,BLKSIZE=26600)
END OF JOB H86BN55
Contact us for details
