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 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.