| Покопайся в программе 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
 
 
 |