/* alloc input and temp file  */
 "alloc fi(ptflist) ds('"ptflist"') shr reuse"
 "alloc fi(ptftemp) new reu delete space(5,3) cyl dsorg(ps)
       recfm(f b) lrecl(80) unit(sysda)"