Make column 3 width = 0.1 inch.
if colnum eq 3 then do;
  call send(rcdvecid, '_setDimension', 0.1,
           'in');
end;