Properties SourceCde
txt
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.