SAP Reports / Programs | Service Station Retailing | Industry Solution Oil | Service Station Retailing(IS-OIL-DS-SSR) SAP IS

MOIREDTFF03 SAP ABAP INCLUDE - Form routines for the FCodes







MOIREDTFF03 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 MOIREDTFF03 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 MOIREDTFF03. "Basic submit
SUBMIT MOIREDTFF03 AND RETURN. "Return to original report after report execution complete
SUBMIT MOIREDTFF03 VIA SELECTION-SCREEN. "Display selection screen of submitted report to user
    See more syntax options for the ABAP SUBMIT statement


Text pool values


Title: Form routines for the FCodes


INCLUDES used within this REPORT MOIREDTFF03

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:

SCREEN_SEQUENCE_CONTROL CALL FUNCTION 'SCREEN_SEQUENCE_CONTROL' EXPORTING PROGRAMM = G_REPID KOPFGRUPPE = G_KOPGR POSITIONSGRUPPE = G_POSGR FUNKTION = FCODE IMPORTING CUA_STATUS = T185V-STATUS CUA_TITEL = T185V-CTITEL CUA_PARA1 = T185V-PARA1 CUA_PARA2 = T185V-PARA2 CUA_PARA3 = T185V-PARA3 CUA_PARA4 = T185V-PARA4 FOLGEFUNKTION = FCODE DUNKEL = T185-DUNKEL LEAVE = L_FLAG_LEAVE * dynprobaustein1 = taxi_header_subscreen DYNPROBAUSTEIN2 = G_TAXI_BODY_SUB.

EDIT_TEXT CALL FUNCTION 'EDIT_TEXT' EXPORTING DISPLAY = CHAR_X HEADER = WA_THEAD SAVE = ' ' IMPORTING RESULT = G_COMPL_TXT_RESULT TABLES LINES = GT_TLINE EXCEPTIONS ID = 1 LANGUAGE = 2 LINESIZE = 3 NAME = 4 OBJECT = 5 TEXTFORMAT = 6 COMMUNICATION = 7 OTHERS = 8.

READ_TEXT CALL FUNCTION 'READ_TEXT' EXPORTING CLIENT = SY-MANDT ID = WA_THEAD-TDID LANGUAGE = WA_THEAD-TDSPRAS NAME = WA_THEAD-TDNAME OBJECT = WA_THEAD-TDOBJECT ARCHIVE_HANDLE = 0 * IMPORTING * HEADER = TABLES LINES = GT_TLINE EXCEPTIONS ID = 1 LANGUAGE = 2 NAME = 3 NOT_FOUND = 4 OBJECT = 5 REFERENCE_CHECK = 6 WRONG_ACCESS_TO_ARCHIVE = 7 OTHERS = 8.

EDIT_TEXT CALL FUNCTION 'EDIT_TEXT' EXPORTING DISPLAY = CHAR_X HEADER = WA_THEAD SAVE = ' ' IMPORTING RESULT = G_COMPL_TXT_RESULT TABLES LINES = GT_TLINE EXCEPTIONS ID = 1 LANGUAGE = 2 LINESIZE = 3 NAME = 4 OBJECT = 5 TEXTFORMAT = 6 COMMUNICATION = 7 OTHERS = 8.

EDIT_TEXT CALL FUNCTION 'EDIT_TEXT' EXPORTING DISPLAY = CHAR_X HEADER = WA_THEAD SAVE = ' ' IMPORTING RESULT = G_COMPL_TXT_RESULT TABLES LINES = GT_TLINE EXCEPTIONS ID = 1 LANGUAGE = 2 LINESIZE = 3 NAME = 4 OBJECT = 5 TEXTFORMAT = 6 COMMUNICATION = 7 OTHERS = 8.

