Properties | SourceCde
Title |  |
Original language | DE | Englisch
Created | 27.10.1998 |  | SAP |
Last changed by | 13.11.2001 |  | SAP |
Status | Active |
Attributes
Type | INCLUDE program |
Status | Test program |
Application | Basis |
Package | SVIM | Basis View Maintenance
| Editor lock
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.