SAP Function Modules

TRINT_TADIR_INTERFACE SAP Function module







TRINT_TADIR_INTERFACE is a standard SAP function module available within R/3 SAP systems depending on your version and release level. Below is the pattern details for this FM showing its interface including any import and export parameters, exceptions etc as well as any documentation contributions (Comments) specific to the object.

See here to view full function module documentation and code listing, simply by entering the name TRINT_TADIR_INTERFACE into the relevant SAP transaction such as SE37 or SE80.

Associated Function Group: STRD
Released Date: Not Released
Processing type: Normal fucntion module
Normal function module settings


Pattern for FM TRINT_TADIR_INTERFACE - TRINT TADIR INTERFACE





CALL FUNCTION 'TRINT_TADIR_INTERFACE' "
  EXPORTING
*   wi_delete_tadir_entry = ' '  " trpari-s_checked
*   wi_remove_repair_flag = ' '  " trpari-s_checked
*   wi_set_repair_flag = ' '    " trpari-s_checked
*   wi_test_modus = 'X'         " trpari-s_checked  X - simulation mode (no update)
    wi_tadir_pgmid =            " tadir-pgmid   Input for TADIR field PGMID
    wi_tadir_object =           " tadir-object  Input for TADIR field  OBJECT
    wi_tadir_obj_name =         " tadir-obj_name  Input for TADIR field OBJ_NAME
*   wi_tadir_korrnum = ' '      " tadir-korrnum  WBO internal
*   wi_tadir_srcsystem = ' '    " tadir-srcsystem  Input for TADIR field SRCSYSTEM
*   wi_tadir_author = ' '       " tadir-author  Input for TADIR field AUTHOR
*   wi_tadir_devclass = ' '     " tadir-devclass  Input for TADIR field DEVCLASS
*   wi_tadir_masterlang = ' '   " tadir-masterlang  Input for TADIR field  MASTERLANG
*   wi_tadir_cproject = ' '     " tadir-cproject  WBO internal
*   wi_tadir_versid = ' '       " tadir-versid  WBO internal
*   wi_remove_genflag = ' '     " trpari-s_checked
*   wi_set_genflag = ' '        " tadir-genflag  Set flag for generation (see documentation)
*   wi_read_only = ' '          " trpari-s_checked
*   iv_set_edtflag = ' '        " tadir-edtflag  Editing lock for standard editors
*   iv_wbo_internal = ' '       " trpari-flag
*   iv_insert_mode = ' '        " trpari-flag
*   iv_transl_tech_text = ' '   " tadir-translttxt
*   iv_delflag = ' '            " tadir-delflag
*   iv_no_pak_check = ' '       " tadir-paknocheck  Check exceptions for package checks
*   iv_obj_stability = ' '      " tadir-objstablty  Release Status of a Development Object
*   iv_transl_tech_text_supp = ' '  " char1
*   iv_delflag_supp = ''        " char1
*   iv_no_pak_check_supp = ' '  " char1
*   iv_obj_stability_supp = ' '  " char1
*   wi_tadir_check_date = ''    " tadir-check_date
*   wi_tadir_check_cfg = '~'    " tadir-check_cfg
  IMPORTING
    new_gtadir_entry =          " gtadir        Entry in the global TADIR
    new_tadir_entry =           " tadir         Modified TADIR entry
  EXCEPTIONS
    TADIR_ENTRY_NOT_EXISTING = 1  "
    TADIR_ENTRY_ILL_TYPE = 2    "               Transferred TADIR key not compatible with E071
    NO_SYSTEMNAME = 3           "               System name not found
    NO_SYSTEMTYPE = 4           "               System type not defined
    ORIGINAL_SYSTEM_CONFLICT = 5  "             Object already exists in another system
    OBJECT_RESERVED_FOR_DEVCLASS = 6  "         Object reserved for name range
    OBJECT_EXISTS_GLOBAL = 7    "               Object exists globally
    OBJECT_EXISTS_LOCAL = 8     "               Object exists locally
    OBJECT_IS_DISTRIBUTED = 9   "               Object is distributed
    OBJ_SPECIFICATION_NOT_UNIQUE = 10  "        Object specification for import is not sufficient
    NO_AUTHORIZATION_TO_DELETE = 11  "          No permission to delete
    DEVCLASS_NOT_EXISTING = 12  "               Development class unknown
    SIMULTANIOUS_SET_REMOVE_REPAIR = 13  "
    ORDER_MISSING = 14          "               Repair request was not transferred
    NO_MODIFICATION_OF_HEAD_SYST = 15  "        Modification of HEAD-SYST entry not allowed
    PGMID_OBJECT_NOT_ALLOWED = 16  "            PGMID entry not permitted
    MASTERLANGUAGE_NOT_SPECIFIED = 17  "        Master language not specified
    DEVCLASS_NOT_SPECIFIED = 18  "              Development class not qualified
    SPECIFY_OWNER_UNIQUE = 19   "
    LOC_PRIV_OBJS_NO_REPAIR = 20  "             No repair to local-private objects
    GTADIR_NOT_REACHED = 21     "               The GTADIR cannot be accessed
    OBJECT_LOCKED_FOR_ORDER = 22  "
    CHANGE_OF_CLASS_NOT_ALLOWED = 23  "
    NO_CHANGE_FROM_SAP_TO_TMP = 24  "           Do not switch SAP objects to customer development class
    .  "  TRINT_TADIR_INTERFACE

