ASSIATANCE OR ADVICE REQ IN DEVELOPING A REPORT

Question

HI all,
I need assistance in writing a report.
My requirement is as follows.
1) I NEED TO RETRIEVE DATA FROM A ZTABLE SAY BASED ON DATE AND ID.
2 I HAVE TO DISPLAY THE DATA BASED ON THE SELECTION OR INPUT IN SCLECTION.
3)I NEED TO SELECT SAY FEW RECORDS OUT OF THE DISPLAYED ONES AND NEED TO DELETE IT FROM THE ZTABLE.
CAN I USE AN ALV'S .
If its possible pls do send some sample reports to my email
[email protected]
THANKS
PREETI

Answer 1

Hi,
Check this report...
**Change required before executing the report..
1)
Create a GUI status for the program in SE41 by copying
from the program SAPLKKBL and Status 'STANDARD'..
and store the resulting in status 'TEST2'.
2)
I have used table name as ZTABLE..Change accordingly
to your ztable name..
**Endchange
declarations.
TABLES: ztable.
TYPE-POOLS: slis.
DATA: t_fieldcatalog TYPE slis_t_fieldcat_alv.
DATA: s_fieldcatalog TYPE slis_fieldcat_alv.
DATA: s_layout       TYPE slis_layout_alv.
DATA: BEGIN OF t_ztable OCCURS 0.
        INCLUDE STRUCTURE ztable.
DATA: BOX TYPE c,
      END OF t_ztable.
DATA: v_repid        TYPE syrepid.
selection screen
SELECT-OPTIONS so_id   for ztable-id.
SELECT-OPTIONS so_date for ztable-date.
start-of-selection.
Get the data.
SELECT * FROM ztable
       INTO TABLE t_ztable.
       where id   in so_id
       and   date in so_date.
IF sy-subrc <> 0.
  MESSAGE s208(00) WITH 'No data found'.
  LEAVE LIST-PROCESSING.
ENDIF.
v_repid = sy-repid.
Get the field catalog.
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
     EXPORTING
          i_program_name   = v_repid
          i_structure_name = 'ZTABLE'
     CHANGING
          ct_fieldcat      = t_fieldcatalog.
Set the layout.
s_layout-box_fieldname = 'BOX'.
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
     EXPORTING
          i_callback_program       = v_repid
          is_layout                = s_layout
          i_callback_pf_status_set = 'SET_PF_STATUS'
          i_callback_user_command  = 'USER_COMMAND'
          it_fieldcat              = t_fieldcatalog[]
     TABLES
          t_outtab                 = t_ztable.
      FORM SET_PF_STATUS                                            *
-->  EXTAB                                                         *
FORM set_pf_status USING  extab TYPE slis_t_extab.
  SET PF-STATUS 'TEST2'.
ENDFORM.
      FORM user_command                                             *
-->  UCOMM                                                         *
-->  SELFIELD                                                      *
FORM user_command USING ucomm LIKE sy-ucomm
                        selfield TYPE slis_selfield.
Check the ucomm.
  IF ucomm = 'DELETE'.
    LOOP AT t_ztable WHERE box = 'X'.
      DELETE FROM ztable WHERE matnr = t_ztable-matnr.
      COMMIT WORK.
      DELETE t_ztable.
    ENDLOOP.
  ENDIF.
  selfield-refresh = 'X'.
ENDFORM.
Hope this helps..
Thanks,
Naren