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)
等級數
級彆數是用來指定數據的記錄中的級彆。它們被用於基本事項和基件之間進行區分。基本項目可以分組以創建組的項目。
| 級彆數 | 描述 |
|---|---|
| 01 | 記錄描述項 |
| 02 to 49 | 分組初級項目 |
| 66 | 重命名子句項目 |
| 77 | 項目不能被細分 |
| 88 | 條件名稱項 |
- 基本項目不能再分。級彆數，數據名稱，圖片子句和值子句(可選)用於描述基本項目。
- 分組項目由一個或多個基本項目。級彆數，數據名稱和值子句(可選)用於描述組項目。分組級彆數總是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子句中使用的符號
| 符號 | 描述 |
|---|---|
| 9 | 數字 |
| A | 字母 |
| X | 字母數字 |
| V | 隱式小數點 |
| S | 符號 |
| P | 假定小數 |
例子
下麵的例子顯示使用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
