Chinaunix首页 | 论坛 | 博客
  • 博客访问: 3146838
  • 博文数量: 238
  • 博客积分: 864
  • 博客等级: 军士长
  • 技术积分: 2940
  • 用 户 组: 普通用户
  • 注册时间: 2012-10-08 23:01
个人简介

Mobile: 135 8576 5961 / WeChat: IM_WILLIAM_C / Mail: william.chen.cn@outlook.com /

文章分类

全部博文(238)

文章存档

2018年(2)

2016年(35)

2015年(47)

2014年(104)

2013年(38)

2012年(12)

分类: 其他平台

2014-07-09 15:23:42

在一些比如BDC中的程序我们经常会遇到金额类型和字符类型的转换,
那么我们一个给定的金额类型,对应定义多少位的char 呢,本文就是一个小测:
此处以下图这个字段为例:

下面是测试小程序:
*&---------------------------------------------------------------------*
*& Report  Z_TEST_CURR
*&
*&---------------------------------------------------------------------*
*&Test by William Chen 2014
*&
*&---------------------------------------------------------------------*

REPORT  Z_TEST_CURR.

dataV_WERT7 type WRBTR.    "Length 13  Decimal Places 2

DATAV_STR1(14type C.      "逐渐调大这个长度看现实是否是  *
DATAV_STR2(15type C.

DATAV_LENGTH type I.


V_WERT7 -12345678901.      "调换这个值达到此类型所允许的最大值,就是在加一位就Dump的情况

V_STR1   V_WERT7.
V_STR2   V_WERT7.

V_LENGTH strlenV_STR2 ).

WRITE:/'金额原值(已经调到最大For testing,不信你可以在加一位程序便会dump):'V_WERT7.
WRITE:'赋给14位的Char类型的输出结果(含*):',V_STR1.
WRITE:'赋给15的Char类型结果正确:',V_STR2.
WRITE:'故定义Char长度为 Length 13 + 2 = ',V_LENGTH.
WRITE:'对Length + 2中 ‘2’ 的解释是 符号位1位,标点','.1位'.

小测试加以记录,以备后忘!
阅读(4413) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~