How to read data after select multiple record by checkbox,

Question

hi experts
i  m using simple report with check box , and itab whcih contain records
how to read data after select multiple record by checkbox,
thanks

Answer 1

Hi Prashant,
   Try using this logic.This Code displays the list with check boxes. When you check a checkbox and press a button say 'Select All' or 'De Select all' or 'Display'. It will read the data of those records.
DATA :
  fs_flight TYPE type_s_flight,
  fs_flight1 TYPE type_s_flight1.
* Internal tables to hold Flight  Details                             *
DATA :
  t_flight LIKE
  STANDARD TABLE
        OF fs_flight,
  t_flight1 LIKE
   STANDARD TABLE
         OF fs_flight1.
SET PF-STATUS 'SELECT' .
PERFORM selection.
PERFORM displaybasic .
*                      AT USER COMMAND EVENT                          *
AT USER-COMMAND.
  PERFORM selectall .
*&      Form  SELECTION
*      Select query to reteive data from SPFLI table
*  There are no interface parameters to be passed to this subroutine.
FORM selection .
  SELECT  carrid                       " Airline Code
          connid                       " Flight Connection Number                  
    FROM  spfli
    INTO TABLE t_flight.
  DESCRIBE TABLE t_flight LINES w_lines .
ENDFORM.                               " SELECTION
*&      Form  DISPLAYBASIC
*      Display the basic list with SPFLI data
*  There are no interface parameters to be passed to this subroutine.
FORM displaybasic .
  LOOP AT t_flight INTO fs_flight.
    WRITE :
         w_check AS CHECKBOX,
         w_mark,
         fs_flight-carrid UNDER text-001,
         fs_flight-connid UNDER text-002.
  ENDLOOP.                             " LOOP AT T_FLIGHT..
  CLEAR fs_flight-carrid .
  CLEAR fs_flight-connid.
ENDFORM.                               " DISPLAYBASIC
*&      Form  SELECTALL
*      To check all the checkboxes with a 'selectall' push button
*  There are no interface parameters to be passed to this subroutine.
FORM selectall .
  CASE sy-ucomm.
    WHEN 'SELECT_ALL'.
      w_check = 'X'.
      w_line = 4 .
      DO w_lines TIMES.
        READ LINE w_line .
        MODIFY LINE w_line FIELD VALUE w_check .
        ADD 1 TO w_line .
      ENDDO.                           " DO W_LINES TIMES
      CLEAR w_line.
    WHEN 'DESELECTAL'.
      w_check = space.
      w_line = 4 .
      DO w_lines TIMES.
        READ LINE w_line FIELD VALUE w_mark .
        IF w_mark = space .
          MODIFY LINE w_line FIELD VALUE w_check .
        ENDIF.                         " IF W_MARK = SPACE
        ADD 1 TO w_line .
      ENDDO.                           " DO W_LINES TIMES
    WHEN 'DISPLAY'.
IF sy-lilli BETWEEN 4 AND w_lines .
    DO w_lines TIMES.
      READ LINE w_num FIELD VALUE w_check INTO w_check
                                 fs_flight-carrid INTO fs_flight-carrid
                                 fs_flight-connid INTO fs_flight-connid.
      IF sy-subrc = 0.
        IF w_check = 'X'
          SELECT  carrid
                  connid
                  fldate               " Flight date
                  seatsmax             " Maximum capacity in economy
                  seatsocc             " Occupied seats in economy class
            FROM  sflight
            INTO  TABLE t_flight1
           WHERE  carrid = fs_flight-carrid
             AND  connid = fs_flight-connid.
          LOOP AT t_flight1 INTO fs_flight1.
            WRITE :
              / fs_flight-carrid UNDER text-001,
                fs_flight-connid UNDER text-002,
                fs_flight1-fldate UNDER text-007,
                fs_flight1-seatsmax UNDER text-008,
                fs_flight1-seatsocc UNDER text-009.
          ENDLOOP.
        ENDIF.                         " IF SY-SUBRC = 0
      ENDIF.                           " IF W_CHECK = 'X'.
      ADD 1 TO w_num.
    ENDDO.                             " DO W_LINES TIMES
    CLEAR w_check.
    w_num = 0.
  ELSE .
    MESSAGE 'INVALID CURSOR POSITION ' TYPE 'E' .
  ENDIF.                               " IF SY-LILLI BETWEEN..
ENDCASE.                             " CASE SY-UCOMM
ENDFORM.                               " SELECTALL
Much Regards,
Amuktha.