To put a delete button on the screen (Fcode = DELETE) with a checkbox on each line.

at user-command.                                                   

  case sy-ucomm.                                                    

    when 'DELETE'.                                                 

        do counter times.                                          

            read line sy-index.                                    

            if sy-lisel(1) = 'X'.  “Holds line content and sy-lisel(1) will be X when checked

                select single * from ……                

            endif.                                                 

        enddo.                                                      

        perform write_report.                                      

        sy-lsind = 0.                                              

  endcase.                                                         

form write_report.                               

  select * from ….           

      write: / pick as checkbox,                

               ……                   

      hide: …….           

  endselect.                                    

  counter = sy-dbcnt + 7.    “Cater for header lines

endform. " WRITE_REPORT                         

start-of-selection.      

  set pf-status 'STD'.   

  perform write_report.  

Related Items:

• Automatic Refresh Report - per
• Drill down report
• Drill Down Reports
• Dynamic programs
• Dynamic selection screens