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.