Можно для создания записи воспользоваться свойством полем записи RECORD в подпрограмме завершения:
Code:
lt_res_pkg[] = RESULT_PACKAGE[].
CLEAR RESULT_PACKAGE[].
*...
recno = 1.
LOOP AT lt_res_pkg ASSIGNING <lt_res_field>.
DO 9999 TIMES.
* сформируем запись
<lt_res_field>-ПОЛЕ_ДЛЯ_ПРИСВОЕНИЯ = ЧТО_ТО_ПРИСВОИТЬ.
<lt_res_field>-RECORD = recno.
MOVE-CORRESPONDING <lt_res_field> TO ls_res_pkg.
* добавляем к пакету новую запись
APPEND ls_res_pkg TO RESULT_PACKAGE.
* формируем новый № записи
recno = recno + 1.
ENDDO.
ENDLOOP.