Eigenschaften | Quelltext
Titel | EDIT_VIEW_ENTRY |
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  EDIT_VIEW_ENTRY                                         *
    3
    *&--------------------------------------------------------------------*
    4
    *       edit entry in TOTAL/EXTRACT due to foreign request            *
    5
    *---------------------------------------------------------------------*
    6
    * ENTRY  ---> entry to edit                                           *
    7
    * ACTION ---> action: UPD - add/update, DEL - delete, UDL - undelete  *
    8
    *             IGN - mark entry as to ignore, MRK - mark/unmark entry  *
    9
    * SY_SUBRC -> return code: 0 - all right, others: failure             *
    10
    * EXT    ---> table containing selected view entries                  *
    11
    * TOT    ---> table containing all view entries                       *
    12
    * HEADER ---> table containing header information of current view     *
    13
    * NAMTAB ---> table containing information about current viewfields   *
    14
    * SELLIST --> table containing select options                         *
    15
    *---------------------------------------------------------------------*
    16
    FORM edit_view_entry TABLES ext tot
    17
                                header  STRUCTURE vimdesc
    18
                                namtab  STRUCTURE vimnamtab
    19
                                sellist STRUCTURE vimsellist
    20
                         USING value(entry) value(action).
    21
      DATA: state_vect_name(37) TYPE c,
    22
            rc LIKE sy-subrc, pos LIKE sy-fdpos,
    23
            texttablename(31) TYPE c VALUE '*          ', mmark(1) TYPE c,
    24
            tab_rc LIKE sy-subrc, tab_ix LIKE sy-tabix,
    25
            dummy_tab LIKE vimexclfun OCCURS 1, name(20) TYPE c.
    26
      FIELD-SYMBOLS: <tot_x> TYPE x, <ext_x> TYPE x, <ent_x> TYPE x,
    27
                     <viewkey> TYPE x, <act> TYPE c, <xact> TYPE c,
    28
                     <mrk> TYPE c, <xmrk> TYPE c,
    29
                     <txt_act> TYPE c,
    30
                     <tot_struc> TYPE ANY, <ent_struc> TYPE ANY,
    31
                     <tot_txt> TYPE x, <ent_txt> TYPE x, <ent_txt2> TYPE x,
    32
                     <tot_txt_struc> TYPE ANY, <txt_init> TYPE ANY.
    33
    34
      READ TABLE header INDEX 1.
    35
      pos = header-after_tabc.
    36
    *  MOVE HEADER-TABLEN TO POS.
    37
      ASSIGN: tot TO <tot_x> CASTING, ext TO <ext_x> CASTING,
    38
              entry TO <ent_x> CASTING,
    39
              <tot_x> TO <tot_struc> CASTING TYPE (header-maintview),
    40
              <ent_x> TO <ent_struc> CASTING TYPE (header-maintview).
    41
      IF header-bastab NE space AND header-texttbexst NE space.
    42
    * tab+txttb
    43
        ADD header-aft_txttbc TO pos.
    44
        MOVE header-texttab TO texttablename+1.
    45
        ASSIGN: <tot_x>+header-after_tabc(header-texttablen) TO <tot_txt>,
    46
                <ent_x>+header-after_tabc(header-texttablen) TO <ent_txt>,
    47
                <tot_txt> TO <tot_txt_struc> CASTING TYPE (header-texttab),
    48
                (texttablename) TO <txt_init>.
    49
    *    ASSIGN: TOT+HEADER-TABLEN(HEADER-TEXTTABLEN) TO <TOT_TXT>,
    50
    *            ENTRY+HEADER-TABLEN(HEADER-TEXTTABLEN) TO <ENT_TXT>,
    51
    *            (TEXTTABLENAME) TO <TXT_INIT>.
    52
      ENDIF.
    53
      ASSIGN: <ent_x>(header-keylen) TO <viewkey>,
    54
              <tot_x>+pos(cl_abap_char_utilities=>charsize)
    55
               TO <act> CASTING,
    56
              <ext_x>+pos(cl_abap_char_utilities=>charsize)
    57
               TO <xact> CASTING.
    58
      ADD cl_abap_char_utilities=>charsize TO pos.
    59
      ASSIGN: <tot_x>+pos(cl_abap_char_utilities=>charsize)
    60
               TO <mrk> CASTING,
    61
              <ext_x>+pos(cl_abap_char_utilities=>charsize)
    62
               TO <xmrk> CASTING.
    63
      IF header-bastab NE space AND header-texttbexst NE space."tab+txttb
    64
        ADD cl_abap_char_utilities=>charsize TO pos.
    65
        ASSIGN <tot_x>+pos(cl_abap_char_utilities=>charsize)
    66
         TO <txt_act> CASTING.
    67
      ENDIF.
    68
    *  ASSIGN: ENTRY(HEADER-KEYLEN) TO <VIEWKEY>,
    69
    *          TOT+POS(1) TO <ACT>.
    70
    *  ADD 1 TO POS.
    71
    *  ASSIGN TOT+POS(1) TO <MRK>.
    72
    *  IF HEADER-BASTAB NE SPACE AND HEADER-TEXTTBEXST NE SPACE."tab+txttb
    73
    *    ADD 1 TO POS.
    74
    *    ASSIGN TOT+POS(1) TO <TXT_ACT>.
    75
    *    SUBTRACT 1 FROM POS.
    76
    *  ENDIF.
    77
      IF header-viewname NE last_ext_modif_view.
    78
        MOVE state_vect_prefix TO state_vect_name.
    79
        WRITE header-maintview TO state_vect_name+state_vect_prefix_length.
    80
        ASSIGN (state_vect_name) TO <state>.
    81
        MOVE header-viewname TO last_ext_modif_view.
    82
      ENDIF.
    83
      READ TABLE tot WITH KEY <viewkey> BINARY SEARCH.
    84
      tab_rc = sy-subrc. tab_ix = sy-tabix.
    85
      IF sy-subrc EQ 0.                    " entry found in TOT
    86
        CASE action.
    87
          WHEN 'DEL'.
    88
            CASE <act>.
    89
              WHEN neuer_eintrag.
    90
                <act> = neuer_geloescht.
    91
              WHEN original.
    92
                <act> = geloescht.
    93
              WHEN aendern.
    94
                <act> = update_geloescht.
    95
            ENDCASE.
    96
            IF header-bastab NE space AND header-texttbexst NE space.
    97
              CASE <txt_act>.
    98
                WHEN neuer_eintrag.
    99
                  <txt_act>            = neuer_geloescht.
    100
                WHEN original.
    101
                  IF <tot_txt_struc> NE <txt_init>.
    102
                    <txt_act>             = geloescht.
    103
                  ENDIF.
    104
                WHEN aendern.
    105
                  <txt_act>             = update_geloescht.
    106
              ENDCASE.
    107
            ENDIF.
    108
            mmark = <mrk>.
    109
            IF <mrk> EQ markiert.
    110
              <mrk> = nicht_markiert. SUBTRACT 1 FROM <state>-mk_to.
    111
            ENDIF.
    112
            MODIFY tot INDEX sy-tabix.
    113
            READ TABLE ext WITH KEY <viewkey>.
    114
            IF sy-subrc EQ 0.
    115
              IF mmark EQ markiert.
    116
                SUBTRACT 1 FROM <state>-mk_xt.
    117
              ENDIF.
    118
              DELETE ext INDEX sy-tabix.
    119
              SUBTRACT 1 FROM <state>-maxlines.
    120
            ENDIF.
    121
          WHEN 'UPD'.
    122
            IF header-bastab NE space AND header-texttbexst NE space.
    123
              IF <tot_txt> NE <ent_txt>.
    124
                IF <tot_txt_struc> EQ <txt_init>.
    125
                  <txt_act> = neuer_eintrag.
    126
                ELSE.
    127
                  IF <txt_act> EQ original.
    128
                    <txt_act> = aendern.
    129
                  ENDIF.
    130
                ENDIF.
    131
                MOVE <ent_txt> TO <tot_txt>.
    132
              ENDIF.
    133
            ENDIF.
    134
            MOVE <ent_struc> TO <tot_struc>.
    135
            IF <act> EQ original.
    136
              <act> = aendern.
    137
            ENDIF.
    138
            MODIFY tot INDEX sy-tabix.
    139
            READ TABLE ext WITH KEY <viewkey>.
    140
            IF sy-subrc EQ 0.
    141
              MOVE tot TO ext.
    142
              MODIFY ext INDEX sy-tabix.
    143
            ENDIF.
    144
          WHEN 'UDL'.
    145
            CASE <act>.
    146
              WHEN neuer_geloescht.
    147
                <act> = neuer_eintrag.
    148
              WHEN geloescht.
    149
                <act> = original.
    150
              WHEN update_geloescht.
    151
                <act> = aendern.
    152
              WHEN OTHERS.
    153
                rc = 8.
    154
            ENDCASE.
    155
            IF rc EQ 0.
    156
              IF header-bastab NE space AND header-texttbexst NE space.
    157
                CASE <txt_act>.
    158
                  WHEN neuer_geloescht.
    159
                    <txt_act>         = neuer_eintrag.
    160
                  WHEN geloescht.
    161
                    <txt_act>         = original.
    162
                  WHEN update_geloescht.
    163
                    <txt_act>         = aendern.
    164
                ENDCASE.
    165
              ENDIF.
    166
              MODIFY tot INDEX sy-tabix.
    167
              READ TABLE ext WITH KEY <viewkey>.
    168
              IF sy-subrc EQ 0.
    169
                IF <state>-selected EQ geloescht.
    170
                  DELETE ext INDEX sy-tabix.
    171
                ELSE.
    172
                  <xmrk> = <mrk>.
    173
                  <xact> = <act>.
    174
                  MODIFY ext INDEX sy-tabix.
    175
                ENDIF.
    176
              ENDIF.
    177
            ENDIF.
    178
          WHEN 'IGN'.
    179
            IF <mrk> EQ markiert.
    180
              MOVE uebergehen TO <mrk>.
    181
              MODIFY tot INDEX sy-tabix.
    182
              READ TABLE ext WITH KEY <viewkey>.
    183
              IF sy-subrc EQ 0.
    184
                <xmrk> = <mrk>.
    185
                MODIFY ext INDEX sy-tabix.
    186
              ENDIF.
    187
            ENDIF.
    188
            rc = 1.
    189
          WHEN 'MRK'.
    190
            IF <mrk> EQ markiert.
    191
              MOVE nicht_markiert TO <mrk>.
    192
            ELSE.
    193
              MOVE markiert TO <mrk>.
    194
            ENDIF.
    195
            MODIFY tot INDEX sy-tabix.
    196
            IF <mrk> EQ markiert.
    197
              ADD 1 TO <state>-mk_to.
    198
            ELSE.
    199
              SUBTRACT 1 FROM <state>-mk_to.
    200
            ENDIF.
    201
            READ TABLE ext WITH KEY <viewkey>.
    202
            IF sy-subrc EQ 0.
    203
              <xmrk> = <mrk>.
    204
              MODIFY ext INDEX sy-tabix.
    205
              IF <mrk> EQ markiert.
    206
                ADD 1 TO <state>-mk_xt.
    207
              ELSE.
    208
                SUBTRACT 1 FROM <state>-mk_xt.
    209
              ENDIF.
    210
            ENDIF.
    211
            rc = 1.
    212
        ENDCASE.
    213
      ELSE.                                "entry NOT found in TOT
    214
        CLEAR sy-subrc.
    215
        IF action NE 'UPD'.
    216
          rc = 8.
    217
        ELSE.
    218
          IF header-selection NE space.
    219
            IF header-bastab <> space AND header-texttbexst <> space.
    220
              ASSIGN <ent_txt> TO <ent_txt2>.
    221
            ELSE.
    222
              ASSIGN <ent_x> TO <ent_txt2>.
    223
            ENDIF.
    224
            CALL FUNCTION 'TABLE_RANGE_CHECK'
    225
              EXPORTING
    226
                tabname                   = header-maintview
    227
                entry                     = entry
    228
                entry_text                = <ent_txt2>
    229
                ddic                      = 'J'
    230
                key                       = 'J'
    231
                ignore_blank_subsetfields = 'N'
    232
              TABLES
    233
                x_namtab                  = namtab
    234
                x_header                  = header
    235
                sellist                   = sellist
    236
              EXCEPTIONS
    237
                entry_not_fits            = 8.
    238
          ENDIF.
    239
          IF sy-subrc EQ 0.
    240
            MOVE <ent_struc> TO <tot_struc>.
    241
            <act> = neuer_eintrag.
    242
            <mrk> = nicht_markiert.
    243
            IF header-bastab NE space AND header-texttbexst NE space.
    244
              <tot_txt> = <ent_txt>.
    245
              IF <tot_txt_struc> NE <txt_init>.
    246
                <txt_act> = neuer_eintrag.
    247
              ELSE.
    248
                <txt_act> = original.
    249
              ENDIF.
    250
            ENDIF.
    251
            CASE tab_rc.
    252
              WHEN 4.
    253
                INSERT tot INDEX tab_ix.
    254
              WHEN 8.
    255
                APPEND tot.
    256
            ENDCASE.
    257
          ELSE.
    258
            rc = sy-subrc.
    259
          ENDIF.
    260
        ENDIF.
    261
      ENDIF.
    262
      IF rc EQ 0.
    263
        MOVE 'X' TO <state>-upd_flag.
    264
      ENDIF.
    265
      sy-subrc = ( rc DIV 8 ) * 8.
    266
    ENDFORM.                               " EDIT_VIEW_ENTRY