Table : DD07V
Ex. Find data element days.
go to SE11.
and choose data elements.
Table : DD07V
Ex. Find data element days.
go to SE11.
and choose data elements.
edit_mask = '==FLTQU'.
convexit = 'FLTQU'.
----Set current screen for user.----
REPORT y_test.
tables esdus.
DATA: x TYPE i,
y TYPE i.
data tab type LVC_s_COL.
data tab2 like table of tab.
data gs_comp TYPE ref to CL_ABAP_TYPEDESCR.
data po type ebeln VALUE '4052001347'.
data item type ebelp VALUE '00110'.
DATA: l_display_only type c value 'X'.
data a(10) type c.
export i_display_only = l_display_only to MEMORY ID
'ME_DISPLAY_ONLY'.
START-OF-SELECTION.
set PARAMETER ID 'BES' FIELD po.
set PARAMETER ID 'BSP' FIELD item.
set PARAMETER ID 'BEP' FIELD item.
SET PARAMETER ID 'EFB' field '08'.
esdus-uname = sy-uname.
esdus-Action = 'PurchaseOrder'.
esdus-Element = 'item_view SUBVIEW_INDEX'.
esdus-ACTIVE = '13'.
update esdus.
call TRANSACTION 'ME22N' .
write / a .
DATA rspar TYPE TABLE OF rsparams WITH HEADER LINE.
"Get all value on screen
CALL FUNCTION 'RS_REFRESH_FROM_SELECTOPTIONS'
EXPORTING
curr_report = sy-repid
* IMPORTING
* SP =
TABLES
selection_table = rspar .
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
“additional value
rspar-selname = 'JOBCOUNT'.
rspar-kind = 'P'. “P = parameter , S = Select option
rspar-sign = 'I'.
rspar-option = 'EQ'.
rspar-low = ‘1’.
APPEND rspar.
"Submit Program
SUBMIT (program_name) AND RETURN
WITH SELECTION-TABLE rspar
CALL FUNCTION 'MIGO_DIALOG'
EXPORTING
i_action = 'A04'
i_refdoc = 'R02'
i_notree = 'X'
i_no_auth_check = ' '
i_deadend = 'X'
i_skip_first_screen = 'X'
i_okcode = 'OK_GO'
i_mblnr = w_output-mblnr
i_mjahr = w_output-mjahr
i_zeile = w_output-zeile.
Table ESDUS
ใช้เก็บค่าตำแหน่งการเลือกต่างๆของ Screen ของแต่ละ User
เช่น ตำแหน่งการเลือกของ Tree, ตำแหน่งการเลือกของ Tabstrip เป็นต้น
INPUT_TAB Importing Type ANY TABLE
OUTPUT_TAB Changing Type INDEX TABLE
-------------------------------------------------------------------------------------------------------
DATA: output_field TYPE REF TO cl_abap_tabledescr,
output_line TYPE REF TO data,
out_linetype TYPE REF TO cl_abap_datadescr.
FIELD-SYMBOLS: <flinein> TYPE ANY, <flineout> TYPE ANY.
output_field ?= cl_abap_tabledescr=>describe_by_data( output_tab ).
out_linetype = output_field->get_table_line_type( ).
CREATE DATA output_line TYPE HANDLE out_linetype.
ASSIGN output_line->* TO <flineout>.
LOOP AT input_tab ASSIGNING <flinein>.
CLEAR <flineout>.
MOVE-CORRESPONDING <flinein> TO <flineout>.
APPEND <flineout> TO output_tab.
ENDLOOP.