1
*---------------------------------------------------------------------*
2
* FORM FILL_SUBSETFIELDS *
3
4
* fill subset fields in *view-wa *
5
6
FORM FILL_SUBSETFIELDS.
7
DATA: progname LIKE sy-repid.
8
IF <STATUS>-SBSID_RCVD CO ' R'.
9
progname = sy-repid.
10
PERFORM INIT_SUBSET_FCTFIELDS USING COMPL_FORMNAME progname.
11
TRANSLATE <STATUS>-SBSID_RCVD USING ' XRS'.
12
ELSE.
13
IF MAXLINES EQ 0 OR VIM_CALLED_BY_CLUSTER NE SPACE.
14
MOVE <INITIAL> TO <TABLE1>.
15
ENDIF.
16
17
ENDFORM.