基本數據類別
1.變量
COBOL中的變量是指可以在程序中被改變的數據。
常量包含變量名稱和變量長度。變量在數據部定義。
2.常量
普通常量和象征常量
普通常量在定義的同時,通過VALUE 語句賦值。
象征常量是COBOL中關鍵字表示的。
如:ZERO(ZEROS,ZEROES)/SPACE(SPACES)/HIGH-VALUE(HIGH-VALUES)
LOW-VALUE(LOW-VALUES)/QUOTE(QUOTES)/ALL
3.直接數
分為數字型直接數和字符型直接數兩類。
數字型直接數
非法直接數:89A 82. 123456789987654321000(不能超過18位) ‘123’
字符型直接數
‘ABC’
4.結構體
一組相關數據可以構成一個結構體。
單元結構體
組結構體
1.字符類型
使用PIC X進行定義。可包含任何字符組成的數據。
如果由多個字符組成時,可用兩種方式定義。PIC XXX 和 PIC X(3)。
2.整形數類型
使用PIC 9定義。
如果由多個字符組成時,可用兩種方式定義。PIC 999 和 PIC 9(3)。
3.浮點數類型
可用於算術運算。通過V表示小數點的位置。
注意:定義浮點數的小數點使用的符號V並不占用實際存儲空間。不單獨開辟空間存放小數點。
4.Signed Number符號類型
針對正負數而言。可包含正數和負數。
例: PIC S99V99 VALUE -12.74.
IDENTIFICATION DIVISION.
PROGRAM-ID I-SYSTEM.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 SUM1 PIC S99.
PROCEDURE DIVISION.
MOVE -10 TO SUM1.
ADD 10 TO SUM1.
DISPLAY "SUM1:",SUM1.
STOP RUN.
運行結果:+00
5.Numric Edited Field 格式輸出類型
用於特定的格式輸出。
a、貨幣格式
常用於生成報表,工資單,賬單等。需要在數字前加上貨幣符號‘$’。
(編譯時出現錯誤,暫停測試)
b、通過“+”、“-”定義算術符號格式
通過CR和DB定義算術符號格式
當原始數據為正數時,CR和DB會被空格代替
當原始數據為負數時,CR和DB會顯示出來。
c、算術數格式
包含 小數 和 多位數。
對於多位數,使用‘,’進行分隔,每三位為一個單位。
d、日期格式
用於對年月日表示的數據進行格式輸出。日期格式通常使用‘/’將年、月、日進行分隔。
例:01 DATE PIC 9(8)
01 EDITED-DATE PIC 9999/99/99.
PROCEDURE DIVISION.
MOVE 20080101 TO DATE.
MOVE DATE TO EDITED-DATE
e、其他格式
e1.通過‘*’和‘Z’定義的其他格式
‘*’的作用主要是抑制數據前面無效的0。並將其轉換為“*”。
‘Z’與‘*’類似,將無效的0用空格代替。
e2.通過‘0’和‘B’定義的其他格式
‘0’作為分隔符,將數據進行分隔。
‘B’與‘*’類似,用空格將數據進行分隔。
各種特殊類型綜合描述:

