Reports - Check Boxes

Question

Hi All,
I'm not getting idea how to approach this requirement.
My requirement is
I have one report with check box for each record output in the list.
Here in this report i'll check i.e. put tick mark in the check box, then the checked list of records should be written to the other report.
Can you please let me know the solution.
Jeevi.

Answer 1

report Ztest no standard page heading.
data: imara type table of mara with header line.
data: check_box(1) type c,
      report_lines type i.
start-of-selection.
* Create the gui status with BACK button in standard place
* and a READ button in the application toolbar
  set pf-status 'CHECK'.
  select * into corresponding fields of table imara
           from mara up to 100 rows.
  loop at imara.
    write:/ check_box as checkbox, imara-matnr, imara-matkl.
    hide imara-matnr.
  endloop.
  report_lines  = sy-linno - 1.
top-of-page.
  write: 'List of materials'.
  uline.
top-of-page during line-selection.
  write:  'Material.....'.
  uline.
at user-command.
  case sy-ucomm.
    when 'READ'.
      check_box = space.
      set pf-status 'CHECK' excluding 'READ'.
      do report_lines times.
        read line sy-index field value check_box.
        if check_box = 'X'.
          write:/  'You have selected material', imara-matnr.
        endif.
      enddo.
  endcase.
DEMO_LIST_READ_LINE
refer this code if u want furtehr help.
END-OF-SELECTION.
  lines = sy-linno - 1.
SET PF-STATUS 'ZSTATUS'.
AT USER-COMMAND.
      wa_output-cb = space.
      SET PF-STATUS 'ZSTATUS' EXCLUDING 'SAVE'.
      DO lines TIMES.
        READ LINE sy-index FIELD VALUE wa_output-cb.
          IF wa_output-cb = 'X'.
        MODIFY i_output  FROM wa_output INDEX sy-tabix TRANSPORTING cb.
        ENDIF.
      ENDDO.
CASE sy-ucomm.
WHEN 'SAVE'.
*      DELETE i_output WHERE cb = 'X'.
   LOOP AT i_output WHERE cb = 'X'.
    MOVE i_output TO i_fina.
   APPEND i_final.
   ENDLOOP.
  ULINE.
  FORMAT INTENSIFIED OFF.
  FORMAT COLOR COL_HEADING.
  WRITE:/001 'CB' ,
         003 'Material No',
         015 'Mat type',
         024 'Mat group'.
  FORMAT COLOR OFF.
  FORMAT INTENSIFIED ON.
  ULINE.
  IF NOT i_output[] IS INITIAL.
    LOOP AT i_output INTO wa_output.
      WRITE:/001 wa_output-cb AS checkbox,
             003 wa_output-matnr,
             015 wa_output-mtart,
             024 wa_output-matkl.
      CLEAR wa_output.
    ENDLOOP.
  ENDIF.
WHEN 'BACK'.
LEAVE SCREEN.
ENDCASE.