Chinaunix首页 | 论坛 | 博客
  • 博客访问: 70719
  • 博文数量: 42
  • 博客积分: 2025
  • 博客等级: 大尉
  • 技术积分: 437
  • 用 户 组: 普通用户
  • 注册时间: 2009-05-03 12:17
文章分类

全部博文(42)

文章存档

2010年(12)

2009年(30)

我的朋友

分类:

2009-12-07 15:47:49

TYPE-POOLS

利用 TYPE-POOLS 语句声明类 型组>.

FORM表示

REPORT ZSAPTEST.
DATA: a VALUE 890 type i.定义一整形变量a,并赋值890
WRITE a.

定义多个同类型变量要用逗号”,”隔开.

数据类型有哪些:text,I,P(小数)

datac value 'chenwei' type text.

定义文本类型变量c,并赋值'chenwei'.

F8执行

data: F1(8value 'ABCDEF'.

定义变量F18个字符,赋值为'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 TYPE I.
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(5VALUE 'Hello',
      F(
5VALUE '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 '________'.

 

 

 

阅读(446) | 评论(0) | 转发(0) |
0

上一篇:树TreeView

下一篇:CSS模板代码

给主人留下些什么吧!~~