SAP Reports / Programs | Aerospace & Defence Industry Solution | Aerospace & Defence Industry Solution(IS-AD) SAP IS

ADPRIOTOOLF14 SAP ABAP INCLUDE - documentation and ABAP source code







ADPRIOTOOLF14 is a standard ABAP INCLUDE available within your SAP system (depending on your version and release level). Below is the basic information available for this SAP report including which OBJECTS it interacts with such as TABLES, FUNCTION MODULES, INCLUDES ETC. Also check out the submitted Comments related to this SAP report or see any standard documentation available.

If you would like to execute this report or see the full code listing simply enter ADPRIOTOOLF14 into the relevant SAP transactions such as SE38 or SE80


ABAP code to call this SAP report using the submit statement

This report can be called from another progam/report simply by using the ABAP SUBMIT statement, see below for example ABAP code snipts of how to do this.






SUBMIT ADPRIOTOOLF14. "Basic submit
SUBMIT ADPRIOTOOLF14 AND RETURN. "Return to original report after report execution complete
SUBMIT ADPRIOTOOLF14 VIA SELECTION-SCREEN. "Display selection screen of submitted report to user
    See more syntax options for the ABAP SUBMIT statement


INCLUDES used within this REPORT ADPRIOTOOLF14

No INCLUDES are used within this REPORT code!


TABLES used within REPORT and the associated SELECT statement:





No SAP DATABASE tables are accessed within this REPORT code!


Function Modules used within report and the associated call statement:

HELP_REQUEST_FOR_OBART CALL FUNCTION 'HELP_REQUEST_FOR_OBART' EXPORTING FIELDNAME = 'KONTY' TABNAME = 'COBRB' SETTLEMENT_RECEIVER_ONLY = 'X' IMPORTING SELECT_VALUE = ABKONTY.

CF_DB_AUFPL_TO_PRT_READ * CALL FUNCTION 'CF_DB_AUFPL_TO_PRT_READ' * TABLES * R_AUFPL = AUFPL * R_MATNR = S_MATNR * R_WERKS = S_WERKS * R_EQUNR = S_EQUNR * R_DOKNR = S_DOKNR * R_DOKAR = S_DOKAR * R_DOKVR = S_DOKVR * R_DOKTL = S_DOKTL * R_SFHNR = S_SFHNR.

CONTROL_INIT CALL FUNCTION 'CONTROL_INIT'. "Prio

POPUP_TO_CONFIRM_STEP CALL FUNCTION 'POPUP_TO_CONFIRM_STEP' EXPORTING DEFAULTOPTION = 'Y' TEXTLINE1 = TEXT-710 TEXTLINE2 = TEXT-71A TITEL = TEXT-712 IMPORTING ANSWER = ANSWER.

POPUP_TO_DECIDE CALL FUNCTION 'POPUP_TO_DECIDE' EXPORTING DEFAULTOPTION = 'Y' TEXTLINE1 = TEXT-710 TEXTLINE2 = TEXT-711 TEXTLINE3 = TEXT-712 TEXT_OPTION1 = TEXT-714 TEXT_OPTION2 = TEXT-715 TITEL = TEXT-713 IMPORTING ANSWER = ANSWER.

PM_GET_REVISION_NUMBER CALL FUNCTION 'PM_GET_REVISION_NUMBER' IMPORTING EXP_T352R = T352R USER_ABORT = G_EXIT_FLAG.

STATUS_BUFFER_REFRESH CALL FUNCTION 'STATUS_BUFFER_REFRESH'.

SAPGUI_PROGRESS_INDICATOR CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR' EXPORTING PERCENTAGE = 20 TEXT = 'Auftragsselektion'(207).

CR_WORKCENTER_PRE_READ CALL FUNCTION 'CR_WORKCENTER_PRE_READ' TABLES TARBID = L_TARBID.

STATUS_PRE_READ CALL FUNCTION 'STATUS_PRE_READ' TABLES JSTO_PRE_TAB = L_JSTO_PRE_TAB.

PMSDO_PRE_READ CALL FUNCTION 'PMSDO_PRE_READ' TABLES OBJNR_TAB = L_JSTO_PRE_TAB EXCEPTIONS OTHERS = 0.

