***************************
** 输出屏幕上的线和空行
****************************************
uline at /60(15).
write at /60(15) sy-uline.
write at /75 sy-vline.
write at /80 '|'.
***************************************
** 输出复选框
****************************************
data:flag1 value '',
flag2 value 'x',
flag3(5) value 'xenon'.
WRITE: /'flag1',FLAG1 AS CHECKBOX,
/'flag2', FLAG2 AS CHECKBOX,
/'flag3', FLAG3 AS CHECKBOX.
***************************************
** 输出颜色
****************************************
data col type i value 0 .
do 8 times .
col = sy-index - 1.
format color = col.
write: / col color off,
'intensified on ' intensified on ,
'intensified off' intensified off,
'inverse on' inverse on .
enddo.
****
** 处理字符串 截断字符串
****
** 按给定位置数移动字符串
** shift '12yycc' by 10 places left . （left right circluar)
data: T(10) value 'abcdefghij',
string like t ,
str(2) value 'ef'.
string = t .
write string .
shift string up to str .
write / string .
shift string up to str left .
write / string .
string = t .
shift string up to str right.
write / string .
string = t.
shift string up to str circular.
write / string .
*&
*&---------------------------------------------------------------------*
*& 内表创建的练习 funciton 练习
*&
*&---------------------------------------------------------------------*
REPORT ZLQ002_INNERTABLE.
data: begin of man,
name(20) type c ,
high type p decimals 2 ,
weight type p decimals 2 ,
end of man.
data: man1 like hashed table of man with unique key name .
man-name = '中华'. man-high = '1.68'.man-weight = 130.
insert man into table man1.
man-name = '存在'. man-high = '1.71'. man-weight = 145.
insert man into table man1.
man-name = 'mark'. man-high = '1.86'. man-weight = 160.
insert man into table man1.
loop at man1 into man .
write: / man-name, man-high, man-weight.
endloop.
sort man1 descending by weight ascending .
skip. uline.
loop at man1 into man .
write: / man-name, man-high, man-weight.
endloop.
**调用
data: wa like spfli.
write : /.
write : 10'航班承运人',40'航班连接',60'国家代码',80'起飞城市',100 '起飞机场'.
select * into wa from spfli .
write : / wa-carrid under '航班承运人',
wa-connid under '航班连接',
wa-countryfr under '国家代码',
wa-cityfrom under '起飞城市',
wa-airpfrom under '起飞机场'.
endselect.