Eigenschaften | Quelltext
Titel | FILL_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 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
      ENDIF.
    17
    ENDFORM.