Example : Sample JCL to convert" JCL chart built by ACMU Shell script built by ACMU
JCL Flow Chart for JOB H86BN55Click 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