Добрый день уважаемые абаперы.
Я только начала писать программы.
И у меня такой вопрос. Необходмио из заявки вытащить тексты по позициям.

Вызыаю ФМ 'READ_TEXT'. Код такой


DATA: BEGIN OF itablines2 OCCURS 10.
INCLUDE STRUCTURE tline.
DATA: END OF itablines2.

DATA: BEGIN OF i_EBAN occurs 0,
BANFN like EBAN-BANFN,
BNFPO like EBAN-BNFPO,
END OF i_EBAN.

select BANFN BNFPO from EBAN
into table i_EBAN
where BANFN = p_docnum.

DATA: MERGER LIKE THEAD-TDNAME.

CONCATENATE i_EBAN-BANFN i_EBAN-BNFPO INTO MERGER.


DATA: TEXT LIKE TLINE OCCURS 10 WITH HEADER LINE.

CALL FUNCTION 'READ_TEXT'
EXPORTING
CLIENT = SY-MANDT
ID = 'B01'
LANGUAGE = sy-langu
NAME = MERGER
OBJECT = 'EBAN'
* ARCHIVE_HANDLE = 0
* LOCAL_CAT = ' '
* IMPORTING
* HEADER =
TABLES
LINES = itablines2
* EXCEPTIONS
* ID = 1
* LANGUAGE = 2
* NAME = 3
* NOT_FOUND = 4
* OBJECT = 5
* REFERENCE_CHECK = 6
* WRONG_ACCESS_TO_ARCHIVE = 7
* OTHERS = 8
.
LOOP AT itablines2.
IF itablines2-tdline <> ' '.
loop at tb_1.
tb_1-stat = itablines2-tdline.
modify tb_1.
endloop.

Проблема в строке DATA: MERGER LIKE THEAD-TDNAME.
MERGER сохраняет текст первой позиции, а остальные теряются. Как решить данный вопрос?

Пройтись циклом по таблице i_EBAN, в которую выгружены все позиции. Ну и, соответственно, вызывать ФМ внутри цикла.

как вы сказали вызывала ФМ внутри цикла. Все получилось. Отправляю код, может поможет новичкам как Я. спасибо большое.

DATA: BEGIN OF itablines2 OCCURS 10.
INCLUDE STRUCTURE tline.
DATA: END OF itablines2.

DATA: BEGIN OF i_EBAN occurs 0,
BANFN like EBAN-BANFN,
BNFPO like EBAN-BNFPO,
stat2(100) type c,
END OF i_EBAN.

select BANFN BNFPO from EBAN
into table i_EBAN
where BANFN = p_docnum.

DATA: MERGER LIKE THEAD-TDNAME.

loop at i_EBAN.
CONCATENATE i_EBAN-BANFN i_EBAN-BNFPO INTO MERGER.
DATA: TEXT LIKE TLINE OCCURS 10 WITH HEADER LINE.

CALL FUNCTION 'READ_TEXT'
EXPORTING
CLIENT = SY-MANDT
ID = 'B01'
LANGUAGE = sy-langu
NAME = MERGER
OBJECT = 'EBAN'
* ARCHIVE_HANDLE = 0
* LOCAL_CAT = ' '
* IMPORTING
* HEADER =
TABLES
LINES = itablines2
* EXCEPTIONS
* ID = 1
* LANGUAGE = 2
* NAME = 3
* NOT_FOUND = 4
* OBJECT = 5
* REFERENCE_CHECK = 6
* WRONG_ACCESS_TO_ARCHIVE = 7
* OTHERS = 8
.
LOOP AT itablines2.
IF itablines2-tdline <> ' '.
i_EBAN-stat2 = itablines2-tdline.
ENDIF.
ENDLOOP.
modify i_EBAN.
endloop.

Код лучше оформлять с тегом Code

Именно! А еще до вставки кода сюда неплохо бы нажать в ABAP-редакторе кнопочку "Структурная печать" или Shift+F1, чтобы единообразить регистры ключевых слов и переменных.