I have a legacy C6.1 app and allow the user to optionally create a CSV header using this code....
! Start of "Beginning of Procedure, After Opening Files"
! [Priority 3500]
!Create Header
CREATE(MH_Export)
OPEN(MH_Export)
CASE MESSAGE('Add a file header record?','Header?',icon:question,'&Yes|&No',1,0)
OF 1
MH_Exp:Record = |
'"Receipt_No",' & |
'"Date",' & |
'"Time",' & |
'"Member_No",' & |
'"Type",' & |
'"Name",' & |
'"Description",' & |
'"Cash_Cheque",' & |
'"Amount",'
ADD(MH_Export)
OF 2
!Skip header
END