|
|
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. | ||||||||||
|
