Chinaunix首页 | 论坛 | 博客
  • 博客访问: 7184727
  • 博文数量: 655
  • 博客积分: 10264
  • 博客等级: 上将
  • 技术积分: 8278
  • 用 户 组: 普通用户
  • 注册时间: 2007-06-04 17:47
个人简介

ABAP顾问

文章分类

全部博文(655)

文章存档

2017年(2)

2014年(8)

2013年(3)

2012年(2)

2011年(18)

2010年(102)

2009年(137)

2008年(274)

2007年(134)

分类:

2008-05-22 13:50:59

REPORT  z_barry_test.

DATA: i TYPE i ,
      f TYPE f ,
      p(16) TYPE p DECIMALS 2 .

START-OF-SELECTION.

  i = '-2147483648'.
  i = '2147483647'.
  p = '-99999999999999999999999999999.99' .
  p = '99999999999999999999999999999.99' .
  f = '-1.7976931348623157E+308'.
  f = '1.7976931348623157E+308'.

  WRITE / :i,p,f.

 

REPORT  Z_BARRY_TEST.

DATA: BEGIN OF wa ,
        pack     TYPE netwr,
        float    TYPE f,
        integer4 TYPE i ,
        integer2 TYPE int2 ,
        integer1 TYPE int1 ,
      END OF wa.
DATA: result     TYPE REF TO data.
FIELD-SYMBOLS: TYPE ANY ,
                  TYPE ANY.
 
DO .
  ASSIGN COMPONENT sy-index OF STRUCTURE wa TO .
  IF sy-subrc <> 0. EXIT. ENDIF.
  result = cl_abap_exceptional_values=>get_min_value( ).
  IF result IS NOT INITIAL.
    ASSIGN result->* TO .
    WRITE /(25) .
  ENDIF.
  result = cl_abap_exceptional_values=>get_max_value( ).
  IF result IS NOT INITIAL.
    ASSIGN result->* TO .
    WRITE (25) .
  ENDIF.
ENDDO.
 
 
 
阅读(3497) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~