SELECT CUSTNO,NAME,NAME2,ADD1,ADD2,ADD3,ADD4,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("Add1")
EXCEL_SUB_TITLE_5=LGS("Add2")
EXCEL_SUB_TITLE_6=LGS("Add3")
EXCEL_SUB_TITLE_7=LGS("Add4")
EXCEL_SUB_TITLE_8=LGS("Contact")
EXCEL_SUB_TITLE_9=LGS("Phone")
EXCEL_SUB_TITLE_10=LGS("Fax")
EXCEL_SUB_TITLE_11=LGS("Area")
EXCEL_SUB_TITLE_12=LGS("Agent")
EXCEL_SUB_TITLE_13=LGS("Term")
EXCEL_COMMAND_LINE("M")