Eigenschaften | Quelltext
Titel | NICHT_VORHANDEN |
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 NICHT_VORHANDEN                                          *
    3
    *---------------------------------------------------------------------*
    4
    *       ........                                                      *
    5
    *---------------------------------------------------------------------*
    6
    FORM nicht_vorhanden USING rc tabind.
    7
      DATA: dum TYPE i VALUE 0.
    8
    9
    *  MOVE <table1> TO total.
    10
      move <table1> to <vim_total_struc>.
    11
      IF x_header-bastab NE space AND x_header-texttbexst NE space.
    12
        MOVE <table1_xtext> TO <vim_xtotal_text>.
    13
    * nec. if special types in texttab
    14
    *    MOVE <table1_text> TO <total_text>.
    15
        IF <status>-upd_flag EQ 'X' OR <status>-upd_flag EQ 'T'.
    16
          <action_text> = neuer_eintrag.
    17
        ENDIF.
    18
      ENDIF.
    19
      <action>          = neuer_eintrag.
    20
      CASE rc.                                                  "aro
    21
        WHEN 0.                                                 "aro
    22
          MODIFY total INDEX tabind.                            "aro
    23
        WHEN 4.
    24
          INSERT total INDEX tabind.
    25
        WHEN 8.                                                 "aro
    26
          APPEND total.
    27
      ENDCASE.                                                  "aro
    28
      IF vim_special_mode NE vim_upgrade AND                    "aro
    29
         status-action NE kopieren.                             "aro
    30
        IF status-mode EQ list_bild.
    31
          IF vim_single_entry_function EQ space.
    32
            CLEAR <xmark>.
    33
            APPEND extract.
    34
          ELSE.
    35
            nbr_of_added_dummy_entries = 0.
    36
          ENDIF.
    37
          extract = total.
    38
          MODIFY extract INDEX nextline.
    39
        ELSE.
    40
          IF x_header-delmdtflag NE space.
    41
            PERFORM check_if_entry_is_to_display USING 'L' <vim_xtotal_key>
    42
                                                       'D' <vim_begdate>.
    43
            IF sy-subrc EQ 0.
    44
              PERFORM check_new_mainkey.
    45
              IF sy-subrc EQ 0.
    46
                READ TABLE vim_collapsed_mainkeys WITH KEY <vim_xtotal_key>
    47
                                                 BINARY SEARCH
    48
                                                 TRANSPORTING NO FIELDS.
    49
                <vim_collapsed_keyx> = <vim_xtotal_key>.
    50
    *            vim_collapsed_mainkeys-mainkey = <vim_total_key>.
    51
                <vim_collapsed_mkey_bfx> = <vim_tot_mkey_before>.
    52
    *            vim_collapsed_mainkeys-mkey_bf = <vim_tot_mkey_before>.
    53
                INSERT vim_collapsed_mainkeys INDEX sy-tabix.
    54
              ENDIF.
    55
              CLEAR sy-subrc.
    56
            ENDIF.
    57
          ENDIF.
    58
          IF x_header-delmdtflag EQ space OR sy-subrc LT 8.
    59
            extract = total.
    60
            APPEND extract.
    61
            exind = sy-tabix.
    62
          ENDIF.
    63
        ENDIF.
    64
      ENDIF.                                                    "aro
    65
      neuer = 'N'.
    66
      DESCRIBE TABLE extract LINES maxlines.
    67
      IF status-mode EQ list_bild.                              "aro
    68
        SUBTRACT nbr_of_added_dummy_entries FROM maxlines.
    69
        dum = maxlines - firstline - sy-loopc + 1.              "aro
    70
        IF dum EQ 0.                                            "aro
    71
          destpage = maxlines.
    72
        ENDIF.                                                  "aro
    73
      ENDIF.                                                    "aro
    74
    ENDFORM.