How to refresh screen in normal reports?

Question

Hi Experts,
I am developing normal report. I am writing the output using write statement.
In my out put one filed is check box.
Suppose I have 12 records in the output, if I tick the 2 records and process these records using application tool bar button,
After that I need to refresh the screen and output should be only 10 records needs to be displayed.
How to do this requirement? Please suggest on this.
Thanks in Advance,
Uru2019s Harsha

Answer 1

Hai Harsha,
Please look at the following given Code May be helpful for you.
TYPES : BEGIN OF str_mard ,
        matnr TYPE mard-matnr,
        lgort TYPE mard-lgort,
        werks TYPE mard-werks,
        END OF str_mard.
DATA : wa_mard TYPE str_mard,
       it_mard TYPE TABLE OF str_mard.
data : BEGIN OF str_makt occurs 0,
chkbx type checkbox,
matnr TYPE makt-matnr,
maktg TYPE makt-maktg,
END OF str_makt.
DATA : wa_makt.
data: it_makt like str_makt OCCURS 0 WITH HEADER LINE.
data: lines type i.
PARAMETERS : plant TYPE mard-werks,
             stor LIKE mard-lgort.
DATA:  matnr like mseg-matnr,
      maktx like makt-maktx.
SET PF-STATUS 'MYLIST'.
START-OF-selection.
  perform fetch_data.
  PERFORM display_data.
*&      Form  fetch_data
*       text
FORM fetch_data.
  if sy-ucomm <> 'SAVE'.
    SELECT matnr lgort werks FROM mard
       INTO CORRESPONDING FIELDS OF TABLE it_mard
                                WHERE lgort = stor
                                  AND werks = plant.
    SELECT  matnr maktg FROM makt
  INTO CORRESPONDING FIELDS OF TABLE it_makt FOR ALL ENTRIES IN it_mard
                            WHERE matnr = it_mard-matnr AND spras = 'E'.
  endif.
  if sy-ucomm = 'SAVE'.
    describe table it_makt lines lines.
    do lines times.
      READ LINE sy-index FIELD VALUE it_makt-chkbx it_makt-matnr
                                     it_makt-maktg.
      IF it_makt-chkbx = 'X'.
        matnr = it_makt-matnr.
        maktx = it_makt-maktg.
        read table it_makt WITH KEY matnr = it_makt-matnr
                               maktg = it_makt-maktg.
        clear it_makt.
        modify it_makt index sy-tabix.
      endif.
    enddo.
  endif.
endform.                    "fetch_data
*&      Form  display_data
*       text
form display_data.
  LOOP AT it_makt.
    WRITE : /1 it_makt-matnr COLOR 1,
            40 it_makt-maktg COLOR 2,
            85 it_makt-chkbx as CHECKBOX input on.
    HIDE: it_makt-matnr,it_makt-chkbx.
  ENDLOOP.
endform.                    "display_data
At USER-COMMAND.
  clear it_makt.
  case sy-ucomm.
    when 'SAVE'.
      perform fetch_data.
      perform display_data.
  endcase.
Edited by: shelly Malik on Aug 1, 2009 8:58 AM