Sticky-note

Traverse the data set and populate the cells of the Excel worksheet with its data, row by row.

  do col=1 to nvar;
   call send (wsobj, '_compute', 'Cells',1,
              col,retcell);
   var=varname(dsid,col);
   call send (retcell, '_setProperty',
             'Value' ,var);
  end;
  do while (rc ne -1);
    do row = 1 to nobs;
      do col = 1 to nvar;
         r=row+1;
        call send (wsobj,   '_compute',
                  'Cells', r ,col,
                         retcell);
    if vartype(dsid,col) eq 'N' then 
               var=getvarn(dsid,col);
     else var=getvarc(dsid,col);
        call send (retcell,'_setProperty',
                  'Value' ,var);
      end;
      fetch(dsid);
    end;
   end;
return;