SAP Reports / Programs | Training and Event Management | SAP Learning Solution | Day-to-Day Activities(PE-LSO-TM-DW) SAP PE

MIT30F02_LSO SAP ABAP INCLUDE - MIT30F02LSO







MIT30F02_LSO 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 MIT30F02_LSO 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 MIT30F02_LSO. "Basic submit
SUBMIT MIT30F02_LSO AND RETURN. "Return to original report after report execution complete
SUBMIT MIT30F02_LSO 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 MIT30F02_LSO

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:

RH_READ_INFTY_1001 CALL FUNCTION 'RH_READ_INFTY_1001' EXPORTING * AUTHORITY = 'DISP' * WITH_STRU_AUTH = 'X' * ISTAT = ' ' * EXTEND = 'X' subty = $placa begda = fvo_kurs-begda endda = fvo_kurs-endda * CONDITION = '00000' * SORT = 'X' * WITH_EV = ' ' * ADATA = 'X' TABLES i1001 = i1001 OBJECTS = intobj EXCEPTIONS nothing_found = 1 wrong_condition = 2 OTHERS = 3.

RH_READ_OBJECT CALL FUNCTION 'RH_READ_OBJECT' EXPORTING plvar = fvo_kurs-plvar otype = cl_lso_const=>otype_kurso * OBJID = realo = i1001-sobid * ISTAT = ' ' begda = i1001-begda endda = i1001-endda * LANGU = SY-LANGU * OINTERVAL = 'X' * STORE = 'X' * CHECK_STRU_AUTH = 'X' * READ_DB = ' ' IMPORTING * obeg = * oend = ostat = fvo_ort-istat histo = fvo_ort-histo short = fvo_ort-short stext = fvo_ort-stext * TISTAT = * TLANGU = * TABLES * EXISTENCE = EXCEPTIONS not_found = 1 OTHERS = 2.

RH_READ_INFTY_1001 CALL FUNCTION 'RH_READ_INFTY_1001' EXPORTING * AUTHORITY = 'DISP' * WITH_STRU_AUTH = 'X' * ISTAT = ' ' * EXTEND = 'X' subty = $occpa begda = fr_kurs-begda endda = fr_kurs-endda * CONDITION = '00000' * SORT = 'X' * WITH_EV = ' ' * ADATA = 'X' TABLES i1001 = l1001 OBJECTS = intobj EXCEPTIONS nothing_found = 1 wrong_condition = 2 OTHERS = 3.

RH_READ_INFTY_NNNN CALL FUNCTION 'RH_READ_INFTY_NNNN' EXPORTING * AUTHORITY = 'DISP' * WITH_STRU_AUTH = 'X' infty = oc_infty istat = '1' * EXTEND = 'X' * SUBTY = ' ' begda = fr_kurs-begda endda = fr_kurs-endda * CONDITION = '00000' * INFTB = '1' * SORT = 'X' TABLES innnn = i1023 OBJECTS = intobj EXCEPTIONS nothing_found = 1 wrong_condition = 2 OTHERS = 3.

RH_READ_OBJECT CALL FUNCTION 'RH_READ_OBJECT' EXPORTING plvar = l1001-plvar otype = l1001-sclas * OBJID = realo = l1001-sobid * ISTAT = ' ' begda = l1001-begda endda = l1001-endda * LANGU = SY-LANGU * OINTERVAL = 'X' * STORE = 'X' * CHECK_STRU_AUTH = 'X' * READ_DB = ' ' IMPORTING * obeg = * oend = ostat = fr_raum-istat histo = fr_raum-histo short = fr_raum-short stext = fr_raum-stext EXCEPTIONS not_found = 01 OTHERS = 02.

