How to select the output list check boxes

Question

Hi ABAP gurus,
   I am developing the on report, it display the output list, in that output list first column is Check box,
here i created the 3 Pushbuttons on application tool bar,  one pushbutton is SELECT ALL, 2nd one is DESELECT ALL , 3rd one is CREDIT NOT CREATE,
here when i click on the Select all button it will select all the check boxs and click on the credit not button  it will create credit memos for all the customers,  if i select the one or more than one check boxs, it will not working means (Credit note will not be created for that paricular customer)
plz tell me answer, if u know the any example programs related to this program plz send me.

Answer 1

Hi,
refer this sample code.
AT USER-COMMAND.
  CASE sy-ucomm.
    WHEN 'F2'.
      PERFORM selection.
    WHEN 'SELECTALL'.
      PERFORM selectall.
    WHEN 'DESELECTAL'.
      PERFORM deselectall.
  ENDCASE.                             " CASE SY-UCOMM
*&      Form  selection                                                *
      Selecting records of basic list and display flight information *
      No parameters transferred                                      *
FORM selection .
  DO w_lines TIMES.
    READ LINE w_lineno FIELD VALUE w_checkbox INTO w_checkbox
                                fs_spfli-carrid INTO fs_spfli-carrid
                                fs_spfli-connid INTO fs_spfli-connid
                                w_mark INTO w_mark.
    IF sy-subrc EQ 0.
      IF w_checkbox EQ 'X' AND w_mark NE '*'.
        w_mark = '*'.
        MODIFY CURRENT LINE FIELD VALUE w_mark
                            FIELD FORMAT w_checkbox INPUT OFF.
        SELECT carrid                  " Airline Code
               connid                  " Flight Connection Number
               fldate                  " Flight date
               seatsmax                " Maximum capacity
               seatsocc                " Occupied seats
          FROM sflight
          INTO CORRESPONDING FIELDS OF TABLE t_sflight
          WHERE carrid EQ fs_spfli-carrid AND connid EQ fs_spfli-connid.
        IF sy-subrc EQ 0.
          LOOP AT t_sflight INTO fs_sflight.
            WRITE :/2 fs_sflight-carrid,
                   10 fs_sflight-fldate,
                   25 fs_sflight-seatsmax,
                   45 fs_sflight-seatsocc.
          ENDLOOP.                     " LOOP AT T_SFLIGHT INTO....
          ULINE.
          CLEAR t_sflight.
        ELSE.
          MESSAGE text-001 TYPE 'S'.
        ENDIF.                         " IF SY-SUBRC EQ 0
      ENDIF.                           " IF W_CHECKBOX EQ 'X' AND .....
    ENDIF.                             " IF SY-SUBRC EQ 0
    ADD 1 TO w_lineno.
    CLEAR w_checkbox.
  ENDDO.                               " DO W_LINES TIMES
  w_lineno = 3.
ENDFORM.                               " Selection