Pushbutton in sel-scrren

Question

hai ..I added pushbutton in selectionscreen.
selection-screen : pushbutton /10(20) txt user-command abcd.
can anyone tell me how to code so that if i click that push button it should go to the report output.

Answer 1

Here i am posting my entire code...hav a luk on this . It is not displaying the data bcoz of improper wrong events .
REPORT  zh_test1 NO STANDARD PAGE HEADING.
TABLES : vbak,            " Sales Document: Header Data
         vbap,            " Sales Document: Item Data
         marc,            " Plant Data for Material
         makt,            " Material Descriptions
         sscrfields.      " Fields on selection screens
*&                   DATA DECLARATION
DATA : BEGIN OF tbl_final OCCURS 0,
        kunnr LIKE vbak-kunnr,
        matnr LIKE vbap-matnr,
        name1 LIKE kna1-name1,
        maktx LIKE makt-maktx,
        END OF tbl_final.
DATA : BEGIN OF tbl_kna1 OCCURS 0,
       kunnr LIKE kna1-kunnr,
       name1 LIKE kna1-name1,
       END OF tbl_kna1.
DATA : BEGIN OF tbl_makt OCCURS 0,
       matnr LIKE makt-matnr,
       maktx LIKE makt-maktx,
       spras LIKE makt-spras,
       END OF tbl_makt.
DATA flag.
*&                       CONSTANTS
DATA c1(10) TYPE c VALUE 'Enter Here'.
*&                 SELECTION SCREEN
SELECTION-SCREEN : BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS : s_kunnr FOR vbak-kunnr,
                 s_matnr FOR vbap-matnr,
                 s_prctr FOR vbap-prctr,
                 s_vkorg FOR vbak-vkorg,
                 s_audat FOR vbak-audat.
SELECTION-SCREEN : SKIP,
                  PUSHBUTTON /40(15) txt USER-COMMAND abcd,
                  SKIP,
                  END OF BLOCK b1.
*&                  INITIALIZATION EVENT
INITIALIZATION.
  MOVE c1 TO txt.
*&                   AT SELECTION-SCREEN EVENT
AT SELECTION-SCREEN.
  CASE sscrfields.
    WHEN 'abcd'.
      flag = 'X'.
  ENDCASE.
*&                   START OF SELECTION
START-OF-SELECTION.
  PERFORM DATA_RETRIVE.
*&      Form  rep_out
      text
-->  p1        text
<--  p2        text
FORM rep_out .
  IF flag = 'X'.
    LOOP AT tbl_final.
      WRITE :/ tbl_final-kunnr,
               tbl_final-matnr,
               tbl_final-name1,
               tbl_final-maktx.
    ENDLOOP.
  ENDIF.
ENDFORM.                    " rep_out
*&      Form  DATA_RETRIVE
      text
-->  p1        text
<--  p2        text
form DATA_RETRIVE .
SELECT akunnr bmatnr INTO CORRESPONDING FIELDS OF TABLE tbl_final
  FROM vbak AS a INNER JOIN vbap AS b ON avbeln = bvbeln
  WHERE
  a~kunnr IN s_kunnr AND
  b~prctr IN s_prctr AND
  b~matnr IN s_matnr AND
  a~vkorg IN s_vkorg AND
  b~prctr IN s_prctr.
  SELECT kunnr name1 INTO TABLE tbl_kna1 FROM kna1.
  SELECT matnr maktx spras INTO TABLE tbl_makt FROM makt
  WHERE spras = 'en'.
  LOOP AT tbl_final.
    READ TABLE tbl_kna1 WITH KEY kunnr = tbl_final-kunnr.
    READ TABLE tbl_makt WITH KEY matnr = tbl_final-matnr.
    IF sy-subrc EQ 0.
      tbl_final-name1 = tbl_kna1-name1.
      tbl_final-maktx = tbl_makt-maktx.
      MODIFY tbl_final.
    ENDIF.
  ENDLOOP.
  DELETE ADJACENT DUPLICATES FROM tbl_final.
  SORT tbl_final BY kunnr.
endform.                    " DATA_RETRIVE