Manuell Objektkatalogeinträge in Transport aufnehmen -Report

Code: Alles auswählen.

*Paket zuordnen

  CALL FUNCTION 'TR_TADIR_INTERFACE'
    EXPORTING
*  WI_DELETE_TADIR_ENTRY                = 'X'
*   WI_REMOVE_REPAIR_FLAG                = 'X'
*   WI_SET_REPAIR_FLAG                   = ' '
      WI_TEST_MODUS                        = ' '
      wi_tadir_pgmid                       = 'R3TR'
      wi_tadir_object                      = 'DOMA'
      wi_tadir_obj_name                    = l_objname
   WI_TADIR_KORRNUM                     = 'BSPK951715'
   WI_TADIR_SRCSYSTEM                   = l_srcsystem
   WI_TADIR_AUTHOR                      = sy-uname
     wi_tadir_devclass                    = p_paket
   WI_TADIR_MASTERLANG                  = sy-langu
*   WI_TADIR_CPROJECT                    = ' '
*   WI_TADIR_VERSID                      = ' '
*   WI_REMOVE_GENFLAG                    = ' '
    WI_SET_GENFLAG                       = ' '
    WI_READ_ONLY                         = ' '
*   IV_SET_EDTFLAG                       = ' '
* IMPORTING
*   NEW_GTADIR_ENTRY                     =
*   NEW_TADIR_ENTRY                      =
   EXCEPTIONS
     tadir_entry_not_existing             = 1
     tadir_entry_ill_type                 = 2
     no_systemname                        = 3
     no_systemtype                        = 4
     original_system_conflict             = 5
     object_reserved_for_devclass         = 6
     object_exists_global                 = 7
     object_exists_local                  = 8
     object_is_distributed                = 9
     obj_specification_not_unique         = 10
     no_authorization_to_delete           = 11
     devclass_not_existing                = 12
     simultanious_set_remove_repair       = 13
     order_missing                        = 14
     no_modification_of_head_syst         = 15
     pgmid_object_not_allowed             = 16
     masterlanguage_not_specified         = 17
     devclass_not_specified               = 18
     specify_owner_unique                 = 19
     loc_priv_objs_no_repair              = 20
     gtadir_not_reached                   = 21
     object_locked_for_order              = 22
     change_of_class_not_allowed          = 23
     no_change_from_sap_to_tmp            = 24
     OTHERS                               = 25.
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.

Code: Alles auswählen.

  lt_e071-trkorr = 'LTTK951715'.
  lt_e071-as4pos = 1.
  lt_e071-pgmid = 'R3TR'.
  lt_e071-object = 'DOMA'.
  lt_e071-obj_name = 'Z_TEST'.
  APPEND lt_e071.

  CALL FUNCTION 'TRINT_APPEND_TO_COMM_ARRAYS'
    EXPORTING
*   WI_ERROR_TABLE                     = ' '
*   WI_SIMULATION                      = ' '
     wi_suppress_key_check              = 'X'
      wi_trkorr                          = lt_e071-trkorr
      wi_trpar_int_filled                = 'X'
*   WI_LOCKKEY_FILLED                  = ' '
     iv_append_at_order                 = 'X'
     iv_append_at_order_with_lock       = 'X'
     iv_no_owner_check                  = 'X'
    TABLES
      wt_e071                            = lt_e071
*   WT_E071K                           =
*   WT_TRMESS_INT                      =
*   WT_TRPAR_INT                       =
*   WT_LOCKKEY                         =
   EXCEPTIONS
     key_check_keysyntax_error          = 1
     ob_check_obj_error                 = 2
     tr_lockmod_failed                  = 3
     tr_lock_enqueue_failed             = 4
     tr_wrong_order_type                = 5
     tr_order_update_error              = 6
     file_access_error                  = 7
     ob_no_systemname                   = 8
     OTHERS                             = 9.