0009 //DELFICH EXEC PGM=IDCAMS

0010 //SYSPRINT DD  SYSOUT=*

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=*

0057 //DELMICRO EXEC PGM=IDCAMS

0058 //SYSPRINT DD  SYSOUT=*

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)