PM_WORKORDER_COSTS_LIST CALL FUNCTION 'PM_WORKORDER_COSTS_LIST' EXPORTING LIST_CURRENCY = WAERS ALL_CURRENCIES = 'X' EXTERNAL_CALL = 'X' TABLES LIST_AUFK = H_RIHAUFK_TAB EXCEPTIONS OTHERS = 01.

IREP1_LOCATION_TEXT_PRE_FETCH CALL FUNCTION 'IREP1_LOCATION_TEXT_PRE_FETCH' TABLES TPLNR_TAB = G_TPLNR_TAB EXCEPTIONS NO_TEXT_FOUND = 1 OTHERS = 2.

IREP1_EQUIPMENT_TEXT_PRE_FETCH CALL FUNCTION 'IREP1_EQUIPMENT_TEXT_PRE_FETCH' TABLES EQUNR_TAB = G_EQUNR_TAB EXCEPTIONS NO_TEXT_FOUND = 1 OTHERS = 2.

IREP1_MATERIAL_TEXT_PRE_FETCH CALL FUNCTION 'IREP1_MATERIAL_TEXT_PRE_FETCH' TABLES MATNR_TAB = G_MATNR_TAB EXCEPTIONS NO_TEXT_FOUND = 1 OTHERS = 2.

CR_WORKSTATION_READ CALL FUNCTION 'CR_WORKSTATION_READ' EXPORTING ID = OBJECT_TAB-PPSID MSGTY = 'S' IMPORTING ARBPL = OBJECT_TAB-ARBPL EXCEPTIONS NOT_FOUND = 01.

CR_WORKSTATION_READ CALL FUNCTION 'CR_WORKSTATION_READ' EXPORTING ID = OBJECT_TAB-IGEWRK MSGTY = 'S' IMPORTING WERKS = OBJECT_TAB-AWERK ARBPL = OBJECT_TAB-GEWRK EXCEPTIONS NOT_FOUND = 01.

STATUS_TEXT_EDIT CALL FUNCTION 'STATUS_TEXT_EDIT' EXPORTING OBJNR = OBJECT_TAB-OBJNR SPRAS = SY-LANGU FLG_USER_STAT = 'X' IMPORTING LINE = OBJECT_TAB-STTXT USER_LINE = OBJECT_TAB-USTXT EXCEPTIONS OBJECT_NOT_FOUND = 01.

PMSDO_READ





CALL FUNCTION 'PMSDO_READ' EXPORTING OBJNR = OBJECT_TAB-OBJNR IMPORTING ORG = H_ORG EXCEPTIONS NOT_FOUND = 1 OTHERS = 2.

IREP1_EQUIPMENT_TEXT_READ CALL FUNCTION 'IREP1_EQUIPMENT_TEXT_READ' EXPORTING I_EQUNR = OBJECT_TAB-EQUNR IMPORTING E_EQKTX = OBJECT_TAB-EQKTX EXCEPTIONS NO_TEXT_FOUND = 1 OTHERS = 2.

IREP1_LOCATION_TEXT_READ CALL FUNCTION 'IREP1_LOCATION_TEXT_READ' EXPORTING I_TPLNR = OBJECT_TAB-TPLNR_INT IMPORTING E_PLTXT = OBJECT_TAB-PLTXT EXCEPTIONS NO_TEXT_FOUND = 1 OTHERS = 2.

IREP1_MATERIAL_TEXT_READ CALL FUNCTION 'IREP1_MATERIAL_TEXT_READ' EXPORTING I_MATNR = OBJECT_TAB-SERMAT IMPORTING E_MAKTX = OBJECT_TAB-MAKTX EXCEPTIONS NO_TEXT_FOUND = 1 OTHERS = 2.

IREP1_MATERIAL_TEXT_READ CALL FUNCTION 'IREP1_MATERIAL_TEXT_READ' EXPORTING I_MATNR = OBJECT_TAB-BAUTL IMPORTING E_MAKTX = OBJECT_TAB-BAUTLX EXCEPTIONS NO_TEXT_FOUND = 1 OTHERS = 2.

STATUS_READ CALL FUNCTION 'STATUS_READ' EXPORTING OBJNR = OBJECT_TAB-OBJNR ONLY_ACTIVE = 'X' TABLES STATUS = H_STATUS_TAB EXCEPTIONS OTHERS = 01.

