Returns the current column position in the File Data Buffer (FDB).
Category: | External Files |
%let filrf=myfile;
%let rc=%sysfunc(filename(filrf,
physical-filename));
%let fid=%sysfunc(fopen(&filrf,o));
%if (&fid > 0) %then
%do;
%let record=This is data for the record.;
%let rc=%sysfunc(fput(&fid,&record));
%let pos=%sysfunc(fcol(&fid));
%let rc=%sysfunc(fpos(&fid,%eval(&pos+1)));
%let rc=%sysfunc(fput(&fid,more data));
%let rc=%sysfunc(fwrite(&fid));
%let rc=%sysfunc(fclose(&fid));
%end;
%let rc=%sysfunc(filename(filrf));