sidd = workqual".SYSIN.REPL1000"
 "free fi(sidd)"
 "alloc fi(sidd) ds('"sidd"') mod delete delete
        space(0,0) cyl dsorg(ps) reuse"
 "alloc fi(sidd) ds('"sidd"')
        new reu catalog space(1,1) cyl dsorg(ps)
        recfm(f b) lrecl(80) unit(sysda)"
  if rc>0 then
  do
     say "Allocation Failure SYSIN"
     exit
  end