daten aus der DB löschen

Code: Alles auswählen.

*Definition y5dias_zp_zinsab als Tabelle
tables: y5dias_zp_zinsab.

*Start Screen-Block
selection-screen begin of block delen with frame title text-001.

* Globale Daten
data: gt_zinsab type table of  y5dias_zp_zinsab,
      wa_y5dias_zp_zinsab type y5dias_zp_zinsab.

* paramter p_bkurs mit dem Anfangswert '3100'
parameters:   p_bukrs  type y5dias_zp_zinsab-bukrs default '3100'.


*Select optionen
select-options:
          s_ranl   for y5dias_zp_zinsab-ranl,
          s_rldepo for y5dias_zp_zinsab-rldepo,
          s_rglrei for y5dias_zp_zinsab-rglreid,
          s_laufnr for y5dias_zp_zinsab-laufnr,
          s_rvinum for y5dias_zp_zinsab-rvinum,
          s_evad   for y5dias_zp_zinsab-evaluation_date,
          s_nlaufn for y5dias_zp_zinsab-nlaufnr,
          s_sstorn for y5dias_zp_zinsab-sstorno.
ULINE.

* check box
parameters:   p_del  as checkbox default ' '.

selection-screen end of block delen.

selection-screen skip 1.

* Blockverarbeitung starten
start-of-selection.
  select * from  y5dias_zp_zinsab  into table gt_zinsab
           where bukrs            eq p_bukrs
           and   ranl             in s_ranl
           and   rldepo           in s_rldepo
           and   rglreid          in s_rglrei
           and   laufnr           in s_laufnr
           and   rvinum           in s_rvinum
           and   evaluation_date  in s_evad
           and   nlaufnr          in s_nlaufn
           and   sstorno          in s_sstorn.

* Überprüfe den checkbox
  if p_del = 'X'.

    delete gt_zinsab from y5dias_zp_zinsab.
    write: / 'Folgende Datensätze wurden gelöscht:'.

  else.
    write: / 'Es werden folfgende Einträge gelöscht:'.

  endif.