READ_TEXT CALL FUNCTION 'READ_TEXT' EXPORTING CLIENT = SY-MANDT ID = WA_THEAD-TDID LANGUAGE = WA_THEAD-TDSPRAS NAME = WA_THEAD-TDNAME OBJECT = WA_THEAD-TDOBJECT ARCHIVE_HANDLE = 0 TABLES LINES = GT_TLINE EXCEPTIONS ID = 1 LANGUAGE = 2 NAME = 3 NOT_FOUND = 4 OBJECT = 5 REFERENCE_CHECK = 6 WRONG_ACCESS_TO_ARCHIVE = 7 OTHERS = 8.

EDIT_TEXT CALL FUNCTION 'EDIT_TEXT' EXPORTING DISPLAY = CHAR_X HEADER = WA_THEAD SAVE = ' ' IMPORTING RESULT = G_COMPL_TXT_RESULT TABLES LINES = GT_TLINE EXCEPTIONS ID = 1 LANGUAGE = 2 LINESIZE = 3 NAME = 4 OBJECT = 5 TEXTFORMAT = 6 COMMUNICATION = 7 OTHERS = 8.

EDIT_TEXT CALL FUNCTION 'EDIT_TEXT' EXPORTING DISPLAY = CHAR_X HEADER = WA_THEAD SAVE = ' ' IMPORTING RESULT = G_COMPL_TXT_RESULT TABLES LINES = GT_TLINE EXCEPTIONS ID = 1 LANGUAGE = 2 LINESIZE = 3 NAME = 4 OBJECT = 5 TEXTFORMAT = 6 COMMUNICATION = 7 OTHERS = 8.

LOCATION_CORRECT CALL FUNCTION 'LOCATION_CORRECT' EXPORTING BILD = T185-PANEL BILDGRUPPE = T185-BLDGR KOPFGRUPPE = T185-KOPGR POSITIONSGRUPPE = T185-POSGR PROGRAMM = T185V-AGIDV STACKSTUFE = T185-STNEU TRTYP = T185F-TRTYP TABELLEN_LESEN = SPACE FUNKTION = FCODE.

OIRE_GET_KALSM CALL FUNCTION 'OIRE_GET_KALSM' EXPORTING I_PBLNR = ROIREDTF-PBLNR I_CHOBJ = SPACE I_VKDAT = ROIREDTF-VKDAT I_VKTIM = ROIREDTF-VKTIM I_PROCID = PC_PC_OBJ-PARAMETERS-PROCESS I_CCINS = ROIREDTF-SSR_CCINS I_BUKRS = ROIREDTF-BUKRS I_KALVG = PC_CC01_OBJ-OIRECCTYP-KALVG IMPORTING E_KALSM = GS_KALSM-DEKALSM E_KSCHL = GS_KALSM-DEKSCHL TABLES TI_OIRA2_BBP1 = T_OIRA2_BBP1 EXCEPTIONS PBLNR_DOES_NOT_EXIST = 1 KALSM_DOES_NOT_EXIST = 2 NO_PRICING_PROCEDURE = 3 NO_KALVG_WAS_DETERMINED = 4 NO_LOCATION_VALUES_FOUND = 5 NO_PARTNER_PROFILE = 6 NO_RNBT_FOR_PROCID = 7 NO_ENTRY_IN_T683S = 8 NO_ENTRY_IN_T685A = 9 NO_CLEARING_HOUSE_DATA = 10 NEITHER_PBLNR_NOR_CH_PASSED = 11 OTHERS = 12.

PRICING CALL FUNCTION 'PRICING' EXPORTING CALCULATION_TYPE = CHAR_C COMM_HEAD_I = LS_KOMK COMM_ITEM_I = LS_KOMP TABLES TKOMV = T_KOMV.

LOCATION_CORRECT CALL FUNCTION 'LOCATION_CORRECT' EXPORTING BILD = T185-PANEL BILDGRUPPE = T185-BLDGR KOPFGRUPPE = T185-KOPGR POSITIONSGRUPPE = T185-POSGR PROGRAMM = T185V-AGIDV STACKSTUFE = T185-STNEU TRTYP = T185F-TRTYP TABELLEN_LESEN = SPACE FUNKTION = FCODE.

