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 SET_PF_STATUS                                            *
    3
    *---------------------------------------------------------------------*
    4
    * PF-Status setzen: entweder allgemein oder angegeb. Programm         *
    5
    *---------------------------------------------------------------------*
    6
    FORM set_pf_status USING value(sps_status).
    7
      DATA: sps_state LIKE sy-pfkey, sps_stat TYPE state_vector.
    8
      CASE x_header-gui_prog.
    9
        WHEN master_fpool.
    10
          MOVE sps_status TO sps_state.
    11
          CALL FUNCTION 'VIEW_SET_PF_STATUS'
    12
            EXPORTING
    13
              status         = sps_state
    14
              objimp         = x_header-importable
    15
            TABLES
    16
              excl_cua_funct = excl_cua_funct.
    17
        WHEN sy-repid.
    18
          MOVE sps_status TO sps_stat.
    19
          IF sps_stat-action EQ anzeigen OR
    20
             sps_stat-action EQ transportieren OR
    21
             ( sy-mandt EQ '000' AND vim_system_type NE 'SAP' ) OR
    22
             x_header-importable = vim_not_importable.
    23
            vim_comp_menue_text = svim_text_045.
    24
          ELSE.
    25
            vim_comp_menue_text = svim_text_046.
    26
          ENDIF.
    27
          vim_pr_stat_txt_ch = svim_text_prb.
    28
          vim_pr_stat_txt_ta = svim_text_prc.
    29
          vim_pr_stat_txt_me = svim_text_pri.
    30
          vim_pr_stat_txt_or = svim_text_prj.
    31
          SET PF-STATUS sps_status EXCLUDING excl_cua_funct.
    32
        WHEN OTHERS.
    33
          RAISE wrong_gui_programm.
    34
      ENDCASE.
    35
    ENDFORM.                    "SET_PF_STATUS