SAP Reports / Programs
REGLOS04 SAP ABAP Report - Enter Lot in Devices
REGLOS04 is a standard Executable ABAP Report 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 REGLOS04 into the relevant SAP transactions such as SE38 or SE80
Transaction Code(s):
Below is a list of transaction codes which are relevant to this SAP report
EG8A - Compile Sample Lot: Report
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 REGLOS04. "Basic submit
SUBMIT REGLOS04 AND RETURN. "Return to original report after report execution complete
SUBMIT REGLOS04 VIA SELECTION-SCREEN. "Display selection screen of submitted report to user
See more syntax options for the ABAP SUBMIT statement
Text pool values
Selection Text: APPRVLNR = D Inspection number
Selection Text: BAUJAHR = D Production year
Selection Text: BGLJAHR = D Certification Year
Selection Text: CITY = D Location
Selection Text: COUNTRY = D Country Key
Selection Text: GERANZ = D Number of Devices
Selection Text: GERTYP = D Material
Selection Text: LAGER = D Storage location
Selection Text: LOS = D Lot
Selection Text: MANMODEL = D Category description
Selection Text: MANUFACT = D Manufacturer
Selection Text: POSTCODE = D Postal Code
Selection Text: REGION = D Region
Selection Text: SERNR = D Serial Number
Selection Text: SWERK = D Maintenance Plant
Selection Text: UPD_FLAG = Perform update
Selection Text: WERK = D Plant
Selection Text: WJAHR = D Next replacement year
Title: Enter Lot in Devices
Text Symbol: T37 = Background Job for Work Orders
Text Symbol: T36 = Select Variant
Text Symbol: T06 = Custom Selections
Text Symbol: T05 = Installation-specific selections
Text Symbol: T04 = Allocating lot
Text Symbol: T03 = General Data
Text Symbol: T02 = Device data
Text Symbol: 001 = Perform update
Text Symbol: 003 = Number of devices
Text Symbol: 005 = Lock All Devices
Text Symbol: 007 = No. of Lock Attempts
Text Symbol: 050 = Read &V1&% devices and inspect...
Text Symbol: 100 = Enter lot
Text Symbol: 102 = Compilation of lot &1&
Text Symbol: 104 = Origin: report REGLOS04
Text Symbol: 106 = Selection criteria:
Text Symbol: 108 = Number of devices deleted from replacement file: &1&
Text Symbol: 110 = Number of devices with new lot number: &1&
Text Symbol: 112 = List of devices (X=device was deleted from replacement file):
Text Symbol: 114 = List of blocked devices
Text Symbol: 118 = Schedule background job
Text Symbol: 120 = Do you want to redisplay or
Text Symbol: 121 = change the background job
Text Symbol: 122 = again ?
Text Symbol: 124 = Custom Selections
Text Symbol: 126 = Free selections =>
Text Symbol: 128 = Number of blocked devices: &1&
Text Symbol: S01 = Device
Text Symbol: S09 = Yes
Text Symbol: S10 = No
Text Symbol: S50 = Lot
Text Symbol: S99 = ____________________________________________________________________________________________________________________________________
Text Symbol: T01 = Location data
INCLUDES used within this REPORT REGLOS04
INCLUDE: IEGBGLCO, " BEGLAUBIGUNGSKONSTANTEN
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:
ISU_SYSTEMPARAMETER_MM call function 'ISU_SYSTEMPARAMETER_MM' exporting x_parameter = co_gv_loslager importing y_active = f_loslager exceptions parameter_not_found = 1 systemparameters_missing = 2 others = 3.
ISU_SYSTEMPARAMETER_MM call function 'ISU_SYSTEMPARAMETER_MM' exporting x_parameter = co_gv_certlotdev importing y_active = f_certlotdev exceptions parameter_not_found = 1 systemparameters_missing = 2 others = 3.
ISU_DB_ETYP_MULTIPLE call function 'ISU_DB_ETYP_MULTIPLE' tables t_selopt = gertyp t_etyp = t_etyp exceptions not_found = 1 system_error = 2 others = 3.
SAPGUI_PROGRESS_INDICATOR call function 'SAPGUI_PROGRESS_INDICATOR' exporting percentage = percentage text = perctext "Geräte lesen und prüfen...
ISU_DB_EGER_FETCH_MATNR call function 'ISU_DB_EGER_FETCH_MATNR' exporting x_matnr = t_etyp-matnr x_ab = co_date_infinite x_bis = co_date_infinite x_packagesize = ipackagesize x_close = ' ' x_initial_lot = 'X' importing y_count = db_count y_closed = iclosed t_v_eger = i_v_eger[] tables * t_v_eger = i_v_eger[] t_so_sernr = sernr t_so_manufact = manufact t_so_manmodel = manmodel t_so_baujahr = baujahr t_so_bgljahr = bgljahr * t_so_wjahr = wjahr t_so_apprvlnr = apprvlnr exceptions not_found = 1 not_qualified = 2 others = 3.
ISU_DB_EGER_FETCH_MATNR call function 'ISU_DB_EGER_FETCH_MATNR' exporting x_matnr = t_etyp-matnr x_ab = co_date_infinite x_bis = co_date_infinite x_packagesize = ipackagesize x_close = 'X' x_initial_lot = 'X' importing y_closed = iclosed exceptions not_found = 1 not_qualified = 2 others = 3.
ISU_DB_TE271_SINGLE call function 'ISU_DB_TE271_SINGLE' exporting x_los = x_lotnr importing y_te271 = xy_te271 exceptions not_found = 1 system_error = 2 others = 3.
ISU_SYSTEMPARAMETER_MM call function 'ISU_SYSTEMPARAMETER_MM' exporting x_parameter = co_gv_chlos importing y_active = par_active.
ENQUEUE_E_TE271 call function 'ENQUEUE_E_TE271' exporting los = x_lotnr exceptions foreign_lock = 1 system_failure = 2 others = 3.
ISU_REPLACEMENT_YEAR call function 'ISU_REPLACEMENT_YEAR' exporting x_v_eger = x_v_eger x_etyp = x_etyp importing y_wechsel = key-bglbis y_bglkenn = ibglkenn y_bglform = ibglform.
T005_SINGLE_READ call function 'T005_SINGLE_READ' exporting kzrfb = 'X' t005_land1 = country exceptions not_found = 1 others = 2.
T005S_SINGLE_READ call function 'T005S_SINGLE_READ' exporting kzrfb = '' t005s_land1 = country t005s_bland = region-low exceptions not_found = 1 others = 2.
T005S_SINGLE_READ call function 'T005S_SINGLE_READ' exporting kzrfb = '' t005s_land1 = country t005s_bland = region-high exceptions not_found = 1 others = 2.
ISU_DB_EGER_FORALL call function 'ISU_DB_EGER_FORALL' importing y_count = db_count tables t_v_eger = i_t_v_eger exceptions not_found = 1 others = 2.
ISU_V_EGER_UPDATE_MULTIPLE call function 'ISU_V_EGER_UPDATE_MULTIPLE' exporting x_db_read = ' ' x_upd_mode = co_upd_update x_upd_online = upd_online x_upd_equi = '' tables t_v_eger_new = i_t_v_eger[] t_v_eger_old = i_t_v_eger_old[].
ISU_DB_TE271_UPDATE call function 'ISU_DB_TE271_UPDATE' in update task exporting x_te271 = xy_te271 x_te271_old = x_te271_db x_upd_mode = co_upd_update.
ISU_DB_TE271_UPDATE call function 'ISU_DB_TE271_UPDATE' exporting x_te271 = xy_te271 x_te271_old = x_te271_db x_upd_mode = co_upd_update.
ISU_DB_EGLO_UPDATE call function 'ISU_DB_EGLO_UPDATE' in update task exporting x_lot = xy_te271-los x_upd_mode = co_upd_delete.
ISU_DB_EGLO_UPDATE call function 'ISU_DB_EGLO_UPDATE' exporting x_lot = xy_te271-los x_upd_mode = co_upd_delete.
ISU_DB_EGTUR_SELECT call function 'ISU_DB_EGTUR_SELECT' exporting x_maxcount = 0 importing y_count = icount tables t_equnr = i_t_equnr t_equi_egtur = i_t_equi_egtur exceptions others = 1.
ISU_DB_EGTUR_UPDATE call function 'ISU_DB_EGTUR_UPDATE' exporting x_upd_mode = co_upd_delete tables t_equnr = i_t_equnr2.
ITOB_EQUIPMENT_LOCK_SINGLE call function 'ITOB_EQUIPMENT_LOCK_SINGLE' exporting i_objnr =
-equnr exceptions not_successful = 1 others = 2.
ENQUEUE_EIEQUI call function 'ENQUEUE_EIEQUI' exporting equnr = '' exceptions foreign_lock = 1 system_failure = 2 others = 3.
ITOB_EQUIPMENT_UNLOCK_SINGLE call function 'ITOB_EQUIPMENT_UNLOCK_SINGLE' exporting i_objnr =
-equnr i_unlock_fully = 'X' exceptions others = 0.
DEQUEUE_EIEQUI call function 'DEQUEUE_EIEQUI' exporting equnr = ''.
DEQUEUE_E_TE271 call function 'DEQUEUE_E_TE271' exporting los = x_lot exceptions others = 0.
RS_REFRESH_FROM_SELECTOPTIONS call function 'RS_REFRESH_FROM_SELECTOPTIONS' exporting curr_report = ireport tables selection_table = i_sel_opt exceptions not_found = 1 no_report = 2 others = 3.
MSG_OPEN call function 'MSG_OPEN' exporting x_no_dialog = co_flag_marked x_log = co_flag_marked importing y_msg_handle = msg_handle changing xy_parm = msg_parm.
MSG_ACTION call function 'MSG_ACTION' exporting x_msg_handle = msg_handle x_action = co_msg_save.
MSG_CLOSE call function 'MSG_CLOSE' exporting x_msg_handle = msg_handle.
call function 'POPUP_TO_DECIDE' exporting defaultoption = '2' textline1 = text-120 * D:'Wollen Sie den gerade angelegten' textline2 = text-121 * D:'Hintergrundjob noch einmal' textline3 = text-122 * D:'anzeigen oder ändern?' text_option1 = text-s09 * D:'Ja' text_option2 = text-s10 * D:'Nein' titel = text-t37 * D:'Hintergrundjob Arbeitsaufträge' * START_COLUMN = 25 * START_ROW = 6 cancel_display = co_flag_notmarked importing answer = answer exceptions others = 1.
RS_VARIANT_CATALOG call function 'RS_VARIANT_CATALOG' exporting report = repid new_title = text-t36 importing sel_variant = y_variant * SEL_VARIANT_TEXT = exceptions no_report = 1 report_not_existent = 2 report_not_supplied = 3 no_variants = 4 others = 5.
JOB_OPEN call function 'JOB_OPEN' exporting * DELANFREP = ' ' * JOBGROUP = ' ' jobname = x_jobname * SDLSTRTDT = NO_DATE * SDLSTRTTM = NO_TIME importing jobcount = y_jobcount exceptions cant_create_job = 1 invalid_job_data = 2 jobname_missing = 3 others = 4.
BP_START_DATE_EDITOR call function 'BP_START_DATE_EDITOR' exporting stdt_dialog = btc_yes stdt_input = xy_start_date stdt_opcode = btc_edit_startdate importing stdt_modify_type = stdt_modify_type stdt_output = xy_start_date exceptions fcal_id_not_defined = 1 incomplete_last_startdate = 2 incomplete_startdate = 3 invalid_dialog_type = 4 invalid_eventid = 5 invalid_opcode = 6 invalid_opmode_name = 7 invalid_periodbehaviour = 8 invalid_predecessor_jobname = 9 last_startdate_in_the_past = 10 no_period_data_given = 11 no_startdate_given = 12 period_and_predjob_no_way = 13 period_too_small_for_limit = 14 predecessor_jobname_not_unique = 15 startdate_interval_too_large = 16 startdate_in_the_past = 17 startdate_is_a_holiday = 18 startdate_out_of_fcal_range = 19 stdt_before_holiday_in_past = 20 unknown_fcal_error_occured = 21 no_workday_nr_given = 22 invalid_workday_countdir = 23 invalid_workday_nr = 24 notbefore_stdt_missing = 25 workday_starttime_missing = 26 no_eventid_given = 27 others = 28.
BP_JOB_DELETE call function 'BP_JOB_DELETE' exporting * FORCEDMODE = ' ' jobcount = x_jobcount jobname = x_jobname exceptions cant_delete_event_entry = 1 cant_delete_job = 2 cant_delete_joblog = 3 cant_delete_steps = 4 cant_delete_time_entry = 5 cant_derelease_successor = 6 cant_enq_predecessor = 7 cant_enq_successor = 8 cant_enq_tbtco_entry = 9 cant_update_predecessor = 10 cant_update_successor = 11 commit_failed = 12 jobcount_missing = 13 jobname_missing = 14 job_does_not_exist = 15 job_is_already_running = 16 no_delete_authority = 17 others = 18.
BP_JOB_SELECT call function 'BP_JOB_SELECT' exporting jobselect_dialog = btc_no jobsel_param_in = select_info importing jobsel_param_out = select_info tables jobselect_joblist = t_joblist exceptions invalid_dialog_type = 1 jobname_missing = 2 no_jobs_found = 3 selection_canceled = 4 username_missing = 5 others = 6.
JOB_SUBMIT call function 'JOB_SUBMIT' exporting * ARCPARAMS = ' ' authcknam = sy-uname * EXTPGM_NAME = ' ' * EXTPGM_PARAM = ' ' * EXTPGM_SET_TRACE_ON = ' ' * EXTPGM_STDERR_IN_JOBLOG = 'X' * EXTPGM_STDOUT_IN_JOBLOG = 'X' * EXTPGM_SYSTEM = ' ' * EXTPGM_WAIT_FOR_TERMINATION = 'X' jobcount = x_jobcount jobname = x_jobname * LANGUAGE = SY-LANGU * PRIPARAMS = ' ' report = repid variant = x_variant * IMPORTING * STEP_NUMBER = exceptions bad_priparams = 1 bad_xpgflags = 2 invalid_jobdata = 3 jobname_missing = 4 job_notex = 5 job_submit_failed = 6 lock_failed = 7 program_missing = 8 prog_abap_and_extpg_set = 9 others = 10.
JOB_CLOSE call function 'JOB_CLOSE' exporting * AT_OPMODE = ' ' * AT_OPMODE_PERIODIC = ' ' calendar_id = x_start_date-calendarid event_id = x_start_date-eventid event_param = x_start_date-eventparm event_periodic = x_start_date-periodic jobcount = x_jobcount jobname = x_jobname laststrtdt = x_start_date-laststrtdt laststrttm = x_start_date-laststrttm prddays = x_start_date-prddays prdhours = x_start_date-prdhours prdmins = x_start_date-prdmins prdmonths = x_start_date-prdmonths prdweeks = x_start_date-prdweeks predjob_checkstat = x_start_date-checkstat pred_jobcount = x_start_date-predjobcnt pred_jobname = x_start_date-predjob sdlstrtdt = x_start_date-sdlstrtdt sdlstrttm = x_start_date-sdlstrttm startdate_restriction = x_start_date-prdbehav strtimmed = x_start_date_immediate targetsystem = x_start_date-instname start_on_workday_not_before = x_start_date-notbefore start_on_workday_nr = x_start_date-wdayno workday_count_direction = x_start_date-wdaycdir importing job_was_released = y_job_was_released exceptions cant_start_immediate = 1 invalid_startdate = 2 jobname_missing = 3 job_close_failed = 4 job_nosteps = 5 job_notex = 6 lock_failed = 7 others = 8.
BP_JOBLIST_PROCESSOR call function 'BP_JOBLIST_PROCESSOR' exporting joblist_opcode = btc_joblist_edit * JOBLIST_REFR_PARAM = ' ' * IMPORTING * JOBLIST_SEL_JOB = tables joblist = joblist exceptions invalid_opcode = 1 joblist_is_empty = 2 joblist_processor_canceled = 3 others = 4.
ISU_LOT_CHECK_AUTHORITY call function 'ISU_LOT_CHECK_AUTHORITY' exporting x_activt = x_mode x_sparte = x_te271-sparte x_losamt = x_te271-losamt exceptions not_authorized = 1.
REUSE_ALV_GRID_DISPLAY call function 'REUSE_ALV_GRID_DISPLAY' exporting i_callback_program = repid i_structure_name = 'ELOT_DEV_DISP' is_layout = layout it_fieldcat = fieldcat[] i_default = 'X' i_save = 'A' is_variant = gs_variant it_events = itevents[] tables t_outtab = t_testtab exceptions program_error = 1 others = 2.
REUSE_ALV_FIELDCATALOG_MERGE call function 'REUSE_ALV_FIELDCATALOG_MERGE' exporting i_program_name = repid i_internal_tabname = 'T_TESTTAB' i_structure_name = 'ELOT_DEV_DISP' i_client_never_display = 'X' changing ct_fieldcat = xy_lt_fieldcat exceptions inconsistent_interface = 1 program_error = 2 others = 3.
DDIF_NAMETAB_GET call function 'DDIF_NAMETAB_GET' exporting tabname = 'ELOT_DEV_DISP_KEY' all_types = 'X' tables x031l_tab = x031l_tab exceptions not_found = 1 others = 2.
REUSE_ALV_COMMENTARY_WRITE call function 'REUSE_ALV_COMMENTARY_WRITE' exporting it_list_commentary = it_listheader[].
REUSE_ALV_GRID_LAYOUT_INFO_GET call function 'REUSE_ALV_GRID_LAYOUT_INFO_GET' importing es_layout = ilayout et_fieldcat = ifieldcat exceptions no_infos = 1 program_error = 2 others = 3.
ISU_DB_TEPRREL_SELECT_ALL call function 'ISU_DB_TEPRREL_SELECT_ALL' exporting x_sort = '' x_maxcount = 0 tables t_teprrel = t_teprrel exceptions not_found = 1 others = 2.
ISU_DB_EGPL_SINGLE call function 'ISU_DB_EGPL_SINGLE' exporting x_devloc = x_devloc x_spras = sy-langu importing y_iflo = iiflo exceptions not_found = 1 wrong_type = 2 others = 3.
ISU_DB_EHAU_SINGLE call function 'ISU_DB_EHAU_SINGLE' exporting x_haus = x_devloc x_spras = sy-langu importing y_iflo = iiflo exceptions not_found = 1 wrong_type = 2 others = 3.
ISU_ADDRESS_PROVIDE call function 'ISU_ADDRESS_PROVIDE' exporting x_address_type = co_only_address x_addrnumber = iadrnr importing y_eadrdat = xy_eadrdat exceptions not_found = 1 parameter_error = 2 object_not_given = 3 address_inconsistency = 4 installation_inconsistency = 5 others = 6.
FREE_SELECTIONS_INIT call function 'FREE_SELECTIONS_INIT' exporting kind = co_kind_t expressions = expressions importing selection_id = xy_selection_id where_clauses = t_where_clauses expressions = expressions tables tables_tab = t_tables_tab fields_tab = t_fields_tab exceptions fields_incomplete = 1 fields_no_join = 2 field_not_found = 3 no_tables = 4 table_not_found = 5 expression_not_supported = 6 incorrect_expression = 7 illegal_kind = 8 area_not_found = 9 inconsistent_area = 10 kind_f_no_fields_left = 11 kind_f_no_fields = 12 too_many_fields = 13 others = 14.
FREE_SELECTIONS_DIALOG call function 'FREE_SELECTIONS_DIALOG' exporting selection_id = xy_selection_id title = text-t06 as_window = 'X' importing where_clauses = y_where_clauses expressions = expressions tables fields_tab = y_fields_tab exceptions internal_error = 1 no_action = 2 selid_not_found = 3 illegal_status = 4 others = 5.
DDIF_STATE_GET call function 'DDIF_STATE_GET' exporting type = co_type_table name = co_ci_elot_key state = co_state_a importing gotstate = y_got_state exceptions illegal_input = 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 REGLOS04 or its description.