Eigenschaften | Quelltext
Titel | Include LSVIMF46 |
Originalsprache | DE | Deutsch
Erstellt | 05.01.1999 |  | SAP |
Letzte Änderung | 23.06.2003 |  | SAP |
Status | aktiv |
Attribute
Typ | Include-Programm |
Status | Testprogramm |
Anwendung | Basis (System) |
Paket | SVIM | Basis Viewmaintenance
| Editorsperre
txt
    1
    *----------------------------------------------------------------------*
    2
    *   INCLUDE LSVIMF46                                                   *
    3
    *----------------------------------------------------------------------*
    4
    * <Address_Number> -> <table1> = View-Workarea (= zu übernehmender
    5
    *      Eintrag, aber Adreßnummer des akt. Mandant/System;
    6
    *      Adreßnummer wurde in VIM_MODIFY_VIEW_ENTRY ausgetauscht)
    7
    * <F1>             -> <table1>(keylen)
    8
    * VIM_UPGR_ADDRESS_NUMBER -> Adresse des zu übernehmenden Eintrages
    9
    * Achtung: in TOTAL steht NICHT(!) mehr der Eintrag aus akt. Mandant/Sys
    10
    *          zur Verfügung wegen Zuweisung  'move <table1> to total'
    11
    *          in liste_initialisieren im 'Replace_mode'.
    12
    *----------------------------------------------------------------------*
    13
    FORM vim_address_adjust.
    14
      DATA: addr_comp_tab TYPE szadr_compare_addr1_tab,
    15
            addr_comp_line TYPE szadr_compare_addr1_line,
    16
            handle TYPE ad_handle,
    17
            create_address(1) TYPE c,
    18
            retcode LIKE  szad_field-returncode,
    19
            error_info LIKE addr_error OCCURS 0 WITH HEADER LINE,
    20
            einfo      LIKE addr_error,
    21
            i_msgv1 LIKE sy-msgv1,
    22
            space_msgv LIKE sy-msgv1 VALUE space,
    23
            dum TYPE i, pos_char TYPE i.
    24
    25
      FIELD-SYMBOLS: <handle_x> TYPE x, <field_loc> TYPE ANY.
    26
    27
    * nur neue Adreßpflege!
    28
      CHECK x_header-adrnbrflag = 'N' AND adrnbr_roflag = space.
    29
      ASSIGN handle TO <handle_x> CASTING.
    30
      IF vim_import_mode_active = space.             "interaktive Übernahme
    31
        IF vim_upgr_address_number <> '@ADJUSTED@'.   "cmpwl_addr_adjusted
    32
          EXIT.
    33
        ENDIF.
    34
        IF <address_number> = space.
    35
          <handle_x> = <f1_x>.
    36
    *      HANDLE = <F1>.
    37
          create_address = 'X'.
    38
        ELSE.
    39
          READ TABLE vim_locked_addresses FROM <address_number>
    40
                                            TRANSPORTING NO FIELDS.
    41
          IF sy-subrc <> 0.                "not yet locked
    42
            CALL FUNCTION 'ADDR_ENQUEUE'
    43
                 EXPORTING
    44
                      address_number    = <address_number>
    45
    *               MODE_ADRC         = 'E'
    46
                 EXCEPTIONS
    47
                      address_not_exist = 1
    48
                      foreign_lock      = 2
    49
                      system_failure    = 3
    50
                      internal_error    = 4.
    51
            CASE sy-subrc.
    52
              WHEN 0.
    53
                INSERT <address_number> INTO TABLE vim_locked_addresses.
    54
              WHEN 1.
    55
                <handle_x> = <f1_x>.
    56
    *            HANDLE = <F1>.
    57
                create_address = 'X'.
    58
                CLEAR <address_number>.
    59
              WHEN 2.
    60
                PERFORM vim_process_message
    61
                    USING 'SV' 'E' 'E' '049'
    62
                          sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    63
              WHEN OTHERS.
    64
    *            i_msgv1 = <table1>.   "HCG Dump when nonchar field in view
    65
                LOOP AT x_namtab.      "HCG write field by field instead
    66
                  ASSIGN COMPONENT x_namtab-viewfield OF STRUCTURE <table1>
    67
                                                  TO <field_loc>.
    68
                  dum = ( x_namtab-position + x_namtab-flength ) /
    69
                                cl_abap_char_utilities=>charsize.
    70
                  pos_char = x_namtab-position /
    71
                                          cl_abap_char_utilities=>charsize.
    72
                  IF dum <= 13.
    73
                    WRITE <field_loc> TO i_msgv1+pos_char.
    74
                  ELSE.
    75
                    dum = 13 - pos_char.
    76
                    WRITE <field_loc>(dum) TO i_msgv1+pos_char.
    77
                    EXIT.                               "HCG i_msgv1 filled
    78
                  ENDIF.
    79
                ENDLOOP.
    80
                PERFORM vim_process_message
    81
                  USING 'SV' 'E' 'E' '050'
    82
                      i_msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    83
            ENDCASE.
    84
          ENDIF.  " SY-SUBRC <> 0.
    85
        ENDIF.   "<Address_Number> = SPACE
    86
    87
      ELSE.  "automat. Übernahme
    88
        IF vim_upgr_address_number = space.
    89
    *      i_msgv1 = <table1>.   "HCG Dump when nonchar field in view
    90
          LOOP AT x_namtab.      "HCG write field by field instead
    91
            ASSIGN COMPONENT x_namtab-viewfield OF STRUCTURE <table1>
    92
                                            TO <field_loc>.
    93
            dum = ( x_namtab-position + x_namtab-flength ) /
    94
                          cl_abap_char_utilities=>charsize.
    95
            pos_char = x_namtab-position /
    96
                                    cl_abap_char_utilities=>charsize.
    97
            IF dum <= 13.
    98
              WRITE <field_loc> TO i_msgv1+pos_char.
    99
            ELSE.
    100
              dum = 13 - pos_char.
    101
              WRITE <field_loc>(dum) TO i_msgv1+pos_char.
    102
              EXIT.                               "HCG i_msgv1 filled
    103
            ENDIF.
    104
          ENDLOOP.
    105
          PERFORM vim_process_message
    106
                    USING 'SV' 'I' 'I'  '165'
    107
                        i_msgv1 space_msgv space_msgv space_msgv.
    108
          EXIT.                                          "keine Löschung
    109
        ENDIF.
    110
    111
        addr_comp_line-addrnumber = <address_number>.
    112
        IF <address_number> = space.
    113
          <handle_x> = <f1_x>.
    114
          addr_comp_line-addrhandle = handle.
    115
    *      ADDR_COMP_LINE-ADDRHANDLE = <F1>.
    116
    *      HANDLE = <F1>.
    117
          create_address = 'X'.
    118
        ENDIF.
    119
        addr_comp_line-remote_addrnumber = vim_upgr_address_number.
    120
        APPEND addr_comp_line TO addr_comp_tab.
    121
        CALL FUNCTION 'ADDR_COMPARE'
    122
             EXPORTING
    123
                  rfc_destination = vim_default_rfc_dest-rfcdest
    124
             TABLES
    125
                  compare_tab     = addr_comp_tab
    126
             EXCEPTIONS
    127
                  rfc_error       = 1
    128
                  OTHERS          = 2.
    129
        IF sy-subrc <> 0.
    130
          PERFORM vim_process_message
    131
                USING sy-msgid 'E' 'E'  sy-msgno
    132
                      sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    133
          EXIT.
    134
        ENDIF.
    135
        READ TABLE addr_comp_tab INDEX 1 INTO addr_comp_line.
    136
        IF addr_comp_line-parameter_error = 'X' OR
    137
           addr_comp_line-internal_error = 'X'.
    138
          einfo = addr_comp_line-error_table.
    139
          PERFORM vim_process_message
    140
            USING einfo-msg_id 'E' 'E'  einfo-msg_number
    141
                einfo-msg_var1 einfo-msg_var2 einfo-msg_var3 einfo-msg_var4.
    142
    *     Adresse kann nicht abgeglichen werden -> Eintrag verwerfen
    143
          EXIT.
    144
        ENDIF.
    145
    146
        IF addr_comp_line-rem_address_not_exist = 'X'.    "keine Löschung!
    147
    *      i_msgv1 = <table1>.   "HCG Dump when nonchar field in view
    148
          LOOP AT x_namtab.      "HCG write field by field instead
    149
            ASSIGN COMPONENT x_namtab-viewfield OF STRUCTURE <table1>
    150
                                            TO <field_loc>.
    151
            dum = ( x_namtab-position + x_namtab-flength ) /
    152
                          cl_abap_char_utilities=>charsize.
    153
            pos_char = x_namtab-position /
    154
                                    cl_abap_char_utilities=>charsize.
    155
            IF dum <= 13.
    156
              WRITE <field_loc> TO i_msgv1+pos_char.
    157
            ELSE.
    158
              dum = 13 - pos_char.
    159
              WRITE <field_loc>(dum) TO i_msgv1+pos_char.
    160
              EXIT.                               "HCG i_msgv1 filled
    161
            ENDIF.
    162
          ENDLOOP.
    163
          PERFORM vim_process_message
    164
                  USING 'SV' 'I' 'I'  '165'
    165
                        i_msgv1 space_msgv space_msgv space_msgv.
    166
          EXIT.
    167
        ELSEIF addr_comp_line-address_not_exist = 'X' AND
    168
               create_address = space.
    169
          <handle_x> = <f1_x>.
    170
    *      HANDLE = <F1>.
    171
          create_address = 'X'.
    172
          CLEAR: <address_number>, <vim_total_address_number>.
    173
          REFRESH addr_comp_tab. CLEAR addr_comp_line.
    174
          addr_comp_line = handle.
    175
    *      ADDR_COMP_LINE-ADDRHANDLE = <F1>.
    176
          addr_comp_line-remote_addrnumber = vim_upgr_address_number.
    177
          APPEND addr_comp_line TO addr_comp_tab.
    178
          CALL FUNCTION 'ADDR_COMPARE'
    179
               EXPORTING
    180
                    rfc_destination = vim_default_rfc_dest-rfcdest
    181
               TABLES
    182
                    compare_tab     = addr_comp_tab
    183
               EXCEPTIONS
    184
                    rfc_error       = 1
    185
                    OTHERS          = 2.
    186
          IF sy-subrc <> 0.
    187
            PERFORM vim_process_message
    188
                  USING sy-msgid 'E' 'E'  sy-msgno
    189
                        sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    190
            EXIT.
    191
          ENDIF.
    192
          READ TABLE addr_comp_tab INDEX 1 INTO addr_comp_line.
    193
          IF addr_comp_line-parameter_error = 'X' OR
    194
             addr_comp_line-internal_error = 'X'.
    195
            einfo = addr_comp_line-error_table.
    196
            PERFORM vim_process_message
    197
              USING einfo-msg_id 'E' 'E'  einfo-msg_number
    198
                einfo-msg_var1 einfo-msg_var2 einfo-msg_var3 einfo-msg_var4.
    199
    *       Adresse kann nicht abgeglichen werden -> Eintrag verwerfen
    200
            EXIT.
    201
          ENDIF.
    202
    *     Überprüfung von REM_ADDRESS_NOT_EXIST, .. hier nicht nötig
    203
    204
        ELSEIF addr_comp_line-address_is_equal = 'X'.
    205
          EXIT.
    206
        ELSEIF create_address = space.
    207
          READ TABLE vim_locked_addresses FROM <address_number>
    208
                                            TRANSPORTING NO FIELDS.
    209
          IF sy-subrc <> 0.                "not yet locked
    210
            CALL FUNCTION 'ADDR_ENQUEUE'
    211
                 EXPORTING
    212
                      address_number    = <address_number>
    213
    *               MODE_ADRC         = 'E'
    214
                 EXCEPTIONS
    215
                      address_not_exist = 1
    216
                      foreign_lock      = 2
    217
                      system_failure    = 3
    218
                      internal_error    = 4.
    219
            CASE sy-subrc.
    220
              WHEN 0.
    221
                INSERT <address_number> INTO TABLE vim_locked_addresses.
    222
              WHEN 1.  " würde schon in ADDR_COMPARE auftreten
    223
                PERFORM vim_process_message    "eigentlich überflüssig
    224
                    USING 'SV' 'E' 'E' '049'
    225
                          sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    226
              WHEN 2.
    227
                PERFORM vim_process_message
    228
                    USING 'SV' 'E' 'E' '049'
    229
                          sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    230
              WHEN OTHERS.
    231
    *            i_msgv1 = <table1>.   "HCG Dump when nonchar field in view
    232
                LOOP AT x_namtab.      "HCG write field by field instead
    233
                  ASSIGN COMPONENT x_namtab-viewfield OF STRUCTURE <table1>
    234
                                                  TO <field_loc>.
    235
                  dum = ( x_namtab-position + x_namtab-flength ) /
    236
                                cl_abap_char_utilities=>charsize.
    237
                  pos_char = x_namtab-position /
    238
                                          cl_abap_char_utilities=>charsize.
    239
                  IF dum <= 13.
    240
                    WRITE <field_loc> TO i_msgv1+pos_char.
    241
                  ELSE.
    242
                    dum = 13 - pos_char.
    243
                    WRITE <field_loc>(dum) TO i_msgv1+pos_char.
    244
                    EXIT.                               "HCG i_msgv1 filled
    245
                  ENDIF.
    246
                ENDLOOP.
    247
                PERFORM vim_process_message
    248
                  USING 'SV' 'E' 'E' '050'
    249
                      i_msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    250
            ENDCASE.
    251
          ENDIF.   "SY-SUBRC
    252
        ENDIF.
    253
      ENDIF.     " vim_import_mode_active
    254
    255
      CALL FUNCTION 'ADDR_ADJUST'
    256
           EXPORTING
    257
                addrnumber           = <address_number>
    258
                addrhandle           = handle
    259
                address_group        = 'CA01'
    260
           IMPORTING
    261
                returncode           = retcode
    262
           TABLES
    263
                error_table          = error_info
    264
           EXCEPTIONS
    265
                parameter_error      = 1
    266
                address_not_exist    = 2
    267
                handle_exist         = 3
    268
                internal_error       = 4
    269
                address_not_compared = 5
    270
                OTHERS               = 6.
    271
      IF sy-subrc <> 0.
    272
        PERFORM vim_process_message
    273
               USING sy-msgid 'E' 'E' sy-msgno
    274
                     sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    275
      ELSE.
    276
        IF retcode = 'E'.
    277
          READ TABLE error_info INDEX 1.
    278
          PERFORM vim_process_message
    279
                 USING error_info-msg_id 'E' 'E' error_info-msg_number
    280
                       error_info-msg_var1 error_info-msg_var2
    281
                       error_info-msg_var3 error_info-msg_var4.
    282
        ELSE.    "ok
    283
          IF create_address = 'X'.
    284
            <address_number> = '@NEW'.
    285
            <address_number>+4(6) = <status>-newadrcnt.
    286
            ADD 1 TO <status>-newadrcnt.
    287
            <status>-upd_flag = 'X'.
    288
          ENDIF.
    289
          <vim_total_address_number> = <address_number>.
    290
          READ TABLE vim_addresses_to_save
    291
                                  WITH KEY viewname = x_header-viewname
    292
                                           addrnumber = <address_number>
    293
                                  BINARY SEARCH TRANSPORTING NO FIELDS.
    294
          IF sy-subrc NE 0.
    295
            vim_addresses_to_save-viewname = x_header-viewname.
    296
            vim_addresses_to_save-addrnumber = <address_number>.
    297
            <vim_addr_handle_x> = <f1_x>.
    298
    *        VIM_ADDRESSES_TO_SAVE-HANDLE = <F1>.
    299
            INSERT vim_addresses_to_save INDEX sy-tabix.
    300
          ENDIF.
    301
          IF vim_client_state EQ vim_log AND
    302
            x_header-flag NE vim_transport_denied.
    303
            <status>-upd_flag = 'X'. "nec. for transport of master entry
    304
          ENDIF.
    305
        ENDIF.                                                  "RETCODE
    306
      ENDIF.            "SY-SUBRC
    307
    ENDFORM.                    "vim_address_adjust