Listing 5.8  Quelltext des Programms ZPTB00_BUSINESS_TRANSACTION
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
      EXCEPTIONS
        FAILED    = 1
        OTHERS    = 2.
    CLEAR l_str_bta.
  ELSE.
    RETURN.
  ENDIF.
ENDDO.