REPORT Y0825_SCREEN_OUPUT
.
DATA : NUMBER TYPE I VALUE '1234567890' ,
TEXT TYPE C LENGTH 10 VALUE 'ABCDEFGHIJ' .
WRITE : ( 5 ) NUMBER ,/ ( 6 ) TEXT . " 数字显示后面几位,字符串显示前面几位。
*指定显示格式
DATA : X TYPE I VALUE '103045' ,
DATA TYPE C LENGTH 14 VALUE '20140902' ,
A TYPE C LENGTH 5 VALUE 'ABCDE' .
SKIP 1 .
WRITE X USING EDIT MASK '__:__:__' .
WRITE / DATA USING EDIT MASK '____年__月__日' .
*skip to line 5.
WRITE / X USING EDIT MASK '$___,___' .
*显示图片
INCLUDE <SYMBOL> .
INCLUDE <ICON> .
SKIP 1 .
WRITE : 'Phone Symbol:' ,SYM_PHONE AS SYMBOL .
WRITE : / 'Alarm Icon:' ,ICON_ALARM AS ICON .
*显示CHECK BOX 资料
DATA : FLAG1 VALUE ' ' ,
FLAG2 VALUE 'X' .
SKIP 1 .
WRITE : 'CHECK FLAG1 :' ,FLAG1 AS CHECKBOX .
WRITE : / 'CHECK FLAG2 :' ,FLAG2 AS CHECKBOX .
*输出横线
DATA : INT1 TYPE I VALUE '20' ,
INT2 TYPE I VALUE '60' .
SKIP 1 .
ULINE AT INT1 (INT2 ).
SKIP 1 .
ULINE AT 15 ( 50 ).
DATA : NUMBER TYPE I VALUE '1234567890' ,
TEXT TYPE C LENGTH 10 VALUE 'ABCDEFGHIJ' .
WRITE : ( 5 ) NUMBER ,/ ( 6 ) TEXT . " 数字显示后面几位,字符串显示前面几位。
*指定显示格式
DATA : X TYPE I VALUE '103045' ,
DATA TYPE C LENGTH 14 VALUE '20140902' ,
A TYPE C LENGTH 5 VALUE 'ABCDE' .
SKIP 1 .
WRITE X USING EDIT MASK '__:__:__' .
WRITE / DATA USING EDIT MASK '____年__月__日' .
*skip to line 5.
WRITE / X USING EDIT MASK '$___,___' .
*显示图片
INCLUDE <SYMBOL> .
INCLUDE <ICON> .
SKIP 1 .
WRITE : 'Phone Symbol:' ,SYM_PHONE AS SYMBOL .
WRITE : / 'Alarm Icon:' ,ICON_ALARM AS ICON .
*显示CHECK BOX 资料
DATA : FLAG1 VALUE ' ' ,
FLAG2 VALUE 'X' .
SKIP 1 .
WRITE : 'CHECK FLAG1 :' ,FLAG1 AS CHECKBOX .
WRITE : / 'CHECK FLAG2 :' ,FLAG2 AS CHECKBOX .
*输出横线
DATA : INT1 TYPE I VALUE '20' ,
INT2 TYPE I VALUE '60' .
SKIP 1 .
ULINE AT INT1 (INT2 ).
SKIP 1 .
ULINE AT 15 ( 50 ).