OIRE_GET_KALSM CALL FUNCTION 'OIRE_GET_KALSM' EXPORTING I_PBLNR = SPACE I_CHOBJ = ROIREDTF-CHOBJ I_VKDAT = ROIREDTF-VKDAT I_VKTIM = ROIREDTF-VKTIM I_PROCID = PC_PC_OBJ-PARAMETERS-PROCESS I_CCINS = ROIREDTF-SSR_CCINS I_BUKRS = ROIREDTF-BUKRS I_KALVG = PC_CC01_OBJ-OIRECCTYP-KALVG_CH_DIS IMPORTING E_KALSM = GS_KALSM-CHKALSM E_KSCHL = GS_KALSM-CHKSCHL TABLES TI_OIRA2_BBP1 = T_OIRA2_BBP1 EXCEPTIONS PBLNR_DOES_NOT_EXIST = 1 KALSM_DOES_NOT_EXIST = 2 NO_PRICING_PROCEDURE = 3 NO_KALVG_WAS_DETERMINED = 4 NO_LOCATION_VALUES_FOUND = 5 NO_PARTNER_PROFILE = 6 NO_RNBT_FOR_PROCID = 7 NO_ENTRY_IN_T683S = 8 NO_ENTRY_IN_T685A = 9 NO_CLEARING_HOUSE_DATA = 10 NEITHER_PBLNR_NOR_CH_PASSED = 11 OTHERS = 12.

OIRECH_SINGLE_READ CALL FUNCTION 'OIRECH_SINGLE_READ' EXPORTING I_CHOBJ = ROIREDTF-CHOBJ IMPORTING E_OIRECH_ALL = GS_OIRECH_ALL EXCEPTIONS CUSTOMIZING_NOT_FOUND = 1 APPLICATION_NOT_FOUND = 2 OTHERS = 3.

PRICING CALL FUNCTION 'PRICING' EXPORTING CALCULATION_TYPE = CHAR_C COMM_HEAD_I = LS_KOMK COMM_ITEM_I = LS_KOMP TABLES TKOMV = T_KOMV.

OIRE_CHECKS CALL FUNCTION 'OIRE_CHECKS' TABLES XDTFLOCH = GT_WORK_HDR XDTFLOCI = GT_WORK_ITM.

OIRE_VALIDATION CALL FUNCTION 'OIRE_VALIDATION' EXPORTING I_CALL_MODE = T185F-TRTYP I_PROCID = PC_PC_OBJ-PARAMETERS-PROCESS I_DTF_IS_SORTED = ' ' TABLES XDTFLOCH = GT_WORK_HDR XDTFLOCI = GT_WORK_ITM T_DTF_HDR_ORG = GT_DTF_HDR_ORIG T_DTF_ITM_ORG = GT_DTF_ITM_ORIG.

OIRE_CCINS_GET CALL FUNCTION 'OIRE_CCINS_GET' EXPORTING I_CCNUM = ROIREDTF-CCNUM I_ECBLZ = ROIREDTF-ECBLZ I_BUKRS = ROIREDTF-BUKRS I_PBLNR = ROIREDTF-PBLNR I_CCINS = ROIREDTF-SSR_CCINS IMPORTING E_OIRECCINS = WAV_OIRECCINS E_CCINS_OLD = TMP_CCINS_OLD E_CCINS_NEW = TMP_CCINS_NEW E_BUKRS = TMP_BUKRS EXCEPTIONS CARD_TYPE_NOT_CREATED_IN_BUKRS = 1 WRONG_BUSINESS_LOCATION = 2 NO_BUKRS_FOUND = 3 DIFFERENT_BUKRS_DETERMINED = 4 CCARD_WRONG_NUMBER = 5 NO_PBLNR_NO_BUKRS_FILLED = 6 NO_CCNUM_OR_ECBLZ = 7 CARD_TYPE_HAS_CHANGED = 8 CCNUM_AND_ECBLZ_ARE_FILLED = 9 DIFFERENT_PC_TYPES_DETERMINED = 10 OTHERS = 11.

