code given not giving o/p y???????????

[reenageorge5]

Hi,
My code im attaching with this is not giving o/p.im getting the frame to enter itemFrom & itemTnce i enter it ,it is not showing the o/p on frame b.
{mfdtitle.i "ver 1.1"}
Define Variable itemFrom like pt_part no-undo.
Define Variable itemTo like pt_part no-undo.
Define Temp-Table result field ptpart like pt_mstr.pt_part
field ptprodline like pt_prod_line
field ptchr05 like pt_mstr.pt__chr05
field ptstatus like pt_status
field ptprice like pt_price
field ptordqty like pt_ord_qty
field ptrop like pt_rop.
Form header space (15)" **************ITEM DEATILS*************" WITH FRAME B.
Form "Item code:" ptpart space(15)
"Product Line:" ptprodline SKIP(2)
"CBU Code:" ptchr05 Space(27) "Price:" ptprice Skip(2)
"Ordered Quantity:" ptordqty space(17) "Re-Order Point:" ptrop skip(2)
"Status:" ptstatus space(29)
with frame b 20 down width 100.
Form itemFrom LABEL "ITem From " COLON 20
itemTo LABEL "To " COLON 50 Skip(2)
WITH FRAME a SIDE-LABELS WIDTH 80.

Prompt-For itemFrom
itemTO
WITH FRAME a CENTERED.
Repeat:
For each pt_mstr where pt_part >= itemFrom and pt_part <= itemTo:
If avail pt_mstr
Then Create result.
ptpart = pt_part.
ptprodline = pt_prod_line.
ptchr05 = pt__chr05.
ptstatus = pt_status.
ptprice = pt_price.
ptordqty = pt_ord_qty.
ptrop = pt_rop.
Hide frame a.
View Frame b.
Display ptpart
ptprodline
ptchr05
ptprice
ptstatus
ptrop
ptordqty
with frame b no-Labels.
End.
End.