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_EXPROFIELDS                                     *
    3
    *---------------------------------------------------------------------*
    4
    *  fill read only fields of referenced tables (exp ro tables)         *
    5
    *---------------------------------------------------------------------*
    6
    FORM COMPLETE_EXPROFIELDS.
    7
      IF X_HEADER-FRM_RP_CPL NE SPACE.
    8
        PERFORM (X_HEADER-FRM_RP_CPL) IN PROGRAM.
    9
      ELSE.
    10
        PERFORM (COMPL_FORMNAME) IN PROGRAM (SY-REPID) USING <TABLE1>
    11
                                     IF FOUND.
    12
      ENDIF.
    13
      IF VIM_CALLED_BY_CLUSTER NE SPACE.
    14
        CALL FUNCTION 'VIEWCLUSTER_COMPL_SUBSET_VALUE'
    15
             EXPORTING
    16
                  VIEW_NAME = X_HEADER-VIEWNAME
    17
             CHANGING
    18
                  WORKAREA  = <TABLE1>.
    19
      ENDIF.
    20
    ENDFORM.                               "complete_exprofields