rlist = makelist();
  radio1 = makelist();
  radio2 = makelist();
  rc = setnitemc(radio1, 'Male', 'ROWTXT');
  rc = setnitemc(radio1, 'M', 'RETVAL');
  rc = setnitemc(radio2, 'Female', 'ROWTXT');
  rc = setnitemc(radio2, 'F', 'RETVAL');
  rc = setniteml(rlist, radio1, 'R1');
  rc = setniteml(rlist, radio2, 'R2');
  rc = setniteml(ivlist2, rlist, 'RADIOLST');
  rc = putlist(ivlist2);
  call send(gddvecid, '_setClassProperties',
            ivlist2);
end;