ABAP code example for Function Module TRINT_TADIR_INTERFACE





The ABAP code below is a full code listing to execute function module TRINT_TADIR_INTERFACE including all data declarations. The code uses the latest in-line data DECLARATION SYNTAX but I have included an ABAP code snippet at the end to show how declarations would look using the original method of declaring data variables up front. This will allow you to compare and fully understand the new inline method. Please note some of the newer syntax such as the @DATA is not available until a later 4.70 service pack (SP8).

DATA:
ld_new_gtadir_entry  TYPE GTADIR ,
ld_new_tadir_entry  TYPE TADIR .


DATA(ld_wi_delete_tadir_entry) = some text here

DATA(ld_wi_remove_repair_flag) = some text here

DATA(ld_wi_set_repair_flag) = some text here

DATA(ld_wi_test_modus) = some text here

SELECT single PGMID
FROM TADIR
INTO @DATA(ld_wi_tadir_pgmid).


SELECT single OBJECT
FROM TADIR
INTO @DATA(ld_wi_tadir_object).


SELECT single OBJ_NAME
FROM TADIR
INTO @DATA(ld_wi_tadir_obj_name).


SELECT single KORRNUM
FROM TADIR
INTO @DATA(ld_wi_tadir_korrnum).


SELECT single SRCSYSTEM
FROM TADIR
INTO @DATA(ld_wi_tadir_srcsystem).


SELECT single AUTHOR
FROM TADIR
INTO @DATA(ld_wi_tadir_author).


SELECT single DEVCLASS
FROM TADIR
INTO @DATA(ld_wi_tadir_devclass).


SELECT single MASTERLANG
FROM TADIR
INTO @DATA(ld_wi_tadir_masterlang).


SELECT single CPROJECT
FROM TADIR
INTO @DATA(ld_wi_tadir_cproject).


SELECT single VERSID
FROM TADIR
INTO @DATA(ld_wi_tadir_versid).


DATA(ld_wi_remove_genflag) = some text here

SELECT single GENFLAG
FROM TADIR
INTO @DATA(ld_wi_set_genflag).


DATA(ld_wi_read_only) = some text here

SELECT single EDTFLAG
FROM TADIR
INTO @DATA(ld_iv_set_edtflag).


DATA(ld_iv_wbo_internal) = some text here

DATA(ld_iv_insert_mode) = some text here

SELECT single TRANSLTTXT
FROM TADIR
INTO @DATA(ld_iv_transl_tech_text).


SELECT single DELFLAG
FROM TADIR
INTO @DATA(ld_iv_delflag).


SELECT single PAKNOCHECK
FROM TADIR
INTO @DATA(ld_iv_no_pak_check).


SELECT single OBJSTABLTY
FROM TADIR
INTO @DATA(ld_iv_obj_stability).

DATA(ld_iv_transl_tech_text_supp) = 'Check type of data required'.
DATA(ld_iv_delflag_supp) = 'Check type of data required'.
DATA(ld_iv_no_pak_check_supp) = 'Check type of data required'.
DATA(ld_iv_obj_stability_supp) = 'Check type of data required'.

SELECT single CHECK_DATE
FROM TADIR
INTO @DATA(ld_wi_tadir_check_date).