RH_READ_INFTY_1001 CALL FUNCTION 'RH_READ_INFTY_1001' EXPORTING * AUTHORITY = 'DISP' * WITH_STRU_AUTH = 'X' * ISTAT = ' ' * EXTEND = 'X' subty = $occpa begda = fr_kurs-begda endda = fr_kurs-endda * CONDITION = '00000' * SORT = 'X' * WITH_EV_FOR_INT ' ' * ADATA = 'X' TABLES i1001 = i1001 OBJECTS = intobj EXCEPTIONS nothing_found = 01 wrong_condition = 02.

RH_READ_INFTY_NNNN CALL FUNCTION 'RH_READ_INFTY_NNNN' EXPORTING * AUTHORITY = 'DISP' * WITH_STRU_AUTH = 'X' infty = oc_infty istat = '1' * EXTEND = 'X' * SUBTY = ' ' begda = fr_kurs-begda endda = fr_kurs-endda * CONDITION = '00000' * INFTB = '1' * SORT = 'X' TABLES innnn = i1023 OBJECTS = intobj EXCEPTIONS nothing_found = 1 wrong_condition = 2 OTHERS = 3.

RH_READ_OBJECT CALL FUNCTION 'RH_READ_OBJECT' EXPORTING plvar = i1001-plvar otype = i1001-sclas * OBJID = realo = i1001-sobid * ISTAT = ' ' begda = i1001-begda endda = i1001-endda langu = sy-langu * OINTERVAL = 'X' * STORE = 'X' * CHECK_STRU_AUTH = 'X' * READ_DB = ' ' IMPORTING obeg = fr_ref-begda oend = fr_ref-endda ostat = fr_ref-istat histo = fr_ref-histo short = fr_ref-short stext = fr_ref-stext EXCEPTIONS not_found = 01 OTHERS = 02.

RH_GET_COMPANY CALL FUNCTION 'RH_GET_COMPANY' EXPORTING begda = fr_datum endda = fr_datum sort = ' ' TABLES OBJECTS = obj company_tab = comp EXCEPTIONS nothing_found = 1 no_participant = 2 no_single_part = 3 no_orway_in_t77r3 = 4 OTHERS = 5.

RH_READ_INFTY_1001 CALL FUNCTION 'RH_READ_INFTY_1001' EXPORTING * AUTHORITY = 'DISP' * WITH_STRU_AUTH = 'X' * ISTAT = ' ' * EXTEND = 'X' subty = $occpa begda = fr_kurs-begda endda = fr_kurs-endda * CONDITION = '00000' * SORT = 'X' * WITH_EV_FOR_INT ' ' * ADATA = 'X' TABLES i1001 = i1001 OBJECTS = intobj EXCEPTIONS nothing_found = 01 wrong_condition = 02 OTHERS = 03.

RH_READ_INFTY_NNNN CALL FUNCTION 'RH_READ_INFTY_NNNN' EXPORTING * AUTHORITY = 'DISP' * WITH_STRU_AUTH = 'X' infty = '1023' istat = '1' * EXTEND = 'X' * SUBTY = ' ' begda = fr_kurs-begda endda = fr_kurs-endda * CONDITION = '00000' * INFTB = '1' * SORT = 'X' TABLES innnn = i1023 OBJECTS = intobj EXCEPTIONS nothing_found = 1 wrong_condition = 2 OTHERS = 3.

RH_READ_OBJECT CALL FUNCTION 'RH_READ_OBJECT' EXPORTING plvar = i1001-plvar otype = i1001-sclas * OBJID = realo = i1001-sobid * ISTAT = ' ' begda = i1001-begda endda = i1001-endda langu = sy-langu * OINTERVAL = 'X' * STORE = 'X' * CHECK_STRU_AUTH = 'X' * READ_DB = ' ' IMPORTING obeg = ref-begda oend = ref-endda ostat = ref-istat histo = ref-histo short = ref-short stext = ref-stext EXCEPTIONS not_found = 01 OTHERS = 02.

