SY-LSIND надо зафиксировать. Пример программы с выводом на одном текущем листе:
Новый Sokoban и далее к исходнику кода, подпрограмма REDRAW_LEVEL.
Добавил: А вот совсем простой пример:
Code:
* Before start need create PF-STATUS 'MAIN'
* Buttons: LH & AA. Functional command EXIT.
DATA: itab TYPE TABLE OF sflight,
wa TYPE sflight,
carrid TYPE s_carr_id.
START-OF-SELECTION.
SELECT * FROM sflight INTO TABLE itab
WHERE carrid IN ('AA','LH').
END-OF-SELECTION.
SET PF-STATUS 'MAIN'.
carrid = 'LH'.
PERFORM write.
AT USER-COMMAND.
IF sy-ucomm EQ 'EXIT'.
LEAVE PROGRAM.
ENDIF.
carrid = sy-ucomm.
PERFORM write.
FORM write .
sy-lsind = 1.
LOOP AT itab INTO wa
WHERE carrid = carrid.
WRITE: / wa-carrid, wa-connid, wa-fldate.
ENDLOOP.
ENDFORM. " WRITE
Или, как вариант, воспользоваться оператором HIDE.
Вход
Регистрация
FAQ пользователя
Поиск