SELECT single CHECK_CFG
FROM TADIR
INTO @DATA(ld_wi_tadir_check_cfg).
. CALL FUNCTION 'TRINT_TADIR_INTERFACE' EXPORTING * wi_delete_tadir_entry = ld_wi_delete_tadir_entry * wi_remove_repair_flag = ld_wi_remove_repair_flag * wi_set_repair_flag = ld_wi_set_repair_flag * wi_test_modus = ld_wi_test_modus wi_tadir_pgmid = ld_wi_tadir_pgmid wi_tadir_object = ld_wi_tadir_object wi_tadir_obj_name = ld_wi_tadir_obj_name * wi_tadir_korrnum = ld_wi_tadir_korrnum * wi_tadir_srcsystem = ld_wi_tadir_srcsystem * wi_tadir_author = ld_wi_tadir_author * wi_tadir_devclass = ld_wi_tadir_devclass * wi_tadir_masterlang = ld_wi_tadir_masterlang * wi_tadir_cproject = ld_wi_tadir_cproject * wi_tadir_versid = ld_wi_tadir_versid * wi_remove_genflag = ld_wi_remove_genflag * wi_set_genflag = ld_wi_set_genflag * wi_read_only = ld_wi_read_only * iv_set_edtflag = ld_iv_set_edtflag * iv_wbo_internal = ld_iv_wbo_internal * iv_insert_mode = ld_iv_insert_mode * iv_transl_tech_text = ld_iv_transl_tech_text * iv_delflag = ld_iv_delflag * iv_no_pak_check = ld_iv_no_pak_check * iv_obj_stability = ld_iv_obj_stability * iv_transl_tech_text_supp = ld_iv_transl_tech_text_supp * iv_delflag_supp = ld_iv_delflag_supp * iv_no_pak_check_supp = ld_iv_no_pak_check_supp * iv_obj_stability_supp = ld_iv_obj_stability_supp * wi_tadir_check_date = ld_wi_tadir_check_date * wi_tadir_check_cfg = ld_wi_tadir_check_cfg IMPORTING new_gtadir_entry = ld_new_gtadir_entry new_tadir_entry = ld_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 . " TRINT_TADIR_INTERFACE
IF SY-SUBRC EQ 0. "All OK ELSEIF SY-SUBRC EQ 1. "Exception "Add code for exception here ELSEIF SY-SUBRC EQ 2. "Exception "Add code for exception here ELSEIF SY-SUBRC EQ 3. "Exception "Add code for exception here ELSEIF SY-SUBRC EQ 4. "Exception "Add code for exception here ELSEIF SY-SUBRC EQ 5. "Exception "Add code for exception here ELSEIF SY-SUBRC EQ 6. "Exception "Add code for exception here ELSEIF SY-SUBRC EQ 7. "Exception "Add code for exception here ELSEIF SY-SUBRC EQ 8. "Exception "Add code for exception here ELSEIF SY-SUBRC EQ 9. "Exception "Add code for exception here ELSEIF SY-SUBRC EQ 10. "Exception "Add code for exception here ELSEIF SY-SUBRC EQ 11. "Exception "Add code for exception here ELSEIF SY-SUBRC EQ 12. "Exception "Add code for exception here ELSEIF SY-SUBRC EQ 13. "Exception "Add code for exception here ELSEIF SY-SUBRC EQ 14. "Exception "Add code for exception here ELSEIF SY-SUBRC EQ 15. "Exception "Add code for exception here ELSEIF SY-SUBRC EQ 16. "Exception "Add code for exception here ELSEIF SY-SUBRC EQ 17. "Exception "Add code for exception here ELSEIF SY-SUBRC EQ 18. "Exception "Add code for exception here ELSEIF SY-SUBRC EQ 19. "Exception "Add code for exception here ELSEIF SY-SUBRC EQ 20. "Exception "Add code for exception here ELSEIF SY-SUBRC EQ 21. "Exception "Add code for exception here ELSEIF SY-SUBRC EQ 22. "Exception "Add code for exception here ELSEIF SY-SUBRC EQ 23. "Exception "Add code for exception here ELSEIF SY-SUBRC EQ 24. "Exception "Add code for exception here ENDIF.







ABAP code to compare 7.40 inline data declaration with original syntax

The below ABAP code uses the older none in-line data declarations. This allows you to see the coding differences/benefits of the later inline syntax. It may also be useful if you are using an older version of SAP as some of the newer syntax above, such as the @DATA is not available until 4.70 EHP 8.