RH_GET_COMPANY CALL FUNCTION 'RH_GET_COMPANY' EXPORTING begda = fr_datum endda = fr_datum sort = ' ' TABLES OBJECTS = obj company_tab = comp EXCEPTIONS nothing_found = 1 no_participant = 2 no_single_part = 3 no_orway_in_t77r3 = 4 OTHERS = 5.

LSO_GET_PARTICIPANTS CALL FUNCTION 'LSO_GET_PARTICIPANTS' EXPORTING begda = fb_kurs-begda endda = fb_kurs-endda * ISTAT = ' ' * SORT = 'X' * ALPHA_SORT = ' ' * FLAGP = ' ' * CHECK_1031 = ' ' * PARTEVENT = ' ' * MAXMU = 'X' * NPRIO = 'X' * MINWL = 'X' * ORTID = * ORGA_OTYPE = * ORGA_REALO = * AUTH_SOBID = ' ' TABLES trainings = intobj participants = partic i1001 = i1001 EXCEPTIONS no_participant = 1 no_event_found = 2 wrong_condition = 3 OTHERS = 4.

RH_READ_INFTY_1001 CALL FUNCTION 'RH_READ_INFTY_1001' EXPORTING * AUTHORITY = 'DISP' * WITH_STRU_AUTH = 'X' * ISTAT = ' ' * EXTEND = 'X' subty = $orgaa begda = fv_datum endda = fv_datum * CONDITION = '00000' * SORT = 'X' * WITH_EV = ' ' * ADATA = 'X' TABLES i1001 = i1001 OBJECTS = intobj EXCEPTIONS nothing_found = 01 wrong_condition = 02 OTHERS = 03.

RH_READ_OBJECT CALL FUNCTION 'RH_READ_OBJECT' EXPORTING plvar = i1001-plvar otype = i1001-sclas * OBJID = realo = i1001-sobid * ISTAT = ' ' begda = fv_datum endda = fv_datum * LANGU = SY-LANGU * OINTERVAL = 'X' * STORE = 'X' * CHECK_STRU_AUTH = 'X' * READ_DB = ' ' IMPORTING * OBEG = * OEND = * OSTAT = * HISTO = short = fv_veran-short stext = fv_veran-stext * TISTAT = * TLANGU = * TABLES * EXISTENCE = EXCEPTIONS not_found = 1 OTHERS = 2.

LSO_GET_SCHEDULE CALL FUNCTION 'LSO_GET_SCHEDULE' EXPORTING plvar = fa_kurs-plvar otype = fa_kurs-otype objid = objid * CALID = ' ' TABLES * TRAINLIST = schedule_out = fa_abltab EXCEPTIONS no_schedule_found = 01 calid_error = 02 OTHERS = 03.

LSO_GET_RESOURCE CALL FUNCTION 'LSO_GET_RESOURCE' EXPORTING plvar = fr_kurs-plvar otype = fr_kurs-otype objid = eveid begda = fr_kurs-begda endda = fr_kurs-endda istat = fr_kurs-istat langu = fr_langu * ORTID = * RESOURCE = 'X' * ROOM = 'X' * INSTRUCTOR = 'X' * MATERIAL = 'X' TABLES ressource_tab = resbel * EVENT_TAB = * I1001 = EXCEPTIONS no_event_found = 1 no_occupying = 2 wrong_objecttype = 3 OTHERS = 4.

RH_READ_OBJECT





CALL FUNCTION 'RH_READ_OBJECT' EXPORTING plvar = ra_restab-plvar otype = ra_restab-retyp * OBJID = realo = ra_restab-resid * ISTAT = ' ' begda = ra_restab-begda endda = ra_restab-endda * LANGU = SY-LANGU * OINTERVAL = 'X' * STORE = 'X' * CHECK_STRU_AUTH = 'X' * READ_DB = ' ' IMPORTING obeg = res-begda oend = res-endda ostat = res-istat histo = res-histo short = res-short stext = res-stext * TISTAT = * TLANGU = * TABLES * EXISTENCE = 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 MIT30F02_LSO or its description.