ATTRIB MYLIST BLKSIZE(800) + LRECL(80) RECFM(F B) + DSORG(PS) ALLOC DDNAME(MYDD) NEW + SPACE(1,1) TRACKS KEEP + USING(MYLIST) ISPEXEC LMINIT DATAID(DDVAR) DDNAME(MYDD)