/* Copyright(c) 1995 by SAS Institute Inc., Cary, NC USA */
length index 8 issel 8 btname $8 btnlabel $40;
upd_val: method;

   /* Send the event on through.                            */
   call super(_self_,'_UPDATE_VALUE_');

   /* Get the letters.                                      */
   call send(_self_,'_GET_LAST_SEL_',index,issel,btname);
   if btname^=' ' then do;
      call send(_self_,'_GET_LABEL_',btname,btnlabel);
      call send(_self_,'_SEND_EVENT_','DATA_CHANGE', btnlabel);
      end;
   endmethod;