Dynamic User Setting

 

----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 .