DATA:
ld_new_gtadir_entry  TYPE GTADIR ,
ld_wi_delete_tadir_entry  TYPE TRPARI-S_CHECKED ,
ld_new_tadir_entry  TYPE TADIR ,
ld_wi_remove_repair_flag  TYPE TRPARI-S_CHECKED ,
ld_wi_set_repair_flag  TYPE TRPARI-S_CHECKED ,
ld_wi_test_modus  TYPE TRPARI-S_CHECKED ,
ld_wi_tadir_pgmid  TYPE TADIR-PGMID ,
ld_wi_tadir_object  TYPE TADIR-OBJECT ,
ld_wi_tadir_obj_name  TYPE TADIR-OBJ_NAME ,
ld_wi_tadir_korrnum  TYPE TADIR-KORRNUM ,
ld_wi_tadir_srcsystem  TYPE TADIR-SRCSYSTEM ,
ld_wi_tadir_author  TYPE TADIR-AUTHOR ,
ld_wi_tadir_devclass  TYPE TADIR-DEVCLASS ,
ld_wi_tadir_masterlang  TYPE TADIR-MASTERLANG ,
ld_wi_tadir_cproject  TYPE TADIR-CPROJECT ,
ld_wi_tadir_versid  TYPE TADIR-VERSID ,
ld_wi_remove_genflag  TYPE TRPARI-S_CHECKED ,
ld_wi_set_genflag  TYPE TADIR-GENFLAG ,
ld_wi_read_only  TYPE TRPARI-S_CHECKED ,
ld_iv_set_edtflag  TYPE TADIR-EDTFLAG ,
ld_iv_wbo_internal  TYPE TRPARI-FLAG ,
ld_iv_insert_mode  TYPE TRPARI-FLAG ,
ld_iv_transl_tech_text  TYPE TADIR-TRANSLTTXT ,
ld_iv_delflag  TYPE TADIR-DELFLAG ,
ld_iv_no_pak_check  TYPE TADIR-PAKNOCHECK ,
ld_iv_obj_stability  TYPE TADIR-OBJSTABLTY ,
ld_iv_transl_tech_text_supp  TYPE CHAR1 ,
ld_iv_delflag_supp  TYPE CHAR1 ,
ld_iv_no_pak_check_supp  TYPE CHAR1 ,
ld_iv_obj_stability_supp  TYPE CHAR1 ,
ld_wi_tadir_check_date  TYPE TADIR-CHECK_DATE ,
ld_wi_tadir_check_cfg  TYPE TADIR-CHECK_CFG .


ld_wi_delete_tadir_entry = some text here

ld_wi_remove_repair_flag = some text here

ld_wi_set_repair_flag = some text here

ld_wi_test_modus = some text here

SELECT single PGMID
FROM TADIR
INTO ld_wi_tadir_pgmid.


SELECT single OBJECT
FROM TADIR
INTO ld_wi_tadir_object.


SELECT single OBJ_NAME
FROM TADIR
INTO ld_wi_tadir_obj_name.


SELECT single KORRNUM
FROM TADIR
INTO ld_wi_tadir_korrnum.


SELECT single SRCSYSTEM
FROM TADIR
INTO ld_wi_tadir_srcsystem.


SELECT single AUTHOR
FROM TADIR
INTO ld_wi_tadir_author.


SELECT single DEVCLASS
FROM TADIR
INTO ld_wi_tadir_devclass.


SELECT single MASTERLANG
FROM TADIR
INTO ld_wi_tadir_masterlang.


SELECT single CPROJECT
FROM TADIR
INTO ld_wi_tadir_cproject.


SELECT single VERSID
FROM TADIR
INTO ld_wi_tadir_versid.


ld_wi_remove_genflag = some text here

SELECT single GENFLAG
FROM TADIR
INTO ld_wi_set_genflag.


ld_wi_read_only = some text here

SELECT single EDTFLAG
FROM TADIR
INTO ld_iv_set_edtflag.


ld_iv_wbo_internal = some text here

ld_iv_insert_mode = some text here

SELECT single TRANSLTTXT
FROM TADIR
INTO ld_iv_transl_tech_text.


SELECT single DELFLAG
FROM TADIR
INTO ld_iv_delflag.


SELECT single PAKNOCHECK
FROM TADIR
INTO ld_iv_no_pak_check.


SELECT single OBJSTABLTY
FROM TADIR
INTO ld_iv_obj_stability.

ld_iv_transl_tech_text_supp = 'Check type of data required'.
ld_iv_delflag_supp = 'Check type of data required'.
ld_iv_no_pak_check_supp = 'Check type of data required'.
ld_iv_obj_stability_supp = 'Check type of data required'.

SELECT single CHECK_DATE
FROM TADIR
INTO ld_wi_tadir_check_date.


SELECT single CHECK_CFG
FROM TADIR
INTO ld_wi_tadir_check_cfg.

Contribute (Add Comments)

Please help keep this info upto date and use the comments section below to add useful hints, tips and information specific to this SAP function. This will then be available for you and other users to easily find by simply searching on the object name TRINT_TADIR_INTERFACE or its description.