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_PROCESS_VIEW_ENTRY                                  *
    3
    *&--------------------------------------------------------------------*
    4
    * process current function for view entry                             *
    5
    *&--------------------------------------------------------------------*
    6
    FORM VIM_PROCESS_VIEW_ENTRY USING VALUE(VPVE_EXIX) TYPE I
    7
                                      VALUE(VPVE_OKCODE) LIKE OK_CODE
    8
                                      VPVE_RC TYPE I.
    9
      DATA: FUNCTION_SAFE LIKE FUNCTION.
    10
      CLEAR VPVE_RC.
    11
      NEXTLINE = EXIND = VPVE_EXIX.
    12
      FUNCTION_SAFE = FUNCTION.
    13
      FUNCTION = OK_CODE = VPVE_OKCODE.
    14
      PERFORM MOVE_EXTRACT_TO_VIEW_WA.
    15
      CASE STATUS-TYPE.
    16
        WHEN EINSTUFIG.
    17
    *     CALL SCREEN LISTE.
    18
          PERFORM VIM_IMP_CALL_SCREEN USING LISTE.
    19
        WHEN ZWEISTUFIG.
    20
    *     PERFORM MOVE_EXTRACT_TO_VIEW_WA.
    21
          PERFORM PROCESS_DETAIL_SCREEN USING 'C'.
    22
      ENDCASE.
    23
      IF OK_CODE EQ 'IGN '. VPVE_RC = 4. CLEAR OK_CODE. EXIT. ENDIF.
    24
      IF FUNCTION EQ 'ABR '. VPVE_RC = 8. CLEAR FUNCTION. EXIT. ENDIF.
    25
      FUNCTION = FUNCTION_SAFE.
    26
    ENDFORM.                               "vim_process_view_entry