STATUS_NUMBER_CONVERSION CALL FUNCTION 'STATUS_NUMBER_CONVERSION' EXPORTING LANGUAGE = SY-LANGU OBJNR = OBJECT_TAB-OBJNR STATUS_NUMBER = H_STATUS_TAB-STAT IMPORTING TXT04 = H_STATUS_TEXT_TAB-TXT04 EXCEPTIONS OTHERS = 01.

INST_AUTHORITY_CHECK_ALL CALL FUNCTION 'INST_AUTHORITY_CHECK_ALL' EXPORTING BEGRP = H_BEGRU IWERK = OBJECT_TAB-IWERK SWERK = OBJECT_TAB-SWERK TCODE = F_TCODE AUART = OBJECT_TAB-AUART INGRP = OBJECT_TAB-INGPR * AKTTYP = ' ' KOKRS = OBJECT_TAB-KOKRS KOSTL = OBJECT_TAB-KOSTL EXCEPTIONS KEINE_BERECHTIGUNG_BEGRP = 1 KEINE_BERECHTIGUNG_IWERK = 2 KEINE_BERECHTIGUNG_SWERK = 3 KEINE_BERECHTIGUNG_AUART = 4 KEINE_BERECHTIGUNG_INGRP = 5 KEINE_BERECHTIGUNG_KOSTL = 6 OTHERS = 7.

IREP1_EQUIPMENT_TEXT_READ CALL FUNCTION 'IREP1_EQUIPMENT_TEXT_READ' EXPORTING I_EQUNR = OBJECT_TAB-EQUNR IMPORTING E_EQKTX = OBJECT_TAB-EQKTX EXCEPTIONS NO_TEXT_FOUND = 1 OTHERS = 2.

IREP1_LOCATION_TEXT_READ CALL FUNCTION 'IREP1_LOCATION_TEXT_READ' EXPORTING I_TPLNR = OBJECT_TAB-TPLNR_INT IMPORTING E_PLTXT = OBJECT_TAB-PLTXT EXCEPTIONS NO_TEXT_FOUND = 1 OTHERS = 2.

IREP1_MATERIAL_TEXT_READ CALL FUNCTION 'IREP1_MATERIAL_TEXT_READ' EXPORTING I_MATNR = OBJECT_TAB-SERMAT IMPORTING E_MAKTX = OBJECT_TAB-MAKTX EXCEPTIONS NO_TEXT_FOUND = 1 OTHERS = 2.

IREP1_MATERIAL_TEXT_READ CALL FUNCTION 'IREP1_MATERIAL_TEXT_READ' EXPORTING I_MATNR = OBJECT_TAB-BAUTL IMPORTING E_MAKTX = OBJECT_TAB-BAUTLX EXCEPTIONS NO_TEXT_FOUND = 1 OTHERS = 2.

UNIT_CONVERSION_SIMPLE CALL FUNCTION 'UNIT_CONVERSION_SIMPLE' EXPORTING INPUT = H_LIAUSZT UNIT_IN = G_IMAUEH UNIT_OUT = G_EMAUEH IMPORTING OUTPUT = H_LOAUSZT.

FIND_BASE_DIMENSION CALL FUNCTION 'FIND_BASE_DIMENSION' EXPORTING TIMEX = H_LTIMEX IMPORTING DIMID = H_DIMID.

FIND_BASE_UNIT CALL FUNCTION 'FIND_BASE_UNIT' EXPORTING DIMID = H_DIMID NENNR = H_LNENNR ZAEHL = H_LZAEHL IMPORTING MSEHI = G_IMAUEH EXCEPTIONS UNIT_NOT_FOUND = 4.

FIND_BASE_UNIT CALL FUNCTION 'FIND_BASE_UNIT' EXPORTING DIMID = H_DIMID NENNR = H_LNENNR ZAEHL = H_LZAEHL IMPORTING MSEHI = G_EMAUEH EXCEPTIONS UNIT_NOT_FOUND = 4.

GRAPH_SET_CUA_STATUS CALL FUNCTION 'GRAPH_SET_CUA_STATUS' EXPORTING PROGRAM = 'SAPLIESC' STATUS = 'GANT' EXCEPTIONS INV_CUA_INFO = 1 OTHERS = 2.

