//HERC01C JOB CLASS=A,MSGCLASS=X,NOTIFY=HERC01 //EXECGO EXEC PGM=FILEIO,REGION=5000K //STEPLIB DD DSN=HERC01.TEST.LOADLIB,DISP=SHR //SYSPRINT DD SYSOUT=*,DCB=(LRECL=132,BLKSIZE=132) //SYSABEND DD SYSOUT=* //SYSIN DD DUMMY //OUTPUT DD DSN=HERC01.FILEIO.TEST,DISP=(NEW,CATLG), // SPACE=(CYL,(1,1)),DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120), // UNIT=SYSDA