cobol中常用的数据类型

COBOL上的基本类型大致分为：常量、变量、直接数和结构体。下面只是简单介绍下COBOL中的常量。

常量包括普通常量和象征常量两种，普通常量的内容在定义的同时通过VALUE语句给出，如："01 NAME PIC 9 VALUE 3."，象征常量通过COBOL中的关键字表示，两种常量的使用方式一样，只是象征常量不用定义，可以直接使用，SPACE(SPACES)代表空格，ZERO代表0，例如：变量NAME的长度为10个字符，则通过语句：MOVE SPACES TO NAME后，NAME的值为10个空格。

接下来看看COBOL中数据的定义方式：

1.字符型 通过PIC X语句定义，定义方式有以下三种：

A. 01 NAME PIC X NAME为长度为1的字符

B. 01 NAME PIC XXX NAME为长度为3的字符

C. 01 NAME PIC X(10) NAME为长度为10的字符

以上的定义中，X的个数与字符的长度一致，长度过长时，可以通过括号来说明字符的长度。

2.整型 通过PIC 9语句定义，这里“9”的含义、用法与上面的"X"相似。

A. 01 NAME PIC 9 NAME为长度为1的整型

B. 01 NAME PIC 999 NAME为长度为3的整型

C. 01 NAME PIC 9(10) NAME为长度为10的整型

定义整型的“9”和定义字符型的“X”是可以同时出现的，表示字符型的数据，如语句：“01 MIX PIC XXX9(3)XXX”,其中“9”出现的位置只能存放数字。

需要说明的是通过这种方式定义的整型是无符号的，代码：

MOVE -10 TO NUM

ADD 10 TO NUM

DISPLAY 'NUM：' , NUM

的输出为：NUM：20

3.浮点数 通过定义符号V表示小数点的位置。如：“01 NAME PIC 99V99”，表示小数点前有两位，小数点后有两位，不过需要注意的是：符号“V”并不占用实际存储空间，也就是说程序只是记录了小数点的位置，但并不开辟一个字节空间来存放小数点，所以对浮点数直接输出时，是看不到小数点的。例如语句：

MOVE 10.09 TO AGE.

DISPLAY AGE.

的输出为1009，而不是期望的10.09，浮点数的输出要通过“Numeric Edited Fields”格式来输出。

4.Signed Numbers符号类型 通过在“9”前面加S来定义，如：“01 AGE PIC S99”，其中“S”和浮点数中的“V”一样，不占存储空间，所以也不能直接输出（+10和-10输出后都是“10”），要通过“Numeric Edited Fields”来输出。