LOCATION_CORRECT





CALL FUNCTION 'LOCATION_CORRECT' EXPORTING BILD = T185-PANEL BILDGRUPPE = T185-BLDGR KOPFGRUPPE = T185-KOPGR POSITIONSGRUPPE = T185-POSGR PROGRAMM = T185V-AGIDV STACKSTUFE = T185-STNEU TRTYP = T185F-TRTYP TABELLEN_LESEN = SPACE FUNKTION = SPACE.

POPUP_TO_CONFIRM CALL FUNCTION 'POPUP_TO_CONFIRM' EXPORTING DIAGNOSE_OBJECT = 'OIRE_DTF_TEXT5' TEXT_QUESTION = TEXT-HL5 TEXT_BUTTON_1 = 'Yes' TEXT_BUTTON_2 = 'No' DISPLAY_CANCEL_BUTTON = SPACE IMPORTING ANSWER = G_ANSWER EXCEPTIONS TEXT_NOT_FOUND = 1 OTHERS = 2.

LOCATION_CORRECT CALL FUNCTION 'LOCATION_CORRECT' EXPORTING BILD = T185-PANEL BILDGRUPPE = T185-BLDGR KOPFGRUPPE = T185-KOPGR POSITIONSGRUPPE = T185-POSGR PROGRAMM = T185V-AGIDV STACKSTUFE = T185-STNEU TRTYP = T185F-TRTYP TABELLEN_LESEN = SPACE FUNKTION = SPACE.

LOCATION_CORRECT CALL FUNCTION 'LOCATION_CORRECT' EXPORTING BILD = T185-PANEL BILDGRUPPE = T185-BLDGR KOPFGRUPPE = T185-KOPGR POSITIONSGRUPPE = T185-POSGR PROGRAMM = T185V-AGIDV STACKSTUFE = T185-STNEU TRTYP = T185F-TRTYP TABELLEN_LESEN = SPACE FUNKTION = SPACE.

LOCATION_CORRECT CALL FUNCTION 'LOCATION_CORRECT' EXPORTING BILD = T185-PANEL BILDGRUPPE = T185-BLDGR KOPFGRUPPE = T185-KOPGR POSITIONSGRUPPE = T185-POSGR PROGRAMM = T185V-AGIDV STACKSTUFE = T185-STNEU TRTYP = T185F-TRTYP TABELLEN_LESEN = SPACE FUNKTION = SPACE.

OIRE_INSERT_DTF CALL FUNCTION 'OIRE_INSERT_DTF' TABLES T_OIREUPLKXXXX = GT_WORK_HDR T_OIREUPLPXXXX = GT_WORK_ITM T_UPLNR = GT_UPLNR EXCEPTIONS INSERT_FAILED = 1 NO_NUMBER_INTERVAL = 2 GET_NEXT_NUMBER_FAILED = 3 OTHERS = 4.

LOCATION_CORRECT CALL FUNCTION 'LOCATION_CORRECT' EXPORTING BILD = T185-PANEL BILDGRUPPE = T185-BLDGR KOPFGRUPPE = T185-KOPGR POSITIONSGRUPPE = T185-POSGR PROGRAMM = T185V-AGIDV STACKSTUFE = T185-STNEU TRTYP = T185F-TRTYP TABELLEN_LESEN = SPACE FUNKTION = SPACE.

LOCATION_CORRECT CALL FUNCTION 'LOCATION_CORRECT' EXPORTING BILD = T185-PANEL BILDGRUPPE = T185-BLDGR KOPFGRUPPE = T185-KOPGR POSITIONSGRUPPE = T185-POSGR PROGRAMM = T185V-AGIDV STACKSTUFE = T185-STNEU TRTYP = T185F-TRTYP TABELLEN_LESEN = SPACE FUNKTION = SPACE.

