SAP Reports / Programs
RLMOBSER SAP ABAP Report - RF: Capture of Serial numbers for delivery
RLMOBSER 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 RLMOBSER 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
LM80 - Serial number capture
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 RLMOBSER. "Basic submit
SUBMIT RLMOBSER AND RETURN. "Return to original report after report execution complete
SUBMIT RLMOBSER VIA SELECTION-SCREEN. "Display selection screen of submitted report to user
See more syntax options for the ABAP SUBMIT statement
Text pool values
Title: RF: Capture of Serial numbers for delivery
INCLUDES used within this REPORT RLMOBSER
INCLUDE RLMOBSERDATA.
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:
L_USER_DATA_GET_INT CALL FUNCTION 'L_USER_DATA_GET_INT' EXPORTING I_UNAME = SY-UNAME IMPORTING E_USER = LRF_WKQU EXCEPTIONS NO_ENTRY_FOUND = 1 NO_UNIQUE_ENTRY = 2.
CALL_MESSAGE_SCREEN CALL FUNCTION 'CALL_MESSAGE_SCREEN' EXPORTING i_msgid = message_id i_lang = sy-langu i_msgno = message_number i_msgv1 = message_var1 i_msgv2 = message_var2 i_msgv3 = message_var3 i_msgv4 = message_var4 i_condense = ' ' I_NON_LMOB_ENVT = 'X' EXCEPTIONS invalid_message1 = 01.
CALL_MESSAGE_SCREEN CALL FUNCTION 'CALL_MESSAGE_SCREEN' EXPORTING i_msgid = 'LF' i_lang = sy-langu i_msgno = '122' i_msgv1 = message_var1 i_msgv2 = message_var2 i_msgv3 = message_var3 i_msgv4 = message_var4 i_condense = ' ' I_NON_LMOB_ENVT = 'X' EXCEPTIONS invalid_message1 = 01.
L_SER_DELIVERY_NUMBER CALL FUNCTION 'L_SER_DELIVERY_NUMBER' IMPORTING E_VBELN = p_vbeln E_FCODE = p_fcode.
SHP_ENQUEUE_EVVBLKE CALL FUNCTION 'SHP_ENQUEUE_EVVBLKE' EXPORTING * MODE_LIKP = 'E' * MANDT = SY-MANDT VBELN = gs_likp-vbeln * X_VBELN = ' ' _SCOPE = '3' * _WAIT = ' ' * _COLLECT = ' ' EXCEPTIONS FOREIGN_LOCK = 1 SYSTEM_FAILURE = 2 CSL_NO_CONNECTION = 3 CSL_INCONSISTENCY = 4 OTHERS = 5 .
SHP_SD_ORDER_ENQUEUE CALL FUNCTION 'SHP_SD_ORDER_ENQUEUE' CHANGING ct_key_try = lt_key_to_lock ct_key_failed = lt_key_unlockable EXCEPTIONS OTHERS = 1.
L_SER_SCAN_SN_FOR_DELIVERY CALL FUNCTION 'L_SER_SCAN_SN_FOR_DELIVERY' IMPORTING E_LSERN = p_barc E_FCODE = p_fcode TABLES T_LIST = lt_0020.
L_SER_SCAN_SN_FOR_DELIVERY_ITM CALL FUNCTION 'L_SER_SCAN_SN_FOR_DELIVERY_ITM' EXPORTING I_LSERN = lt_lser0000 IMPORTING E_LSERN = p_barc E_FCODE = p_fcode TABLES T_snitem = lt_0030.
STATUS_TEXT_EDIT CALL FUNCTION 'STATUS_TEXT_EDIT' EXPORTING * CLIENT = SY-MANDT * FLG_USER_STAT = ' ' objnr = hlp_objnr ONLY_ACTIVE = 'X' spras = sy-langu * BYPASS_BUFFER = ' ' IMPORTING * ANW_STAT_EXISTING = * E_STSMA = LINE = l_STATUSLINE * USER_LINE = * STONR = EXCEPTIONs OBJECT_NOT_FOUND = 1 OTHERS = 2.
AUTHORITY_CHECK_TCODE CALL FUNCTION 'AUTHORITY_CHECK_TCODE' EXPORTING tcode = sy-tcode EXCEPTIONS ok = 0 not_ok = 2 OTHERS = 3.
SERIAL_PROFILE_READ call function 'SERIAL_PROFILE_READ' exporting profile_r = ls_lips-serail operation_r = 'HUSL' importing t_377 = ls_t377 exceptions no_t377p_entry = 1 no_t377_entry = 2 others = 3.
MESSAGES_INITIALIZE call function 'MESSAGES_INITIALIZE' EXPORTING i_identification = lf_ident IMPORTING e_identification = lf_ident EXCEPTIONS others = 0.
SERNR_ADD_TO_LS CALL FUNCTION 'SERNR_ADD_TO_LS' EXPORTING PROFILE = ls_lips-serail MATERIAL = ls_lips-matnr M_CHARGE = ls_lips-charg QUANTITY = lf_anzsn J_VORGANG = lf_status * KMATNR = CUOBJ = ls_lips-cuobj DOCUMENT = gs_likp-vbeln ITEM = ls_lips-posnr DEBITOR = gs_likp-kunnr VBTYP = gs_likp-vbtyp bWART = ls_lips-bwart * SNBWG = IMPORTING * ANZSN = ZEILEN_ID = lf_line_id * SERIAL_COMMIT = TABLES SERNOS = lt_sernos EXCEPTIONS KONFIGURATIONS_ERROR = 1 SERIALNUMBER_ERRORS = 2 SERIALNUMBER_WARNINGS = 3 NO_PROFILE_OPERATION = 4 OTHERS = 5 .
MESSAGES_GIVE call function 'MESSAGES_GIVE' EXPORTING i_zeile = lf_line_id TABLES t_mesg = lt_mesg.
SHP_SD_ORDER_ENQUEUE CALL FUNCTION 'SHP_SD_ORDER_ENQUEUE' CHANGING ct_key_try = lt_key_to_lock ct_key_failed = lt_key_unlockable EXCEPTIONS OTHERS = 1.
SERIAL_INTTAB_REFRESH CALL FUNCTION 'SERIAL_INTTAB_REFRESH' EXPORTING OBJECTS_STATUS_REFRESH = 'E'.
LE_DELIVERY_REFRESH_BUFFER *CALL FUNCTION 'LE_DELIVERY_REFRESH_BUFFER' * EXPORTING * IF_HANDLE = * IF_VBELN = p_vbeln * IF_DLV_DEQUEUE = * IS_DELIVERY_KEY = * IT_DELIVERY_KEYS = * EXCEPTIONS * NO_KEY_SPECIFIED = 1 * OTHERS = 2 .
SERIAL_POST_UPDATE_LS * CALL FUNCTION 'SERIAL_POST_UPDATE_LS' * in update task * TABLES * XSER01 = imp_ser01.
call function 'SERIALPROFILE_CHECK' EXPORTING OPERATION = 'SDLP' EXCEPTIONS others = 1.
L_SER_SAVE_ANZSN_IN_DELIVERY CALL FUNCTION 'L_SER_SAVE_ANZSN_IN_DELIVERY' EXPORTING T_SERN = lt_sern i_vbeln = gs_likp-vbeln i_commit = con_x.
CALL_MESSAGE_SCREEN CALL FUNCTION 'CALL_MESSAGE_SCREEN' EXPORTING i_msgid = message_id i_lang = sy-langu i_msgno = message_number i_msgv1 = message_var1 i_msgv2 = message_var2 i_msgv3 = message_var3 i_msgv4 = message_var4 i_condense = ' ' I_MESSAGE_SCREEN = '0998' I_NON_LMOB_ENVT = 'X' IMPORTING o_answer = p_answer EXCEPTIONS invalid_message1 = 01.
SERNR_DEL_FROM_DOCUMENT * CALL FUNCTION 'SERNR_DEL_FROM_DOCUMENT' * EXPORTING * OBJKOPF = taser_ser01 * SERXX = DA_SERXX * OPERATION = BELEG_SDD1 ** MATERIAL = * J_VORGANG = lf_Status ** BSTCH = ** BSTUP = * DEL_COMPLETE = ' ' ** PROFILE = * IMPORTING ** ANZSN = ** SERIAL_COMMIT = * STATUS_NOT_ALLOWED = Status_not_allowed * TABLES * SERNR = ls_sernr ** R_SERNR = ** CHANGING * * T_SMESG = * EXCEPTIONS * OBJECTLIST_NOT_FOUND = 1 * PARAMETER_ERROR = 2 * OTHERS = 3 * .
SERIAL_PROFILE_READ call function 'SERIAL_PROFILE_READ' exporting profile_r = ls_lips-serail operation_r = 'HUSL' importing t_377 = ls_t377 exceptions no_t377p_entry = 1 no_t377_entry = 2 others = 3.
MESSAGES_INITIALIZE call function 'MESSAGES_INITIALIZE' EXPORTING i_identification = lf_ident IMPORTING e_identification = lf_ident EXCEPTIONS others = 0.
SHP_SD_ORDER_ENQUEUE CALL FUNCTION 'SHP_SD_ORDER_ENQUEUE' CHANGING ct_key_try = lt_key_to_lock ct_key_failed = lt_key_unlockable EXCEPTIONS OTHERS = 1.
L_SER_WS_DELIVERY_UPDATE CALL FUNCTION 'L_SER_WS_DELIVERY_UPDATE' * in update task EXPORTING VBKOK_WA = p_vbkok SYNCHRON = 'X' * NO_MESSAGES_UPDATE = ' ' COMMIT = ' ' DELIVERY = p_vbeln * UPDATE_PICKING = ' ' NICHT_SPERREN = 'X' * IF_CONFIRM_CENTRAL = ' ' * IF_WMPP = ' ' IF_GET_DELIVERY_BUFFERED = ' ' * IF_NO_GENERIC_SYSTEM_SERVICE = ' ' * IF_DATABASE_UPDATE = '1' * IF_NO_INIT = ' ' * IF_NO_READ = ' ' IF_ERROR_MESSAGES_SEND_0 = 'X' * IF_NO_BUFFER_REFRESH = ' ' * IT_PARTNER_UPDATE = IT_SERNR_UPDATE = it_sernr * IF_NO_REMOTE_CHG = ' ' IF_NO_MES_UPD_PACK = 'X' "n_1732036 * TABLES * VBPOK_TAB = * PROT = * VERKO_TAB = * VERPO_TAB = * VBSUPCON_TAB = * IT_VERPO_SERNR = * IT_PACKING = * IT_PACKING_SERNR = * IT_REPACK = * IT_HANDLING_UNITS = * IT_OBJECTS = * ET_CREATED_HUS = * TVPOD_TAB = * exceptions error_message = 0 others = 0.
SHP_DEQUEUE_EVVBLKE CALL FUNCTION 'SHP_DEQUEUE_EVVBLKE' EXPORTING * MODE_LIKP = 'E' * MANDT = SY-MANDT VBELN = p_VBELN * X_VBELN = ' ' * _SCOPE = '3' * _SYNCHRON = ' ' * _COLLECT = 'X' .
STATUS_TEXT_EDIT CALL FUNCTION 'STATUS_TEXT_EDIT' EXPORTING * CLIENT = SY-MANDT * FLG_USER_STAT = ' ' objnr = hlp_objnr ONLY_ACTIVE = 'X' spras = sy-langu * BYPASS_BUFFER = ' ' IMPORTING * ANW_STAT_EXISTING = * E_STSMA = LINE = l_STATUSLINE * USER_LINE = * STONR = EXCEPTIONs OBJECT_NOT_FOUND = 1 OTHERS = 2.
STATUS_TEXT_EDIT CALL FUNCTION 'STATUS_TEXT_EDIT' EXPORTING * CLIENT = SY-MANDT * FLG_USER_STAT = ' ' objnr = hlp_objnr ONLY_ACTIVE = 'X' spras = sy-langu * BYPASS_BUFFER = ' ' IMPORTING * ANW_STAT_EXISTING = * E_STSMA = LINE = l_STATUSLINE * USER_LINE = * STONR = EXCEPTIONs OBJECT_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 RLMOBSER or its description.