if rownum eq 1 then do;
  call send(gddvecid, '_setIndex', 1);
  rc = insertn(collst, 1, -1);
  flist = makelist();
  flist = setnitemn(flist, 0, 'OPTIONS');
  flist = setnitemn(flist, 2, 'FAMILY');
  flist = setnitemn(flist, -1, 'CHARSET');
  flist = setnitemn(flist, 60, 'POINTS');
  flist = setnitemn(flist, 1, 'STYLE');
  flist = setnitemn(flist, 9, 'WEIGHT');
  flist = setnitemn(flist, -1, 'WIDTH');
  flist = setnitemn(flist, 1, 'PORTABLE');
  flist = setnitemn(flist, 0.46875, 'RATIO');
  call send(gddvecid, '_setFont', flist);
end;