Eigenschaften | Quelltext
Titel | VIM_RESTORE_LOCAL_MEMORY |
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 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