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 _ _ _