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.