COBOL數據類型

數據分區是用來定義在該程序中使用的變量。爲了描述COBOL數據，必須瞭解下列術語：

數據名稱
等級數
圖片子句
值子句

01 TOTAL-STUDENTS PIC9(5) VALUE '125'.
| | | |
| | | |
| | | |
Level Number Data Name Picture Clause Value Clause

數據名稱

數據名稱必須在數據部使用它們過程分區之前定義。他們必須是一個用戶定義的名稱，保留字不能用。數據名賦予參照其中實際數據被存儲在存儲器中的位置。它們可以是基本或分組類型。

例子

下面的例子展示了有效和無效數據名稱：

Valid:
WS-NAME
TOTAL-STUDENTS
A100
100B

Invalid:
MOVE (Reserved Words)
COMPUTE (Reserved Words)
100 (No Alphabet)
100+B (+ is not allowed)

等級數

級別數是用來指定數據的記錄中的級別。它們被用於基本事項和基件之間進行區分。基本項目可以分組以創建組的項目。

級別數

描述

記錄描述項

02 to 49

分組初級項目

重命名子句項目

項目不能被細分

條件名稱項

基本項目不能再分。級別數，數據名稱，圖片子句和值子句(可選)用於描述基本項目。
分組項目由一個或多個基本項目。級別數，數據名稱和值子句(可選)用於描述組項目。分組級別數總是01。

例子

下面的例子展示了分組的基本事項：

DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-NAME PIC X(25). ---> ELEMENTARY ITEM
01 WS-CLASS PIC 9(2) VALUE '10'. ---> ELEMENTARY ITEM

01 WS-ADDRESS. ---> GROUP ITEM
05 WS-HOUSE-NUMBER PIC 9(3). ---> ELEMENTARY ITEM
05 WS-STREET PIC X(15). ---> ELEMENTARY ITEM
05 WS-CITY PIC X(15). ---> ELEMENTARY ITEM
05 WS-COUNTRY PIC X(15) VALUE 'INDIA'. ---> ELEMENTARY ITEM

圖片子句

圖片子句用來定義下列項目：

數據類型可以是數字，字母或字母數字。數字只包含數字0到9字母組成的字母A到Z和空格。字母數字組成的數字，字母和特殊字符。
標誌可用於數字數據。它可以是+或 - 。
小數點位置可用於數字數據。假定位置是小數點的位置和不包括在數據中。
長度限定所使用的數據項的字節數。

在PIC子句中使用的符號

符號

描述

數字

字母

字母數字

隱式小數點

符號

假定小數

例子

下面的例子顯示使用PIC子句：

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-NUM1 PIC S9(3)V9(2).
01 WS-NUM2 PIC PPP999.
01 WS-NUM3 PIC S9(3)V9(2) VALUE -123.45.
01 WS-NAME PIC A(6) VALUE 'ABCDEF'.
01 WS-ID PIC X(5) VALUE 'A121$'.
PROCEDURE DIVISION.
DISPLAY "WS-NUM1 : "WS-NUM1.
DISPLAY "WS-NUM2 : "WS-NUM2.
DISPLAY "WS-NUM3 : "WS-NUM3.
DISPLAY "WS-NAME : "WS-NAME.
DISPLAY "WS-ID : "WS-ID.
STOP RUN.

JCL以上COBOL程序執行。

//SAMPLE JOB(TESTJCL,XXXXXX),CLASS=A,MSGCLASS=C
//STEP1 EXEC PGM=HELLO

當編譯並執行上面的程序它會產生以下結果：

WS-NUM1 : +000.00
WS-NUM2 : .000000
WS-NUM3 : -123.45
WS-NAME : ABCDEF
WS-ID : A121$

值子句

值條款是用來初始化數據項任擇條款。該值可以是數字文字，字母文字或圖形不變。它可以用於組和基本事項兩種。

例子

下面的例子展示了使用VALUE子句：

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-NUM1 PIC 99V9 VALUE IS 3.5.
01 WS-NAME PIC A(6) VALUE 'ABCD'.
01 WS-ID PIC 99 VALUE ZERO.
PROCEDURE DIVISION.
DISPLAY "WS-NUM1 : "WS-NUM1.
DISPLAY "WS-NAME : "WS-NAME.
DISPLAY "WS-ID : "WS-ID.
STOP RUN.

JCL以上COBOL程序執行。

//SAMPLE JOB(TESTJCL,XXXXXX),CLASS=A,MSGCLASS=C
//STEP1 EXEC PGM=HELLO

當編譯並執行上面的程序它會產生以下結果：

WS-NUM1 : 03.5
WS-NAME : ABCD
WS-ID : 00

COBOL教程

數據名稱

等級數

圖片子句

值子句