by heronfisher » Mon Mar 15, 2010 3:53 pm
variable labels to files;
do i=1 to n;
labpos=pos(i)+floor((lens(i)-
length(left(varlabel(dsid,i))))/2);
rc=fpos(fid1,labpos);rc=fpos(fid2,labpos);
rc=fput(fid1, varlabel(dsid,i));
rc=fput(fid2, varlabel(dsid,i));
end;
rc=fwrite(fid1,’0’); rc=fwrite(fid2,’0’);
do i=1 to n;
rc=fpos(fid1,pos(i));rc=fpos(fid2,pos(i));
rc=fput(fid1, repeat(’-’,lens(i)-1));
rc=fput(fid2, repeat(’-’,lens(i)-1));
end;
rc=fappend(fid1); rc=fappend(fid2);