SAP Reports / Programs | Controlling | Product Cost Controlling | Product Cost Controlling Information System(CO-PC-IS) SAP CO
BSELNF01 SAP ABAP INCLUDE - Form Routines Include for RKKBSELN
BSELNF01 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 BSELNF01 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 BSELNF01. "Basic submit
SUBMIT BSELNF01 AND RETURN. "Return to original report after report execution complete
SUBMIT BSELNF01 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 Include for RKKBSELN
INCLUDES used within this REPORT BSELNF01
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:
K_KKB_CO_OBJECT_READ * call function 'K_KKB_CO_OBJECT_READ' " Lesen der entspr. KKBC-Sätze
K_KKB_OR_REPORT_CALL CALL FUNCTION 'K_KKB_OR_REPORT_CALL' EXPORTING IANW = PARAM-ANW " Anwendung AUFNR = AUFNR " Auftragsnummer BATCH = CRE_BATCH " Batchverarbeitung ja/nein CHOICE_J = 'J' " Auswahl Bericht ja/nein CHOICE_K = 'J' " Auswahl Kostenartenschema j/n CHOICE_P = 'J' " Auswahl Berichtsparameter j/n KOKRS = KOKRS " Kostenrechnungskreis IMPORTING JOBNAME = INT_JOBNAME " Jobname des Batchjobs TABLES GLOBALS = GLOBALS " Berichtsparameter EXCEPTIONS INTERNAL_ERROR = 01 " interner Fehler NO_JOB = 02 " keine Berichte vorhanden NO_KST = 03 " kein Kostenartenschema vorh WRONG_INPUT = 04. " falsche Eingabe
K_KKB_JOB_GET CALL FUNCTION 'K_KKB_JOB_GET' EXPORTING CHOICE = CON_X " mit Auswahl IANW = PARAM-ANW " Anwendung IOBJ = OBJ-AUF " Berichtsobjekt RGJNR = ANA_RGJNR " Berichtsgruppe UNAME = SY-UNAME " Benutzer-definierte Berichtsliste IMPORTING RGJNR = ANA_RGJNR EXIT = ANA_EXIT EXCEPTIONS NO_JOB = 1 " Keine Berichte bzw. nicht generiert
K_KKB_JOB_GET CALL FUNCTION 'K_KKB_JOB_GET' " Bericht aus Gesamtliste EXPORTING CHOICE = CON_X IANW = PARAM-ANW IOBJ = OBJ-AUF RGJNR = ANA_RGJNR " UNAME = SPACE -> Gesamtliste IMPORTING RGJNR = ANA_RGJNR EXIT = ANA_EXIT EXCEPTIONS NO_JOB = 1 NO_JOB_CHOSEN = 2 OTHERS = 3.
K_KKB_KSTAR_SET_GET CALL FUNCTION 'K_KKB_KSTAR_SET_GET' " Holen Kostenartengruppe EXPORTING IANW = PARAM-ANW CHOICE = CON_X KST = ANA_KST IMPORTING KST = ANA_KST EXIT = ANA_EXIT EXCEPTIONS NO_AUTHORITY = 1 NO_KSTAR_SET = 2 NO_SET_PICKED = 3 SET_BROKEN = 4.
K_KKB_GLOBALS_GET CALL FUNCTION 'K_KKB_GLOBALS_GET' " Globals holen EXPORTING INITIALIZE = CON_X DIALOG = CON_X RGJNR = ANA_RGJNR ST_COL = '3' ST_ROW = '1' IMPORTING EXIT = ANA_EXIT SFLAG = ANA_SFLAG TABLES EXC_TAB = ETAB GLOBALS = GLO_TAB EXCEPTIONS INTERNAL_ERROR = 01 JOB_DOES_NOT_EXIST = 02 NOT_GENERATED = 03 NO_AUTHORIZATION = 04 NO_GLOBALS = 05. " kann nicht auftreten, da ein
K_KKB_GENERAL_REPORT_CALL CALL FUNCTION 'K_KKB_GENERAL_REPORT_CALL' " Berichtsaufruf EXPORTING " je Auftrag BATCH = CON_X CHOICE_BJ = CON_X RGJNR = ANA_RGJNR LSTALL = CON_X IMPORTING EXIT = ANA_EXIT TABLES GLOBALS = GLO_TAB SEL_TAB1 = ANA_SEL1 SEL_TAB2 = ANA_SEL2 EXCEPTIONS INTERNAL_ERROR = 1.
POPUP_GET_VALUES_USER_CHECKED CALL FUNCTION 'POPUP_GET_VALUES_USER_CHECKED' EXPORTING POPUP_TITLE = TEXT-005 PROGRAMNAME = L_REPID FORMNAME = 'ORDER_GROUP_CHECK' START_COLUMN = '5' START_ROW = '5' IMPORTING RETURNCODE = VARC1 TABLES FIELDS = IT_FIELDS.
K_GROUP_NAME_CHECK CALL FUNCTION 'K_GROUP_NAME_CHECK' EXPORTING GROUP_NAME = CODIA-AUFGR EXCEPTIONS ILLEGAL_NAME = 1 OTHERS = 2.
POPUP_TO_CONFIRM_WITH_VALUE CALL FUNCTION 'POPUP_TO_CONFIRM_WITH_VALUE' EXPORTING TITEL = TEXT-100 "titel TEXT_BEFORE = TEXT-110 "textline1 OBJECTVALUE = CODIA-AUFGR TEXT_AFTER = TEXT-120 "textline2 DEFAULTOPTION = 'N' IMPORTING ANSWER = VARC2.
K_ORDER_SET_CREATE CALL FUNCTION 'K_ORDER_SET_CREATE' EXPORTING AUFGR = CODIA-AUFGR AUFGR_NAME = CODIA-STEXT OVERWRITE = 'X' TABLES T_AUFNR = LT_AUFNR.
K_GROUP_NAME_CHECK CALL FUNCTION 'K_GROUP_NAME_CHECK' EXPORTING GROUP_NAME = CODIA-AUFGR EXCEPTIONS ILLEGAL_NAME = 1 OTHERS = 2.
POPUP_GET_VALUES_USER_HELP * CALL FUNCTION 'POPUP_GET_VALUES_USER_HELP' * EXPORTING * F1_FORMNAME = LD_FORM " K_RKASET * F1_PROGRAMNAME = LD_PROGR " K_RKASET * POPUP_TITLE = TEXT-005 * IMPORTING * RETURNCODE = GSE_ANSWER * TABLES * FIELDS = GSE_SVAL * EXCEPTIONS * OTHERS = 1.
G_SET_AVAILABLE * CALL FUNCTION 'G_SET_AVAILABLE' * EXPORTING * CLASS = LD_CLASS " K_RKASET * SETNAME = GSE_SETNR * TABLE = GSE_TABLE * IMPORTING * INFO = LS_SETINFO " K_SETOVER * SUBRC = L_SUBRC.
POPUP_TO_DECIDE * CALL FUNCTION 'POPUP_TO_DECIDE' * EXPORTING * TEXT_OPTION1 = TEXT-NEI * TEXT_OPTION2 = TEXT-JAA * TEXTLINE1 = TEXT-LI1 * TEXTLINE2 = TEXT-LI2 * TITEL = TEXT-005 * IMPORTING * ANSWER = GSE_ANSWER.
G_GENERATE_BASIC_SET * CALL FUNCTION 'G_GENERATE_BASIC_SET' * EXPORTING * LANGU = SY-LANGU * SET_HEADER = RGSBS * TABLES * FORMULA_LINES = TDUMMY * SET_LINES = GSE_SETTAB * EXCEPTIONS * BAD_FORMULA = 01 ** no_authority = 02 * NOT_UNIQUE = 03 * OLD_SET_HAS_WRONG_TYPE = 04 * WRONG_INTERVAL = 05.
G_DISPLAY_SELECTION_DYNPRO CALL FUNCTION 'G_DISPLAY_SELECTION_DYNPRO' EXPORTING ALLOW_PRINT = CON_SPACE DYNP_TITLE = LD_DYNP_TITLE EXTENDED_DISPLAY = CON_SPACE FIRST_INDEX = 1 NUMBER_OF_ROWS = LD_NUM_ROWS SEL_DEFAULT = GD_LISTTYP SEL_TITLE1 = LD_SEL_TITLE1 SEL_TITLE2 = LD_SEL_TITLE2 SHOW_ALSO_1 = CON_SPACE START_COLUMN = 0 START_ROW = 0 WIDTH_OF_TITLES = CON_SPACE WITHOUT_SELECTION = CON_SPACE IMPORTING SEL_INDEX = GD_LISTTYP TABLES SEL_TABLE = XASEL EXCEPTIONS * extended_display_selected = 01 " TODO 13.06.96
K_ORDER_READ CALL FUNCTION 'K_ORDER_READ' EXPORTING AUFNR = AUFNR IMPORTING AUTYP = LD_AUTYP EXCEPTIONS NOT_FOUND = 01.
CALL FUNCTION 'K_ORDER_READ' EXPORTING AUFNR = AUFNR IMPORTING KOKRS = KOKRS EXCEPTIONS NOT_FOUND = 01.
K_KKB_ORIGIN_REPORT_CALL CALL FUNCTION 'K_KKB_ORIGIN_REPORT_CALL' EXPORTING INPUT_DATA = INT_KKBC TABLES S_ABKAT = RA_ABKAT S_ABVER = RA_ABVER S_BEKNZ = RA_BEKNZ S_GJAHR = RA_GJAHR S_HERKU = RA_HERKU S_HRKFT = RA_HRKFT S_KSTAR = RA_PERBL S_PERBL = RA_VERSN S_VERSN = RA_VERSN S_WRTTP = RA_WRTTP EXCEPTIONS INPUT_INCONSISTENT = 01.
G_DISPLAY_SELECTION_DYNPRO CALL FUNCTION 'G_DISPLAY_SELECTION_DYNPRO' EXPORTING ALLOW_PRINT = CON_SPACE DYNP_TITLE = LD_DYNP_TITLE EXTENDED_DISPLAY = CON_SPACE FIRST_INDEX = 1 NUMBER_OF_ROWS = LD_COUNTER SEL_DEFAULT = LD_SEL_DEFAULT SEL_TITLE1 = LD_SEL_TITLE1 SEL_TITLE2 = LD_SEL_TITLE2 SHOW_ALSO_1 = CON_SPACE START_COLUMN = 0 START_ROW = 0 WIDTH_OF_TITLES = CON_SPACE WITHOUT_SELECTION = CON_SPACE IMPORTING SEL_INDEX = LD_SEL_VERSION TABLES SEL_TABLE = ASEL_TABLE EXCEPTIONS * extended_display_selected = 01 " TODO 13.06.96
STRING_MOVE_RIGHT CALL FUNCTION 'STRING_MOVE_RIGHT' EXPORTING STRING = HEADING IMPORTING RSTRING = HEADING EXCEPTIONS TOO_SMALL = 01.
STRING_MOVE_RIGHT CALL FUNCTION 'STRING_MOVE_RIGHT' EXPORTING STRING = HEADING IMPORTING RSTRING = HEADING EXCEPTIONS TOO_SMALL = 01.
STRING_MOVE_RIGHT CALL FUNCTION 'STRING_MOVE_RIGHT' EXPORTING STRING = HEADING IMPORTING RSTRING = HEADING EXCEPTIONS TOO_SMALL = 01.
STRING_MOVE_RIGHT CALL FUNCTION 'STRING_MOVE_RIGHT' EXPORTING STRING = HEADING IMPORTING RSTRING = HEADING EXCEPTIONS TOO_SMALL = 01.
STRING_MOVE_RIGHT CALL FUNCTION 'STRING_MOVE_RIGHT' EXPORTING STRING = HEADING IMPORTING RSTRING = HEADING EXCEPTIONS TOO_SMALL = 01.
STRING_MOVE_RIGHT CALL FUNCTION 'STRING_MOVE_RIGHT' EXPORTING STRING = HEADING IMPORTING RSTRING = HEADING EXCEPTIONS TOO_SMALL = 01.
STRING_MOVE_RIGHT CALL FUNCTION 'STRING_MOVE_RIGHT' EXPORTING STRING = HEADING IMPORTING RSTRING = HEADING EXCEPTIONS TOO_SMALL = 01.
STRING_MOVE_RIGHT CALL FUNCTION 'STRING_MOVE_RIGHT' EXPORTING STRING = HEADING IMPORTING RSTRING = HEADING EXCEPTIONS TOO_SMALL = 01.
STRING_MOVE_RIGHT CALL FUNCTION 'STRING_MOVE_RIGHT' EXPORTING STRING = HEADING IMPORTING RSTRING = HEADING EXCEPTIONS TOO_SMALL = 01.
STRING_MOVE_RIGHT CALL FUNCTION 'STRING_MOVE_RIGHT' EXPORTING STRING = HEADING IMPORTING RSTRING = HEADING EXCEPTIONS TOO_SMALL = 01.
SAPGUI_PROGRESS_INDICATOR CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR' EXPORTING TEXT = LD_TEXT.
K_KKB_REP_CALL_FOR_ORDER_LIST CALL FUNCTION 'K_KKB_REP_CALL_FOR_ORDER_LIST' EXPORTING I_ANW = '1' I_BATCH = FLG_BATCH TABLES T_AUFNR = YORDER EXCEPTIONS ORDERLIST_IS_EMPTY = 01 NO_REPORT_FOUND = 02 CANCELED_BY_USER = 03 INTERNAL_ERROR = 04.
K_KKB_POPUP_FOR_VARIANCES CALL FUNCTION 'K_KKB_POPUP_FOR_VARIANCES' EXPORTING I_DEFAULT_SIGN = '>' I_FLG_TARGET = LD_FLG_TARGET_LIST I_FLG_LOTS = LD_FLG_LOTS_LIST I_KOKRS = XOUTPUT-KOKRS I_INITIALIZE = LD_INIT TABLES T_KKB_VARIAN = Z_KKB_VARIAN EXCEPTIONS CANCELED = 01.
K_KKB_JOB_READ CALL FUNCTION 'K_KKB_JOB_READ' EXPORTING LANGU = SY-LANGU RGJNR = GROUP IMPORTING JOB_DATA = LD_XKKBJB EXCEPTIONS JOB_DOES_NOT_EXIST = 01.
K_KKB_GLOBALS_GET CALL FUNCTION 'K_KKB_GLOBALS_GET' EXPORTING DIALOG = CON_SPACE INITIALIZE = CON_X RGJNR = GROUP ST_COL = 3 ST_ROW = 0 IMPORTING SFLAG = FLG_SINGLE TABLES EXC_TAB = ETAB GLOBALS = GLOBALS EXCEPTIONS INTERNAL_ERROR = 01 JOB_DOES_NOT_EXIST = 02 NOT_GENERATED = 03 NO_AUTHORIZATION = 04 NO_GLOBALS = 05.
K_ORDER_LIST CALL FUNCTION 'K_ORDER_LIST' EXPORTING I_VARNR = ' ' I_DISPLAY_MODE = 'X' TABLES T_AUFNR = XAUFSEL.
K_KKB_JOB_GET CALL FUNCTION 'K_KKB_JOB_GET' EXPORTING CHOICE = 'X' " Benutzerauswahl DFO = 'K' " Kostenartenbericht IANW = PARAM-ANW " Anwendung TRA = ' ' IOBJ = 'O' " Vergleich von Aufträgen NUM = '2' " 2 Berichtsobjekte IMPORTING EXIT = FLG_EXIT RGJNR = LD_RGJNR EXCEPTIONS NOT_GENERATED = 01 NO_AUTHORITY = 02 NO_JOB = 03 NO_JOB_CHOSEN = 04.
K_KKB_GLOBALS_GET CALL FUNCTION 'K_KKB_GLOBALS_GET' EXPORTING DIALOG = ' ' INITIALIZE = ' ' RGJNR = LD_RGJNR IANW = PARAM-ANW ST_COL = 3 ST_ROW = 0 USER_DEFAULTS = ' ' IMPORTING EXIT = FLG_EXIT TABLES EXC_TAB = XEXC_TAB GLOBALS = XGLOBALS EXCEPTIONS INTERNAL_ERROR = 01 JOB_DOES_NOT_EXIST = 02 NOT_GENERATED = 03 NO_AUTHORIZATION = 04 NO_GLOBALS = 05.
K_KKB_GLOBALS_GET CALL FUNCTION 'K_KKB_GLOBALS_GET' EXPORTING DIALOG = 'X' INITIALIZE = ' ' RGJNR = LD_RGJNR IANW = ' ' "keine Anwendung, da sonst ST_COL = 5 "Dialog für KSTAR!!!!!!!!! ST_ROW = 5 USER_DEFAULTS = ' ' IMPORTING EXIT = FLG_EXIT TABLES EXC_TAB = XEXC_TAB GLOBALS = XGLOBALS EXCEPTIONS INTERNAL_ERROR = 01 JOB_DOES_NOT_EXIST = 02 NOT_GENERATED = 03 NO_AUTHORIZATION = 04 NO_GLOBALS = 05.
K_KKB_GENERAL_REPORT_CALL_1 CALL FUNCTION 'K_KKB_GENERAL_REPORT_CALL_1' EXPORTING RGJNR = LD_RGJNR TABLES GLOBALS = XGLOBALS SPECIAL_VALUES = XSVALUES VALUES = XVALUES EXCEPTIONS INTERNAL_ERROR = 01.
CONVERSION_EXIT_ALPHA_INPUT CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT' EXPORTING INPUT = XMMAUSP-ATWRT IMPORTING OUTPUT = AUFNR.
CONVERSION_EXIT_ALPHA_INPUT CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT' EXPORTING INPUT = XMMAUSP-ATWRT IMPORTING OUTPUT = AUFNR.
HELP_DOCU_SHOW_FOR_FIELD CALL FUNCTION 'HELP_DOCU_SHOW_FOR_FIELD' " K_RKASET EXPORTING " K_RKASET DISPLAY = ' ' " K_RKASET FIELDNAME = 'AUFSET' " K_RKASET FIELDVALUE = ' ' " K_RKASET KEYWORD = ' ' " K_RKASET TABNAME = 'KKB0' " K_RKASET HELP_IN_POPUP = ' '. " K_RKASET
K_KOKRS_READ CALL FUNCTION 'K_KOKRS_READ' EXPORTING KOKRS = LD_KOKRS IMPORTING E_TKA01 = LD_ATKA01 EXCEPTIONS NOT_FOUND = 1 NOT_FOUND_GJAHR = 2 OTHERS = 3.
SAPGUI_PROGRESS_INDICATOR CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR' EXPORTING PERCENTAGE = PERCENTAGE TEXT = LD_TEXT.
ICON_CREATE CALL FUNCTION 'ICON_CREATE' EXPORTING NAME = 'ICON_GREEN_LIGHT' TEXT = '' INFO = '' ADD_STDINF = ' ' IMPORTING RESULT = GD_ICON_GRUEN EXCEPTIONS ICON_NOT_FOUND = 01 OUTPUTFIELD_TOO_SHORT = 02.
ICON_CREATE CALL FUNCTION 'ICON_CREATE' EXPORTING NAME = 'ICON_YELLOW_LIGHT' TEXT = '' INFO = '' ADD_STDINF = ' ' IMPORTING RESULT = GD_ICON_GELB EXCEPTIONS ICON_NOT_FOUND = 01 OUTPUTFIELD_TOO_SHORT = 02.
ICON_CREATE CALL FUNCTION 'ICON_CREATE' EXPORTING NAME = 'ICON_RED_LIGHT' TEXT = '' INFO = '' ADD_STDINF = ' ' IMPORTING RESULT = GD_ICON_ROT EXCEPTIONS ICON_NOT_FOUND = 01 OUTPUTFIELD_TOO_SHORT = 02.
K_KOKRS_READ * CALL FUNCTION 'K_KOKRS_READ' * EXPORTING * KOKRS = KOKRS * IMPORTING * E_TKA00 = * E_TKA01 = LD_ATKA01 * EXCEPTIONS * NOT_FOUND = 1 * NOT_FOUND_GJAHR = 2 * OTHERS = 3.
KKBH_RULE_CREATE CALL FUNCTION 'KKBH_RULE_CREATE' EXPORTING I_TKKBH = LD_ARULE I_SAVE = ' ' IMPORTING E_TKKBH = LD_ARULE E_CANC = LD_CANCEL EXCEPTIONS OTHERS = 1.
K_KKB_CO_OBJECT_READ CALL FUNCTION 'K_KKB_CO_OBJECT_READ' " Lesen der entspr. KKBC-Sätze
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 BSELNF01 or its description.