SELECT CUSTNO,NAME,NAME2,CONTACT,PHONE,FAX,AREA,AGENT,TERM FROM INITFILE INTO CURSOR EXCEL_INITFILE
EXCEL_TITLE_NAME_1=LGS(IIF(FT="AR","Debtors Listing","Creditors Listing"))
EXCEL_SUB_TITLE_1=LGS(IIF(FT="AR","Cust.No","Supp.No."))
EXCEL_SUB_TITLE_2=LGS("Name")
EXCEL_SUB_TITLE_3=LGS("Name (2)")
EXCEL_SUB_TITLE_4=LGS("Contact")
EXCEL_SUB_TITLE_5=LGS("Phone")
EXCEL_SUB_TITLE_6=LGS("Fax")
EXCEL_SUB_TITLE_7=LGS("Area")
EXCEL_SUB_TITLE_8=LGS("Agent")
EXCEL_SUB_TITLE_9=LGS("Term")
EXCEL_COMMAND_LINE("I")