Eigenschaften | Quelltext
Titel | REPLACE |
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 REPLACE                                                  *
    3
    *---------------------------------------------------------------------*
    4
    *       ........                                                      *
    5
    *---------------------------------------------------------------------*
    6
    FORM replace.
    7
      DATA: firstline_safe TYPE i.
    8
      DESCRIBE TABLE exclude_tab.
    9
      IF sy-tfill GT 0.                    "entries in old exclude_tab
    10
        PERFORM consider_old_exclude_tab TABLES excl_rpl_tab.
    11
      ENDIF.
    12
      CALL FUNCTION 'REPLACE_GET_FIELD'
    13
           EXPORTING
    14
                table                  = x_header-maintview
    15
           IMPORTING
    16
                name_of_selected_field = sel_field_for_replace
    17
           TABLES
    18
                exclude_fields         = excl_rpl_tab
    19
           EXCEPTIONS
    20
                cancelled_by_user      = 0004
    21
                no_valid_fields        = 8.
    22
      CASE sy-subrc.
    23
        WHEN 4.
    24
          function = 'ABR '. EXIT.
    25
        WHEN 8.
    26
          MESSAGE s039(sv) WITH view_name. EXIT.
    27
      ENDCASE.
    28
      LOOP AT x_namtab WHERE viewfield EQ sel_field_for_replace.
    29
        IF x_header-bastab NE space AND x_header-texttbexst NE space
    30
                                    AND x_namtab-texttabfld NE space.
    31
          assign component x_namtab-viewfield of structure
    32
                    <vim_ext_txt_struc> to <replace_field>.
    33
        else.
    34
          assign component x_namtab-viewfield of structure
    35
                    <vim_extract_struc> to <replace_field>.
    36
        endif.
    37
    *    ASSIGN extract+x_namtab-position(x_namtab-flength)
    38
    *                              TO <replace_field> TYPE x_namtab-inttype.
    39
        IF x_header-bastab NE space AND x_header-texttbexst NE space.
    40
          MOVE x_namtab-texttabfld TO replace_texttable_field.
    41
        ELSE.
    42
          CLEAR replace_texttable_field.
    43
        ENDIF.
    44
      ENDLOOP.
    45
      IF replace_texttable_field EQ space. "view or base table field
    46
        CONCATENATE x_header-maintview sel_field_for_replace
    47
           INTO sel_field_for_replace_l SEPARATED BY '-'.
    48
      ELSE.                                "text table field
    49
        CONCATENATE x_header-texttab sel_field_for_replace
    50
           INTO sel_field_for_replace_l SEPARATED BY '-'.
    51
      ENDIF.
    52
      IF x_header-frm_bf_rpl NE space.
    53
        PERFORM (x_header-frm_bf_rpl) IN PROGRAM (sy-repid).
    54
      ENDIF.
    55
    * SET PF-STATUS 'REPLACE'.
    56
      PERFORM set_pf_status USING 'REPLACE'.
    57
      replace_mode = 'X'. vim_special_mode = vim_replace.
    58
      counter = 0.
    59
      firstline_safe = firstline.
    60
      LOOP AT extract.
    61
        CHECK <xmark> EQ markiert.
    62
        nextline = exind = sy-tabix.
    63
        IF replace_texttable_field EQ space.  "view or base table field
    64
          CALL FUNCTION 'REPLACE_SET_VALUE'
    65
               EXPORTING
    66
                    old_table = <vim_xextract>
    67
               IMPORTING
    68
                    new_table = <table1_x>.
    69
          IF x_header-bastab NE space AND x_header-texttbexst NE space.
    70
            <table1_xtext> = <vim_xextract_text>.
    71
          ENDIF.
    72
        ELSE.                              "text table field
    73
          MOVE <vim_extract_struc> TO <table1>.
    74
          CALL FUNCTION 'REPLACE_SET_VALUE'
    75
               EXPORTING
    76
                    old_table = <vim_xextract_text>
    77
               IMPORTING
    78
                    new_table = <table1_xtext>.
    79
        ENDIF.
    80
        CASE status-type.
    81
          WHEN einstufig.
    82
            CALL SCREEN liste.
    83
          WHEN zweistufig.
    84
            PERFORM process_detail_screen USING 'C'.
    85
            <vim_extract_struc> = <table1>.
    86
            IF x_header-bastab NE space AND x_header-texttbexst NE space.
    87
              <vim_xextract_text> = <table1_xtext>.
    88
            ENDIF.
    89
        ENDCASE.
    90
        CHECK ok_code NE 'IGN '.
    91
        IF function EQ 'ABR '.
    92
          EXIT.
    93
        ENDIF.
    94
        counter = counter + 1.
    95
        SUBTRACT 1 FROM mark_extract.
    96
        SUBTRACT 1 FROM mark_total.
    97
      ENDLOOP.
    98
      firstline = nextline = firstline_safe.
    99
      replace_mode = vim_special_mode = space.
    100
      MESSAGE s012(sv) WITH counter.
    101
      IF x_header-frm_af_rpl NE space.
    102
        PERFORM (x_header-frm_af_rpl) IN PROGRAM (sy-repid).
    103
      ENDIF.
    104
    ENDFORM.