分类:
2009-12-07 15:47:49
TYPE-POOLS
利用 TYPE-POOLS 语句声明类 型组>.
定义多个同类型变量要用逗号”,”隔开.
数据类型有哪些:text,I,P(小数)
data: c value 'chenwei' type text.
定义文本类型变量c,并赋值'chenwei'.
F8执行
data: F1(8) value 'ABCDEF'.
定义变量F1为8个字符,赋值为'ABCDEF'.
F2+6(5) = F1+0(5).
表示F2的从第7个字符开始数5个,其值为F1从第1个字符开始数5个.
把A的值赋给B, MOVE A TO B. WRITE B.
clear F2.清除变量F2.
判断语句DATA: SUM1 value 50 TYPE I, SUM2 value 50 TYPE I, SUM3 value 30
IF SUM1 = SUM2.
WRITE 'Case 1'.
ELSEIF SUM1 = SUM3.
WRITE 'Case 2'.
endif.
带冒号,同类型输出.
write: 'SPFLI-CITYFROM', /'SPFLI-CITYTO', /'PFLI-AIRPT'.
赋值(注意空格一个都不能少)
SUM = SUM + 1.
SUM = SUM + 2.
SUM = SUM + 3.
SUM = SUM + 4.
CASE f.
WHEN 'w1'.
write f.
WHEN 'w2'.
......
WHEN OTHERS.
......
ENDCASE.
定 位 WRITE 输出
Write at pos(len) text.(其中text为变量名).
也可以write 20 pos.
write (20) POS.与write 20 pos的区别在于前者是取字符的多少,后者是定位显示.
data cd value 30000 type i. 与data cc type i value 30000. 的含义是一样的.
data shijian type t value '091201'.
write: /(8) shijian using edit mask '__:__:__'.
定义一个时间变量,并用这种格式显示.
或data shijian type t value '091201'.
write: /(20) shijian using edit mask '__年__月__日'.
UNDER表示直接在下面输出, NO-GAP去掉空格
DATA: G(5) VALUE 'Hello',
F(5) VALUE 'Dolly'.
WRITE: G, F.
WRITE: /10 G,
/ F UNDER G.
WRITE: / G NO-GAP, F.
NO-ZERO前面无零, EXPONENT 次幂
WRITE: / PACK ROUND -2.按小数位取整.写成10的-2次幂形式.
显示时间, write: /(20) SY-DATUM using edit mask '____年__月__日'.