Properties SourceCde
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.