Eigenschaften | Quelltext
Titel | VIM_CK_APPEND_WHERETAB |
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 VIM_CK_APPEND_WHERETAB                                   *
    3
    *---------------------------------------------------------------------*
    4
    *       ........                                                      *
    5
    *---------------------------------------------------------------------*
    6
    FORM VIM_CK_APPEND_WHERETAB TABLES VCAW_WHERETAB STRUCTURE VIMWHERETB
    7
                                USING VALUE(LINE) TYPE VIM_CK_SELCOND.
    8
    DATA: BEGIN OF HF, F1(1) TYPE C, F2 LIKE VIMSELLIST-VALUE, F3(1) TYPE C,
    9
                      END OF HF.
    10
    DATA: len TYPE i,l_line(134) TYPE c.
    11
    CONSTANTS: wheretab_length TYPE i VALUE 72.
    12
      CHECK NOT LINE IS INITIAL.
    13
      IF LINE-VALUE EQ SPACE.
    14
        HF = ''' '''.
    15
      ELSE.
    16
        CONCATENATE: LINE-HK1
    17
                     LINE-VALUE
    18
                     LINE-HK2
    19
          INTO HF.
    20
      ENDIF.
    21
      CONCATENATE: LINE-FIELD
    22
                   LINE-OPERATOR
    23
                   HF
    24
                   LINE-AND
    25
        INTO VCAW_WHERETAB SEPARATED BY SPACE.
    26
      IF SY-SUBRC EQ 0.
    27
        APPEND VCAW_WHERETAB.
    28
      ELSE.
    29
        CONCATENATE: LINE-FIELD
    30
                     LINE-OPERATOR
    31
          INTO VCAW_WHERETAB SEPARATED BY SPACE.
    32
        APPEND VCAW_WHERETAB.
    33
        CONCATENATE: HF
    34
                     LINE-AND
    35
          INTO l_line SEPARATED BY SPACE.
    36
        vcaw_wheretab = l_line.
    37
        APPEND vcaw_wheretab.
    38
        len = strlen( l_line ).
    39
        IF len > wheretab_length.
    40
          CLEAR vcaw_wheretab.
    41
          vcaw_wheretab = l_line+wheretab_length.
    42
          APPEND vcaw_wheretab.
    43
        ENDIF.
    44
        IF line-and <> space.
    45
          vcaw_wheretab = line-and.
    46
            APPEND VCAW_WHERETAB.
    47
        ENDIF.
    48
      ENDIF.
    49
    ENDFORM.                               "vim_ck_append_wheretab