GRAPH_GANTT CALL FUNCTION 'GRAPH_GANTT' EXPORTING VGRID = ' ' HGRID = 'X' WHEADER = G_TTEXT "Aufträge: Terminübersicht TTEXT = TEXT-205 "Aufträge LEGEND = TEXT-206 "Legende TLENGTH = H_STRLEN NOTXT = SPACE TUNIT = 'D' DFEL = DFEL DFMS = DFMS NO_EX_POPUP = 'X' TABLES ITEM = GGAIT_ITEM * item = item MIST = MIST ELEM = ELEM LGMS = MIST LGEL = LGEL MSGT = BACK.

OBJECT_KEY_GET CALL FUNCTION 'OBJECT_KEY_GET' EXPORTING I_OBJNR = H_OBJNR_TAB-OBJNR IMPORTING E_IONRA = H_IONRA EXCEPTIONS OTHERS = 1.

CO_TA_TCO09_READ CALL FUNCTION 'CO_TA_TCO09_READ' EXPORTING AUTYP = H_AUTYP IMPORTING STRUCT = TCO09 EXCEPTIONS OTHERS = 1.




CO_ZK_TEXTKEY_CAUFV CALL FUNCTION 'CO_ZK_TEXTKEY_CAUFV' EXPORTING AUFNR = OBJECT_TAB-AUFNR IMPORTING LTSCH = H_LTSCH EXCEPTIONS OTHERS = 1.

TEXT_FOR_HEADER CALL FUNCTION 'TEXT_FOR_HEADER' EXPORTING ID = TCO09-IDORD OBJECT = TCO09-OBJEC KTEXT = OBJECT_TAB-KTEXT LANGUAGE = H_LANGU LTSCH = H_LTSCH LTSCH_NEU = H_LTSCH SHOW_FLAG = 'X' SPALTEN = H_SPALTEN EXCEPTIONS OTHERS = 1.

OBJECT_KEY_GET CALL FUNCTION 'OBJECT_KEY_GET' EXPORTING I_OBJNR = H_OBJNR_TAB-OBJNR IMPORTING E_IONRA = H_IONRA EXCEPTIONS OTHERS = 0.

DDIF_NAMETAB_GET CALL FUNCTION 'DDIF_NAMETAB_GET' EXPORTING TABNAME = 'VIAUFKST' ALL_TYPES = G_X TABLES DFIES_TAB = H_DFIES_TAB EXCEPTIONS OTHERS = 1.

IREP1_EQUIPMENT_TEXT_READ CALL FUNCTION 'IREP1_EQUIPMENT_TEXT_READ' EXPORTING I_EQUNR = OBJECT_TAB-EQUNR IMPORTING E_EQKTX = OBJECT_TAB-EQKTX EXCEPTIONS NO_TEXT_FOUND = 1 OTHERS = 2.

IREP1_LOCATION_TEXT_READ CALL FUNCTION 'IREP1_LOCATION_TEXT_READ' EXPORTING I_TPLNR = OBJECT_TAB-TPLNR_INT IMPORTING E_PLTXT = OBJECT_TAB-PLTXT EXCEPTIONS NO_TEXT_FOUND = 1 OTHERS = 2.

IREP1_MATERIAL_TEXT_READ CALL FUNCTION 'IREP1_MATERIAL_TEXT_READ' EXPORTING I_MATNR = OBJECT_TAB-SERMAT IMPORTING E_MAKTX = OBJECT_TAB-MAKTX EXCEPTIONS NO_TEXT_FOUND = 1 OTHERS = 2.

IREP1_MATERIAL_TEXT_READ CALL FUNCTION 'IREP1_MATERIAL_TEXT_READ' EXPORTING I_MATNR = OBJECT_TAB-BAUTL IMPORTING E_MAKTX = OBJECT_TAB-BAUTLX EXCEPTIONS NO_TEXT_FOUND = 1 OTHERS = 2.

HELP_VALUES_GET_NO_DD_NAME CALL FUNCTION 'HELP_VALUES_GET_NO_DD_NAME' EXPORTING * CUCOL = 0 * CUROW = 0 * DISPLAY = ' ' SELECTFIELD = 'SELMO' TITEL = TEXT-F08 * NO_PERS_HELP_SELECT = ' ' * title_in_values_list = ' ' * show_all_values_at_first_time = ' ' * USE_USER_SELECTIONS = ' ' WRITE_SELECTFIELD_IN_COLOURS = G_X * no_scroll = * NO_CONVERSION = ' ' * reduced_status_only = g_x * NO_MARKING_OF_CHECKVALUE = ' ' * NO_DISPLAY_OF_PERS_VALUES = ' ' * FILTER_FULL_TABLE = ' ' IMPORTING IND = H_TABIX * select_value = TABLES FIELDS = H_FIELDS_TAB FULL_TABLE = G_MONITOR_TAB * USER_SEL_FIELDS = * HEADING_TABLE = EXCEPTIONS FULL_TABLE_EMPTY = 1 NO_TABLESTRUCTURE_GIVEN = 2 NO_TABLEFIELDS_IN_DICTIONARY = 3 MORE_THEN_ONE_SELECTFIELD = 4 NO_SELECTFIELD = 5 OTHERS = 6.

