Create Button in Abap Program

Question

Hi anybody,
  I want to use click event button inside abap programe.
how to use click events of button.
anybody tell me.
thanks
s.muthu

Answer 1

hiii
use following code.it will create button
START-OF-SELECTION.
  SET PF-STATUS 'STATUS'.
  PERFORM get_data_kna1.
END-OF-SELECTION.
Now write following code for performing task on clicking that button.
CASE sy-ucomm.
  WHEN 'CUSTOMER'.
   SELECT SINGLE kunnr
      FROM kna1
      INTO w_kna1
      WHERE kunnr = w_kunnr.
      IF sy-subrc <> 0.
         MESSAGE e015(zmsg9).
       ENDIF.
WHEN 'ORDER'.
           SELECT SINGLE vbeln
      FROM vbak
      INTO w_vbak
      WHERE vbeln = w_vbeln.
      IF sy-subrc <> 0.
       MESSAGE e015(zmsg9).
      ENDIF.
  ENDCASE.
reward if useful
thx
twinkal