1
*---------------------------------------------------------------------*
2
* FORM COMPLETE_SUBSETFIELDS *
3
4
* fill subset comment fields in view-wa from *view-wa (detail screen)*
5
6
FORM complete_subsetfields.
7
8
FIELD-SYMBOLS: <namtab> TYPE vimnamtab.
9
10
LOOP AT x_namtab ASSIGNING <namtab>
11
WHERE readonly EQ subset AND keyflag EQ space.
12
ASSIGN: COMPONENT <namtab>-viewfield OF STRUCTURE <initial>
13
TO <value>,
14
COMPONENT <namtab>-viewfield OF STRUCTURE <table1>
15
TO <subsetfield>.
16
* ASSIGN <INITIAL>+X_NAMTAB-POSITION(X_NAMTAB-FLENGTH)
17
* TO <VALUE>.
18
* ASSIGN <TABLE1>+X_NAMTAB-POSITION(X_NAMTAB-FLENGTH)
19
* TO <SUBSETFIELD>.
20
MOVE <value> TO <subsetfield>.
21
ENDLOOP.
22
ENDFORM.