*&---------------------------------------------------------------------*
*& Report ZLQ001
*&
*&---------------------------------------------------------------------*
*&
*author LQ
* 交互式报表实例
*
*&
*&---------------------------------------------------------------------*
REPORT ZLQ001.
DATA number TYPE p VALUE '-12234567.9' DECIMALS 2 .
WRITE:'Number ',number , 'is packed '.
write: 'First Line ' .
write: /10(2)'First Line',24 'Test Line '.
write: /(5) 'First Line' , 24 'Test Line '.
***************************
** 添加引用 在屏幕上输出符号 图标
****************************************
include <symbol>.
include <icon>.
write:/'Phone Symbol:', SYM_PHONE AS SYMBOL.
SKIP.
write:/'Alarm ICon:', icon_alarm as icon.