LOCATION_CORRECT CALL FUNCTION 'LOCATION_CORRECT' EXPORTING BILD = T185-PANEL BILDGRUPPE = T185-BLDGR KOPFGRUPPE = T185-KOPGR POSITIONSGRUPPE = T185-POSGR PROGRAMM = T185V-AGIDV STACKSTUFE = T185-STNEU TRTYP = T185F-TRTYP TABELLEN_LESEN = SPACE FUNKTION = SPACE.

OIRE_SPLITTING CALL FUNCTION 'OIRE_SPLITTING' TABLES XDTFLOCH = GT_WORK_HDR.

LOCATION_CORRECT CALL FUNCTION 'LOCATION_CORRECT' EXPORTING BILD = T185-PANEL BILDGRUPPE = T185-BLDGR KOPFGRUPPE = T185-KOPGR POSITIONSGRUPPE = T185-POSGR PROGRAMM = T185V-AGIDV STACKSTUFE = T185-STNEU TRTYP = T185F-TRTYP TABELLEN_LESEN = SPACE FUNKTION = SPACE.

POPUP_TO_CONFIRM CALL FUNCTION 'POPUP_TO_CONFIRM' EXPORTING DIAGNOSE_OBJECT = 'OIRE_DTF_TEXT1' TEXT_QUESTION = TEXT-HL1 TEXT_BUTTON_1 = 'Yes' TEXT_BUTTON_2 = 'No' DISPLAY_CANCEL_BUTTON = SPACE IMPORTING ANSWER = G_ANSWER EXCEPTIONS TEXT_NOT_FOUND = 1 OTHERS = 2.

LOCATION_CORRECT CALL FUNCTION 'LOCATION_CORRECT' EXPORTING BILD = T185-PANEL BILDGRUPPE = T185-BLDGR KOPFGRUPPE = T185-KOPGR POSITIONSGRUPPE = T185-POSGR PROGRAMM = T185V-AGIDV STACKSTUFE = T185-STNEU TRTYP = T185F-TRTYP TABELLEN_LESEN = SPACE FUNKTION = SPACE.

MESSAGES_INITIALIZE CALL FUNCTION 'MESSAGES_INITIALIZE' EXPORTING RESET = CHAR_X.

DDIF_TABL_GET CALL FUNCTION 'DDIF_TABL_GET' EXPORTING NAME = C_ROIRE_TC_ITM STATE = CHAR_A LANGU = SY-LANGU TABLES DD03P_TAB = GT_DD03P EXCEPTIONS ILLEGAL_INPUT = 1 OTHERS = 2.

MESSAGES_GIVE CALL FUNCTION 'MESSAGES_GIVE' TABLES T_MESG = T_MESG.

POPUP_TO_CONFIRM CALL FUNCTION 'POPUP_TO_CONFIRM' EXPORTING DIAGNOSE_OBJECT = 'OIRE_DTF_TEXT3' TEXT_QUESTION = TEXT-HL3 TEXT_BUTTON_1 = TEXT-YES TEXT_BUTTON_2 = TEXT-NO_ DISPLAY_CANCEL_BUTTON = SPACE IMPORTING ANSWER = G_ANSWER EXCEPTIONS TEXT_NOT_FOUND = 1 OTHERS = 2.

MESSAGES_SHOW CALL FUNCTION 'MESSAGES_SHOW'.

POPUP_TO_CONFIRM CALL FUNCTION 'POPUP_TO_CONFIRM' EXPORTING DIAGNOSE_OBJECT = 'OIRE_DTF_TEXT4' TEXT_QUESTION = TEXT-HL4 TEXT_BUTTON_1 = TEXT-SAV TEXT_BUTTON_2 = TEXT-RET DISPLAY_CANCEL_BUTTON = SPACE IMPORTING ANSWER = G_ANSWER EXCEPTIONS TEXT_NOT_FOUND = 1 OTHERS = 2.

OIRE_SPLITTING CALL FUNCTION 'OIRE_SPLITTING' TABLES XDTFLOCH = GT_WORK_HDR.




