##
//NEWFILE DD DSN=B7707O.DDA50010.APDATA,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DASD,
// SPACE=(CYL,(150,150),RLSE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=6400)
##
##
open (MYFILE, "> $file") || die "Couldn't open $file: $!\n";