COBOL - 数据类型

COBOL中有多种数据类型可供使用，每种类型均具有特定的数据范围和用途。

数值类型

COBOL中的数值类型可分为四类：二进制、小数、外部表示和计数器。

二进制类型

• PIC 9：一个数字，可取值为0-9。
• PIC 99：两个数字，可取值为0-99。
• PIC 9(4)：四个数字，可取值为0-9999。
• PIC S9：一个数字，可取值为-9到9。
• PIC S9(4)：四个数字，可取值为-999到9999。

小数类型

• PIC 9V9：一个数字，在第一位和第二位之间有一个小数点。
• PIC S9V9：一个数字，在第一位和第二位之间有一个小数点，并且具有符号位。

外部表示类型

• PIC X：一个字符，可包含字母、数字或特殊字符。
• PIC X(8)：八个字符。
• PIC A：与PIC X相同。
• PIC N：与PIC X相同，但通常用于数字。

计数器类型

• PIC 9(4) COMP：一个四位数，以二进制补码表示。
• PIC S9(4) COMP：一个四位带符号数，以二进制补码表示。

非数值类型

COBOL中的非数值类型可分为两类：布尔值和日期/时间。

布尔值

• PIC X(1)：一个字符，通常用于表示True/False。

日期/时间

• PIC 9(6)：一个六位数字，格式为YYMMDD。
• PIC 9(8)：一个八位数字，格式为YYYYMMDD。
• PIC 9(10)：一个十位数字，格式为YYYYMMDDHH。
• PIC 9(12)：一个十二位数字，格式为YYYYMMDDHHMM。
• PIC 9(14)：一个十四位数字，格式为YYYYMMDDHHMMSS。

示例

以下是一个使用COBOL数据类型的示例：

IDENTIFICATION DIVISION.
PROGRAM-ID. MYPROGRAM.

DATA DIVISION.
WORKING-STORAGE SECTION.
01 NUM1 PIC 9(2) VALUE 10.
01 NUM2 PIC S9(3) VALUE -100.

PROCEDURE DIVISION.
DISPLAY "NUM1 = " NUM1.
DISPLAY "NUM2 = " NUM2.
STOP RUN.

输出为：

NUM1 = 10
NUM2 = -100