Interactive report with check boxes

Question

i want to create a report in which there should be check boxes for every record & when i'll check those check boxes it should show me the sublist of the checked records.

Answer 1

hi,
try like this
DATA : BEGIN OF wi_cust OCCURS 0 ,
        kunnr LIKE kna1-kunnr,
        name1 LIKE kna1-name1,
        adrnr LIKE kna1-adrnr,
       END OF wi_cust.
DATA : BEGIN OF wi_adrc OCCURS 0 ,
        kunnr LIKE kna1-kunnr,
        name1 LIKE adrc-name1,
        city1 LIKE adrc-city1,
       END OF wi_adrc.
DATA : chk1 TYPE c,
            lines TYPE i,
             lines1 TYPE i..
DATA: c TYPE c, ind TYPE c.
DATA : v_line TYPE sy-index.
SELECT kunnr name1 adrnr UP TO 10 ROWS FROM kna1 INTO TABLE wi_cust.
LOOP AT wi_cust .
  WRITE : / chk1 AS CHECKBOX ,sy-vline, wi_cust-kunnr,wi_cust-name1,wi_cust-adrnr.
  HIDE : wi_cust-kunnr, chk1.
ENDLOOP.
END-OF-SELECTION.
  lines = sy-linno - 1.
AT LINE-SELECTION.
  CHECK sy-lsind = 1.
  WINDOW STARTING AT 5 4
  ENDING AT 85 20.
  DO lines TIMES.
    CLEAR chk1.
    READ LINE sy-index FIELD VALUE chk1.
    IF chk1 = 'X'.
      ind = sy-index - 2.
      READ TABLE wi_cust INDEX ind.
      SELECT name1 city1 FROM adrc INTO CORRESPONDING FIELDS OF TABLE wi_adrc
      WHERE addrnumber = wi_cust-adrnr.
      READ TABLE wi_adrc INDEX 1.
      WRITE : / wi_adrc-name1, wi_adrc-city1.
    ENDIF.
  ENDDO.