Покопайся в программе RMIAPL30, там как раз происходит то что тебе нужно.
Вот часть куска :
DATA: BEGIN OF DIPLPO_TEXT,
MANDT LIKE DIPLPO-MANDT,
PLNTY LIKE DIPLPO-PLNTY,
PLNNR LIKE DIPLPO-PLNNR,
PLNKN LIKE DIPLPO-PLNKN,
ZAEHL LIKE DIPLPO-ZAEHL,
END OF DIPLPO_TEXT.
CLEAR NAME.
MOVE: SY-MANDT TO DIPLPO_TEXT-MANDT,
PLNTY TO DIPLPO_TEXT-PLNTY,
PLNNR TO DIPLPO_TEXT-PLNNR,
PLNKN TO DIPLPO_TEXT-PLNKN,
ZAEHL TO DIPLPO_TEXT-ZAEHL.
NAME = DIPLPO_TEXT.
А потом :
CALL FUNCTION 'READ_TEXT'
EXPORTING
ID = 'PLPO'
LANGUAGE = sy-langu
NAME = NAME
OBJECT = 'ROUTING'
IMPORTING
HEADER = HEADER
TABLES
LINES = LINES
|