Listing 7.1  ZPTB00_BUSINESS_TRANSACTION  Geschftsvorfall manuell erfassen
REPORT  zptb00_business_transaction.

DATA:
  l_str_bta TYPE zptb00_str_bta.

DO.
  CALL FUNCTION 'ZPTB00_OBJ_BTA_EDIT'
    CHANGING
      c_str_bta = l_str_bta.

  IF NOT l_str_bta IS INITIAL.
    CALL FUNCTION 'ZPTB00_OBJ_BTA_SAVE'
      EXPORTING
        i_str_bta = l_str_bta
*       i_tab_bta =
      EXCEPTIONS
        failed    = 1
        OTHERS    = 2.
    IF sy-subrc <> 0.
      MESSAGE e008(ZPTB00_BTA).
    ENDIF.
    CLEAR l_str_bta.
  ELSE.
    RETURN.
  ENDIF.

ENDDO.