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 CHECK_AND_MODIFY_MAINKEY_TAB                             *
    3
    *---------------------------------------------------------------------*
    4
    * ...............                                                     *
    5
    *---------------------------------------------------------------------*
    6
    FORM check_and_modify_mainkey_tab USING cammt_rec.
    7
      CHECK vim_ignore_collapsed_mainkeys EQ space.
    8
      IF vim_no_mainkey_exists EQ vim_no_mkey_not_procsd OR
    9
         <vim_tot_mkey_beforex> NE <vim_mkey_beforex> OR
    10
         ( vim_mkey_after_exists NE space AND
    11
           <vim_tot_mkey_afterx> NE <vim_mkey_afterx> ).
    12
    *     <vim_tot_mkey_before> NE <vim_mkey_before> OR
    13
    *     ( vim_mkey_after_exists NE space AND
    14
    *       <vim_tot_mkey_after> NE <vim_mkey_after> ).
    15
        IF cammt_rec NE 9 AND cammt_rec NE 0.
    16
          PERFORM mod_extract_and_mainkey_tab USING 'A' 0.
    17
          CLEAR cammt_rec.
    18
        ENDIF.
    19
        <vim_h_mkey>(x_header-keylen) = <vim_xtotal_key>.
    20
    *    vim_mainkey = <vim_total_key>.
    21
        extract = total. "this statement is necessary, do not delete it !!
    22
        TRANSLATE vim_no_mainkey_exists USING vim_no_mkey_procsd_patt.
    23
      ELSE.
    24
        CHECK cammt_rec NE 9 AND cammt_rec NE 0.
    25
      ENDIF.
    26
      PERFORM check_if_entry_is_to_display USING space <vim_xtotal_key>
    27
                                                 'X' <vim_begdate>.
    28
      cammt_rec = sy-subrc.
    29
    ENDFORM.                               "modify_mainkey_tab