Neuer Eintrag in Datenbanktabelle mit Eingabeparametern

Code: Alles auswählen.

     
            PARAMETERS: r_b_crea TYPE c RADIOBUTTON GROUP rb1,       
            book_i TYPE i,
            book_ti TYPE /SAPLOM/LIB_BOOK_TITEL,
            book_au TYPE /SAPLOM/LIB_BOOK_AUTHOR,
            book_pu TYPE /SAPLOM/LIB_BOOK_PUBL,
            book_is TYPE /SAPLOM/LIB_BOOK_ISBN.

Code: Alles auswählen.

START-OF-SELECTION.
  CASE 'X'.
    WHEN r_b_crea.
       
          ???????????

    WHEN r_b_del.
      DELETE FROM /saplom/lib_book WHERE book_id = bookd.
    WHEN r_u_crea.
    WHEN r_b_disp.
      SELECT * INTO CORRESPONDING FIELDS OF TABLE lt_showb
      FROM /saplom/lib_book.

* shows a table with all books
      WRITE AT: 1 text-005,
               21 text-006,
               31 text-007.
      ULINE.

      LOOP AT lt_showb INTO ls_showb.
        WRITE AT: 1 ls_showb-book_id.
*              21 ls_showb-werks,
*              31 showb-datum.
        NEW-LINE.

      ENDLOOP.

    WHEN r_ab_dis.

      SELECT * INTO CORRESPONDING FIELDS OF TABLE lt_showb
      FROM /saplom/lib_book
      WHERE BOOK_LENT_FLAKE = 'X'.
* shows a table with all books
      WRITE AT: 1 text-005,
               21 text-006,
               31 text-007.
      ULINE.

      LOOP AT lt_showb INTO ls_showb.
        WRITE AT: 1 ls_showb-book_id.
*              21 ls_showb-werks,
*              31 showb-datum.
        NEW-LINE.

      ENDLOOP.

  ENDCASE.