DEF VAR l-count AS INT NO-UNDO.
DEF FRAME
f-main
customer.custnum
customer.name
HEADER "CUSTOMER'S INFO PAGE" l-count.
OUTPUT TO "C:\rajat\abc.txt" PAGED.
FOR EACH CUSTOMER WITH FRAME f-main:
DISPLAY custnum name WITH FRAME f-main NO-LABELS.
END.
OUTPUT CLOSE.