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  BEFORE_LEAVING_EXT                                      *
    3
    *&--------------------------------------------------------------------*
    4
    * do all the things necessary before leaving - external call          *
    5
    *&--------------------------------------------------------------------*
    6
    FORM BEFORE_LEAVING_EXT USING VALUE(VIEWNAME) LIKE VIMDESC-VIEWNAME
    7
                                  VALUE(MAINTVIEW) LIKE VIMDESC-MAINTVIEW
    8
                                  VALUE(EXIT_FORM) LIKE VIMDESC-FRM_BF_END.
    9
      DATA: NAME(20) TYPE C VALUE 'STATUS_'.
    10
      FIELD-SYMBOLS: <BLE_STATUS>.
    11
    12
      ASSIGN <STATUS> TO <BLE_STATUS>.
    13
    * NAME+7 = VIEWNAME.
    14
      NAME+7 = MAINTVIEW.                  "Subviews
    15
      ASSIGN (NAME) TO <STATUS>.
    16
      IF VIM_CORR_OBJ_VIEWNAME NE VIEWNAME.
    17
        CLEAR MAINT_MODE.
    18
      ELSE.
    19
        MAINT_MODE = <STATUS>-ST_ACTION.
    20
      ENDIF.
    21
      PERFORM BEFORE_LEAVING_FRAME_FUNCTION USING EXIT_FORM.
    22
      ASSIGN <BLE_STATUS> TO <STATUS>.
    23
    ENDFORM.                               "before_leaving_ext