/* REXX */
...
print_routine:
  /* alloc temp file for print */
   address ispexec "vget (zprefix ztempf)"
   ptfds=zprefix".PTFLIST.TEMP"
   "delete ('"ptfds"') nvsam"
   "alloc fi(ptftemp) ds('"ptfds"') new reu catalog space(3,3)" ,
   "cyl dsorg(ps) recfm(F B A) lrecl(80) blksize(80) unit(sysda)"

   out.1 = " PTF      Sys  Loadlib"
   queue out.1
   out.2 = " --------+----+---------------------------------"
   queue out.2
   count=2
   do x=1 to count
      "execio 1 diskw ptftemp"
   end
   "execio 0 diskw ptftemp(finis"
   address ispexec "edit dataset("ptfds")"
   address ispexec "display panel(ptfdruck)"
   "free fi(ptftemp)"
   address ispexec
    "ftopen temp"
    "ftincl ptfskel1"
    "ftclose"
    if zprefix = " " then
       xtempf = ztempf
    else
       xtempf = "'"ztempf"'"
    if editj="N" then
       address tso "submit" xtempf
    else
       address ispexec "edit dataset("xtempf")"
return
exit