Make row 1, column 2 use a radio box. 
if rownum eq 0 then do;
  call send(gddvecid, '_setIndex', 2);
  rc = insertn(collst, 2, -1);
  call send(gddvecid, '_setClassName',
           'sashelp.fsp.radiobox.class');
  oid = loadclass('sashelp.fsp.radiobox');
  ivlist = getniteml(oid, '_iv');
  ivlist2 = copylist(ivlist, 'Y');
  rc = setlattr(ivlist2, 'UPDATE');