RPGLE数据类型 01 之 Zoned Decimal

RPGLE里的变量要两个重要属性,一个是Declaration Type,这个是描述变量类别的,如定义Data Structure, Standalone Field, Array, Table等; 一个是Internal Type,这个是定义变量的数据类型的,如character, Packed Decimal, Zoned Decimal, Binary, Date, Time, Timestamp, Pointer等等.

这里先讨论下Zoned Decimal

1. Zoned Deciaml数据溢出(数据超过定义的最大值)时程序是会异常中断的

2. Zoned Decimal定义的小数在显示时是没有小数点的

这个例子的source

0001.00 D WAIT            S              1A                           

0002.00 D NUM1            S              5S 0                         

0003.00 D NUM2            S             10S 2                         

0004.00 C*                                                            

0005.00 C                   EVAL      NUM1=88888                      

0006.00 C     NUM1          DSPLY                   WAIT              

0007.00 C*                                                            

0008.00 C                   EVAL      NUM1=88888+11111                

0009.00 C     NUM1          DSPLY                   WAIT              

0010.00 C*                                                            

0011.00 C                   EVAL      NUM2=3333                       

0012.00 C     NUM2          DSPLY                   WAIT              

0013.00 C*                                                            

0014.00 C     NUM2          DIV       2             NUM2              

0015.00 C     NUM2          DSPLY                   WAIT              

0016.00 C*                                                            

0017.00 C                   EVAL      *INLR=*ON             

0018.00 C                   RETURN