SAS SCL sample

btnRuns:
saveDlgRet=filedialog('saveas', savePath, 'runs.csv','','*.csv');
if saveDlgRet < 0 then goto err; * cancel;
ret=filename('fileout', savePath);
if ret ne 0 then do; put "couldn't assign file"; goto err; end;
* ret=fileref('fileout');
if saveDlgRet < 2 then openMode='o'; else openMode='a';
fileid=fopen('fileout', openMode);
if fileid=0 then do; put "couldn't open file"; goto err; end;
if openMode='o' then do; * new file created, write header;
      ret=fput(fileid,'Number;Empty run;Loaded run');
      ret=fappend(fileid);
end;

numb=0;
if listlen(txtDat.text) then * use data from textpad if not empty;
      lst=txtDat.text;
else lst=lb.items;
do i=1 to listlen(lst);
      wagnumb = compress(getitemc(lst, i),'','dk'); * keep digits only;
      if length(wagnumb) ne 8 then put "Wrong wagon number:" wagnumb;
      else do;
         * call symputn('x',y);
         ret=fput(fileid, wagnumb||";");
         * _frame_.title=getitemc(txtdat.text, i);

         ret=fappend(fileid);
         numb=numb+1;
      end;
end;
ret=fput(fileid,"=======;==="||numb||"===;=======");
ret=fappend(fileid);
rets=messagebox({"All done"});
err:
* ret=fwrite(fileid);
if fileid then ret=fclose(fileid);
ret=filename('fileout','');