/* Copyright(c) 1995 by SAS Institute Inc., Cary, NC USA */
/* When an observation is selected in the data table,    */
/* display the data form, positioning the user on the    */
/* observation just selected.                            */
select: method;
   call super(_self_,'_SELECT_');

   /* Get the information from the selected row.            */
   call send(_self_,'_GET_COLUMN_VALUE_','ID',id);

   /* If first row, do not need a findlst.                  */
   if id=1 then
      call display ('mkt.contacts.contdf.frame');
   else do;
      findcls='ID = ' || id;
      findlst=makelist();
      findlst=setitemc(findlst,findcls,1,'Y');

      /* Display the selected row in a data form for update.   */
      call display('mkt.contacts.contdf.frame',findlst);
      end;
   endmethod;