How to display the checkboxes in the output

Question

Hi,
I need to display checkboxes in the output. Once i select the check box it should
display additional info of that field in anothe list.
another senario:
I want to check all the checkboxes at a time.
i want to uncheck all the ch-boxes at time.
Can i have some explanation on this with some sample code.
Thanks,
Srik

Answer 1

REPORT  ZTESTPROG5                              .
TABLES: MARA.
Types:begin of type_mara,
      matnr type mara-matnr,
      mtart type mara-mtart,
      meins type mara-meins,
      end of type_mara.
Types: begin of type_mard,
       matnr type mard-matnr,
       werks type mard-werks,
       lgort type mard-lgort,
       labst type mard-labst,
       insme type mard-insme,
       end of type_mard.
data: it_mara type table of type_mara,
      wa_mara type type_mara,
      it_mard type table of type_mard,
      wa_mard type type_mard.
data: check value space,
      ucomm type sy-ucomm,
      lines type i.
select-options: s_matnr for mara-matnr.
initialization.
  MOVE: 'BT'       TO s_matnr-OPTION,
        '100-100'  TO s_matnr-LOW,
        '100-500'  TO s_matnr-HIGH.
  APPEND s_matnr.
start-of-selection.
  set pf-status 'ZSTATUS'.
  select matnr mtart meins from mara
  into table it_mara
  where matnr in s_matnr.
end-of-selection.
  loop at it_mara into wa_mara.
    write:/ check as checkbox, wa_mara-matnr, wa_mara-mtart,
            wa_mara-meins.
    hide wa_mara-matnr.
  endloop.
  lines = sy-linno - 1.
at user-command.
  ucomm = sy-ucomm.
  case ucomm.
    when 'REPORT'.
      set pf-status 'ZSTATUS' excluding 'REPORT'.
      do lines times.
        read line sy-index field value check.
        if check = 'X'.
          select matnr werks lgort labst insme from mard
          into wa_mard
          where matnr = wa_mara-matnr.
            write:/ wa_mard-matnr, wa_mard-werks, wa_mard-lgort,
                    wa_mard-labst, wa_mard-insme.
          endselect.
        endif.
      enddo.
    when 'SELECTALL'.
      lines = lines + 1.
      do lines times.
        READ LINE sy-index FIELD VALUE check.
        IF check = space.
          check = 'X'.
          MODIFY LINE sy-index
                      FIELD VALUE  check.
        ENDIF.
      enddo.
    when 'DESELECT'.
      lines = lines + 1.
      do lines times.
        READ LINE sy-index FIELD VALUE check.
        IF check = 'X'.
          check = space.
          MODIFY LINE sy-index
                      FIELD VALUE check.
        ENDIF.
      enddo.
  endcase.