DDIF_NAMETAB_GET CALL FUNCTION 'DDIF_NAMETAB_GET' EXPORTING TABNAME = 'HIKOLA' ALL_TYPES = 'X' TABLES DFIES_TAB = H_DFIES_TAB EXCEPTIONS NOT_FOUND = 1 OTHERS = 2.

DYNP_VALUES_READ CALL FUNCTION 'DYNP_VALUES_READ' EXPORTING DYNAME = SY-CPROG DYNUMB = SY-DYNNR TABLES DYNPFIELDS = H_DYNPFIELDS EXCEPTIONS OTHERS = 1.

HELP_VALUES_GET_WITH_TABLE CALL FUNCTION 'HELP_VALUES_GET_WITH_TABLE' EXPORTING * display = NO_MARKING_OF_CHECKVALUE = G_X FIELDNAME = 'REVNR' TABNAME = 'T352R' IMPORTING SELECT_VALUE = H_REVNR TABLES FIELDS = ITAB_FELDNAMEN VALUETAB = ITAB_WERTE.

POPUP_GET_VALUES_DB_CHECKED CALL FUNCTION 'POPUP_GET_VALUES_DB_CHECKED' EXPORTING POPUP_TITLE = TEXT-PRO IMPORTING RETURNCODE = LOC_RC TABLES FIELDS = FIELDS.

CY01_GET_OVERALL_PROFILE CALL FUNCTION 'CY01_GET_OVERALL_PROFILE' EXPORTING PROFILE_ID = PROFILE_ID_TMP IMPORTING CRPPRO = CYCRPPRO_TMP.

CY01_GET_CONTROL_PROFILE CALL FUNCTION 'CY01_GET_CONTROL_PROFILE' EXPORTING PROFILE_ID = CYCRPPRO_TMP-COPRO_ID IMPORTING CRPCOPRO = CYCRPCOPRO_TMP.

CY01_SET_CONTROL_PROFILE CALL FUNCTION 'CY01_SET_CONTROL_PROFILE' EXPORTING CRPCOPRO = CYCRPCOPRO_TMP.

CY01_MODIFY_TIME_PROFILE * call function 'CY01_MODIFY_TIME_PROFILE' * exporting * profile_id = profile_id_tmp * datum_von = start_date * datum_bis = end_date * exceptions * others = 1.

CY01_EXTERNAL_INTERFACE CALL FUNCTION 'CY01_EXTERNAL_INTERFACE' EXPORTING FUNCTION = 'INIT' PROFILE_ID = PROFILE_ID_TMP SAVE_POPUP_IMP = SPACE RESET_ALL_TABLES_IMP = 'X' IMPORTING RETURN_CODE = T_RETURN_CODE TABLES FIL_TAB = I_FIL_TAB.

CO_ZF_ORDER_DELOCK CALL FUNCTION 'CO_ZF_ORDER_DELOCK' EXPORTING AUFNR = LOC_ORDER EXCEPTIONS OTHERS = 1.

OBJECT_KEY_GET CALL FUNCTION 'OBJECT_KEY_GET' EXPORTING I_OBJNR = G_SOGEN_OBJECT-OBJNR IMPORTING E_IONRA = H_IONRA EXCEPTIONS OTHERS = 0.

STATUS_PRE_READ call function 'STATUS_PRE_READ' tables jsto_pre_tab = l_jsto_pre_tab.



Contribute (Add Comments)

Although this basic information may have limited use it does provide an easy to find location to store any knowledge about this program/report.

The contribute/comments section below therefore offer's an opportunity for anyone to add additional information. This can be anything from useful hints, tips and screen shots to relevant SAP notes or anything else you feel is relevant to this report.

This will then be available for everyone to easily find by simply searching on the report name ADPRIOTOOLF14 or its description.