Properties | SourceCde
Title |  |
Original language | DE | Englisch
Created | 27.10.1998 |  | SAP |
Last changed by | 13.11.2001 |  | SAP |
Status | Active |
Attributes
Type | INCLUDE program |
Status | Test program |
Application | Basis |
Package | SVIM | Basis View Maintenance
| Editor lock
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.