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