Properties | SourceCde
Title |  |
Original language | DE | Englisch
Created | 27.10.1998 |  | SAP |
Last changed by | 11.03.2003 |  | 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_FRAME_FUNCTION.                          *
    3
    *&--------------------------------------------------------------------*
    4
    * do all the things necessary before leaving the frame function unit  *
    5
    *&--------------------------------------------------------------------*
    6
    FORM before_leaving_frame_function
    7
                            USING value(exit_form) LIKE vimdesc-frm_bf_end.
    8
    9
      DATA: prc TYPE sy-subrc, dummy TYPE c, dummi TYPE i.
    10
    11
      IF <status>-corr_enqud NE space.
    12
        CALL FUNCTION 'DEQUEUE_E_TRKORR'
    13
             EXPORTING
    14
                  trkorr = <status>-corr_nbr.
    15
    *             X_TRKORR = E02.
    16
        CLEAR <status>-corr_enqud.
    17
      ENDIF.
    18
      CLEAR <status>-corr_nbr.
    19
      CLEAR <status>-initializd.
    20
      CLEAR <initial>. <vim_client_initial> = sy-mandt.
    21
      IF ( maint_mode EQ anzeigen OR maint_mode EQ transportieren ) AND
    22
         vim_corr_obj_viewname NE space.
    23
        CLEAR vim_corr_obj_viewname.
    24
      ENDIF.
    25
      PERFORM vim_reset_texttab USING view_name.        "SW Texttransl
    26
      CALL FUNCTION 'VIEW_RESET_LANGUAGES'."SW Texttransl
    27
      IF exit_form NE space.
    28
        PERFORM (exit_form) IN PROGRAM.
    29
      ENDIF.
    30
      CLEAR function.
    31
      FREE vim_bc_entry_list.
    32
      CLEAR: <status>-bcfixnochg, vim_bc_chng_allowed,
    33
             <status>-bcfixdelinfosent.
    34
    ** test getting profiles: begin
    35
    *  IF SY-UNAME = 'FRENZELU' OR SY-UNAME = 'ROSENTHAL'    "UF Profile
    36
    *   OR SY-UNAME = 'BUEHLERM'.
    37
    *    CALL FUNCTION 'SCPR_MEMORY_DELETE'.
    38
    *  ENDIF.
    39
    ** test getting profiles: end
    40
      CLEAR vim_oc_inst.
    41
    *  refresh vim_dba_sel_kept.                              "UF210200
    42
    *delete after_nonkey flag in check_range.
    43
      PERFORM check_range IN PROGRAM saplsvix
    44
                 USING space 0 'E' space space space
    45
                 CHANGING dummy prc.
    46
    ENDFORM.                               "before_leaving_frame_function