x = bpopdb("prodsel"|$prodend,4,"","[Prod_Back]","L35","[abbrv]","L4","[Product_Code]",7,43,20,80,"",0)
      else
        x = bpopdb("prodsel"|$prodend,4,"i","[Prod_Back]","L42","[abbrv]","L4","[Product_Code]",7,36,20,80,"",0)
      end if
    end if
    if x = -1
      repaint off
      vloadif(dpath|"cus_ent4.vw")
      order change index "current.idx"
      y2 = format("Select requisition type or {F10} to exit","M72")
      screen print 21 5 fgp bbd y2
      vloadif(dpath|"prodsel"|$prodend|".vw")
      exit while
    end if