OIRE_CCINS_GET CALL FUNCTION 'OIRE_CCINS_GET' EXPORTING I_CCNUM = ROIREDTF-CCNUM I_ECBLZ = ROIREDTF-ECBLZ I_BUKRS = ROIREDTF-BUKRS I_PBLNR = ROIREDTF-PBLNR I_CCINS = ROIREDTF-SSR_CCINS IMPORTING E_OIRECCINS = WAV_OIRECCINS E_CCINS_OLD = TMP_CCINS_OLD E_CCINS_NEW = TMP_CCINS_NEW E_BUKRS = TMP_BUKRS EXCEPTIONS CARD_TYPE_NOT_CREATED_IN_BUKRS = 1 WRONG_BUSINESS_LOCATION = 2 NO_BUKRS_FOUND = 3 DIFFERENT_BUKRS_DETERMINED = 4 CCARD_WRONG_NUMBER = 5 NO_PBLNR_NO_BUKRS_FILLED = 6 NO_CCNUM_OR_ECBLZ = 7 CARD_TYPE_HAS_CHANGED = 8 CCNUM_AND_ECBLZ_ARE_FILLED = 9 DIFFERENT_PC_TYPES_DETERMINED = 10 OTHERS = 11.

OIRE_CH_DETERMINATION CALL FUNCTION 'OIRE_CH_DETERMINATION' EXPORTING P_KALSMC = L_OIREKOMKCH-KALSMC P_KAPPL = L_OIREKOMKCH-KAPPL TABLES XDTFLOCH = GT_WORK_HDR.

LOCATION_CORRECT CALL FUNCTION 'LOCATION_CORRECT' EXPORTING BILD = T185-PANEL BILDGRUPPE = T185-BLDGR KOPFGRUPPE = T185-KOPGR POSITIONSGRUPPE = T185-POSGR PROGRAMM = T185V-AGIDV STACKSTUFE = T185-STNEU TRTYP = T185F-TRTYP TABELLEN_LESEN = SPACE FUNKTION = SPACE.

POPUP_TO_CONFIRM CALL FUNCTION 'POPUP_TO_CONFIRM' EXPORTING DIAGNOSE_OBJECT = 'OIRE_DTF_TEXT2' TEXT_QUESTION = TEXT-HL2 TEXT_BUTTON_1 = 'Yes' TEXT_BUTTON_2 = 'No' DISPLAY_CANCEL_BUTTON = SPACE IMPORTING ANSWER = G_ANSWER EXCEPTIONS TEXT_NOT_FOUND = 1 OTHERS = 2.

LOCATION_CORRECT CALL FUNCTION 'LOCATION_CORRECT' EXPORTING BILD = T185-PANEL BILDGRUPPE = T185-BLDGR KOPFGRUPPE = T185-KOPGR POSITIONSGRUPPE = T185-POSGR PROGRAMM = T185V-AGIDV STACKSTUFE = T185-STNEU TRTYP = T185F-TRTYP TABELLEN_LESEN = SPACE FUNKTION = SPACE.

SAVE_TEXT CALL FUNCTION 'SAVE_TEXT' EXPORTING HEADER = PE_THEAD IMPORTING NEWHEADER = PE_THEAD TABLES LINES = PT_TLINE EXCEPTIONS ID = 1 LANGUAGE = 2 NAME = 3 OBJECT = 4 OTHERS = 5.

DELETE_TEXT CALL FUNCTION 'DELETE_TEXT' EXPORTING CLIENT = SY-MANDT ID = PI_THEAD-TDID LANGUAGE = PI_THEAD-TDSPRAS NAME = PI_THEAD-TDNAME OBJECT = PI_THEAD-TDOBJECT SAVEMODE_DIRECT = CHAR_C * TEXTMEMORY_ONLY = ' ' EXCEPTIONS NOT_FOUND = 1 OTHERS = 2.



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 MOIREDTFF03 or its description.