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 VIM_RESTORE_LOCAL_MEMORY                                 *
    3
    *&--------------------------------------------------------------------*
    4
    * restore local memory of function pool (for external call)           *
    5
    *&--------------------------------------------------------------------*
    6
    FORM VIM_RESTORE_LOCAL_MEMORY.
    7
      DATA: H_NAME(31) TYPE C VALUE '*', H_STATE(30) VALUE 'STATUS_'.
    8
    9
      VIEW_NAME = X_HEADER-VIEWNAME.
    10
      IF X_HEADER-BASTAB EQ SPACE.
    11
        H_NAME+1 = X_HEADER-MAINTVIEW. H_STATE+7 = X_HEADER-MAINTVIEW.
    12
        ASSIGN: (X_HEADER-MAINTVIEW) TO <TABLE1>, (H_NAME) TO <INITIAL>,
    13
                (H_STATE) TO <STATUS>.
    14
      ENDIF.
    15
      VIM_RESTORE_MODE = 'X'.
    16
      PERFORM INITIALISIEREN.
    17
      VIEW_ACTION = <STATUS>-ST_ACTION. TRANSLATE VIEW_ACTION USING 'CUAU'.
    18
      PERFORM JUSTIFY_ACTION_MODE.
    19
      MOVE: VIEW_ACTION TO MAINT_MODE,
    20
            <STATUS>-CORR_NBR TO CORR_NBR,
    21
            <STATUS>-FCODE TO FUNCTION.
    22
      PERFORM CALL_DYNPRO.
    23
    ENDFORM.                               "vim_restore_local_memory