address ispexec "display panel(ptfdruck)"
   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")"