Select Code to Download

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

//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";