1
*---------------------------------------------------------------------*
2
* FORM COMPLETE_EXPROFIELDS *
3
4
* fill read only fields of referenced tables (exp ro tables) *
5
6
FORM COMPLETE_EXPROFIELDS.
7
IF X_HEADER-FRM_RP_CPL NE SPACE.
8
PERFORM (X_HEADER-FRM_RP_CPL) IN PROGRAM.
9
ELSE.
10
PERFORM (COMPL_FORMNAME) IN PROGRAM (SY-REPID) USING <TABLE1>
11
IF FOUND.
12
ENDIF.
13
IF VIM_CALLED_BY_CLUSTER NE SPACE.
14
CALL FUNCTION 'VIEWCLUSTER_COMPL_SUBSET_VALUE'
15
EXPORTING
16
VIEW_NAME = X_HEADER-VIEWNAME
17
CHANGING
18
WORKAREA = <TABLE1>.
19
20
ENDFORM. "complete_exprofields