Eigenschaften | Quelltext
Titel | SET_NUMBERED_TEXTS |
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 SET_NUMBERED_TEXTS                                       *
    3
    *---------------------------------------------------------------------*
    4
    * numerierte Texte aus Textpool übernehmen                            *
    5
    *---------------------------------------------------------------------*
    6
    FORM SET_NUMBERED_TEXTS.
    7
      DATA: NAME(20) TYPE C.
    8
      FIELD-SYMBOLS: <M1>.
    9
      READ TEXTPOOL MASTER_FPOOL INTO TEXTPOOL_TAB LANGUAGE SY-LANGU.
    10
      SORT TEXTPOOL_TAB BY ID KEY.
    11
      MOVE NBRD_TEXTS_PREFIX TO NAME.
    12
      LOOP AT TEXTPOOL_TAB WHERE ID EQ 'I'.
    13
        WRITE TEXTPOOL_TAB-KEY TO NAME+NBRD_TEXTS_PREFIX_LENGTH.
    14
        ASSIGN (NAME) TO <M1>.
    15
        IF SY-SUBRC = 0.
    16
          " not all text elements are needed ???
    17
          MOVE TEXTPOOL_TAB-ENTRY TO <M1>.
    18
        ENDIF.
    19
      ENDLOOP.
    20
    ENDFORM.