COBOL......1

数值型数据 - “P” 描述符
为了节省内存,对低位上有若干个零的数和小数点后若干位后才有非零数字的数,可以用P 描述符。如:表示10000000 和0.000023
1.  01  A  PIC 9PPPPPPPPPP.
     用9999999999来描述,占10个字节。为了节省内存,低位上有若干个0的数,可以用“P”来描述。A在内存中只占1个字节,表示1x109,也可以写成:01 A PIC 9P(9).
2.  01  A  PIC PPPP99.               表示0.000099
3. 描述              内存中数字    等价的算术量
   03  AMOUNT  PIC  9(4)PPPP     1802      18020000
   03  WAT     PIC  9(3)P(3)      015       15000
   03  WAT     PIC  P(3)9(2)       11       0.00011
    03  WAN     PIC  VPP99         87       0.0087 
4. P 描述符在COBOL中不常用  


数值型数据 - “S” 描述符
在数据项中放入一个带符号的数,可以用S 描述符。
    02  D  PIC S99. (S不计数据项长度,表示负号,只能在99最前面)
  
          描述              数值         内存中的表示
       02  B  PIC  S9(4)V9(2)   126.89         012689
    02  C  PIC  S9(4)V9(2)   -1112.34        111234
    02  D  PIC  S9(4)V99    -0.25          000025
    02  E  PIC  S9(4)V99    -727.18         072718

字符型数据 - “A” 描述符
字母型数据用A 描述符,只能存放字母和空格。
02    A2    PIC   AAAA.
02    A2    PIC   A(4).
 
MOVE “ABCD” TO T
T内存中的表示 ABCD
不只能存放字母和空格以外的字符,也可以用X描述

字符型数据 - “X” 描述符
由任意的COBOL 字符组成的数据称字符型数据,字符型数据用X 描述符
01   A  PIC X(2).
      描述                送入的数据              内存中的情况
02  R1  PIC  X(4)         BOOK                     BOOK
02  R2  PIC  X(8)         SIN(X)          SIN(X)_ _
02  R3  PIC  X(7)         COBOL-74         COBOL-7
02  R4  PIC  X(12)       DATA-NAME           DATA-NAME _ _ _


你可能感兴趣的:(cobol)