FD  O-NEWFILE
    RECORDING MODE IS F
    BLOCK CONTAINS 0 RECORDS
    RECORD CONTAINS 80 CHARACTERS
    LABEL RECORDS ARE STANDARD
    DATA RECORD IS O-NEWFILE-REC.
01  O-NEWFILE-REC                       PIC X(80).

##</code><code>##

//NEWFILE  DD DSN=B7707O.DDA50010.APDATA,
//            DISP=(NEW,CATLG,DELETE),
//            UNIT=DASD,
//            SPACE=(CYL,(150,150),RLSE),
//            DCB=(RECFM=FB,LRECL=80,BLKSIZE=6400)

##</code><code>##

open (MYFILE, "> $file") || die "Couldn't open $file: $!\n";