Eigenschaften | Quelltext
Titel | COMPLETE_SUBSETFIELDS |
Originalsprache | DE | Deutsch
Erstellt | 27.10.1998 |  | SAP |
Letzte Änderung | 13.11.2001 |  | SAP |
Status | aktiv |
Attribute
Typ | Include-Programm |
Status | Testprogramm |
Anwendung | Basis (System) |
Paket | SVIM | Basis Viewmaintenance
| Editorsperre
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.