1
*----------------------------------------------------------------------*
2
***INCLUDE LSVIMF5C .
3
4
*&---------------------------------------------------------------------*
5
*& Form VIM_SET_OC
6
7
* Called from external to create reference to organisation
8
* criterion
9
10
* --> p1 text
11
* <-- p2 text
12
13
FORM vim_set_oc USING value(p_obj)
14
TYPE REF TO cl_viewfields_org_crit.
15
16
clear vim_oc_inst.
17
check not p_obj is initial.
18
vim_oc_inst = p_obj.
19
ENDFORM. " VIM_SET_GLOBAL_OBJECT
20