data _null_;
   set prog2.maysales end=IsLast;
   file 'export.dat';
   if _N_=1 then
      put 'Description ' 'ListDate '
          'SellDate ' 'SellPrice';
   put Description
       ListDate : date9.
       SellDate : date9.
       SellPrice : dollar8.;
   if IsLast=1 then
      put 'Data: PROG2.MAYSALES';
run;

proc fslist fileref='export.dat';
run;

data _null_;
   length CharPrice $ 10;
   set prog2.maysales;
   CharPrice=put(SellPrice,dollar8.);
   if index(CharPrice,',') gt 0 then
      CharPrice=quote(trim(left((CharPrice))));
   file 'export.dat';
   put Description +(-1) ','
       ListDate : date9. +(-1) ','
       SellDate : date9. +(-1) ','
       CharPrice;
run;

proc fslist fileref='export.dat';
run;