資料部(data division)是用來定義程式中使用的變數。為了描述cobol中的資料，必須了解以下術語：data name(資料名稱)
level number(級數)
picture clause(子句)
value clause(值子句)01 total-students pic9(5) value '125'.
level number data name picture clause value clause
data name資料名稱
資料名稱必須在資料部中定義，然後才能在過程部中使用。它們必須有乙個使用者自定義的名稱；不能使用保留詞。資料名為儲存實際資料的儲存單元提供引用。它們可以是基本型別或組型別。
例下面的示例顯示有效和無效的資料名稱：valid:
ws-name
total-students
a100
100b
invalid:
move (reserved words)
compute (reserved words)
100 (no alphabet)
100+b (+ is not allowed)
level number級數
級數是用於指定記錄中的資料級別。它們用於區分基本項和組項。基本項可以組合在一起建立組項。級數描述
01記錄描述條目
02至49組項和基本項
66重命子句項
77不能被細分項
88條件名稱條目elementary items基本專案不能進一步細分。級數，資料名稱，子句和值子句(可選)用於描述基本項。
group items組專案由乙個或多個基本項組成。級數，資料名稱和值子句(可選)用於描述組項。組級數始終為01。
例下面的示例演示elementary items和group items：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
picture clause子句
符號：可以與數字資料一起使用。它可以是+或-。
小數點位置：可與數字資料一起使用。假設位置是小數點的位置，而不包括在資料中。
長度：定義資料項使用的位元組數。
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,******),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 clause值子句
值子句是乙個可選子句，用於初始化資料項。該值可以是數字文字，字母數字文字，或象徵常數。它可以與組項和基本項一起使用。
例下面的例子顯示值子句的使用：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,******),class=a,msgclass=c
//step1 exec pgm=hello
當你編譯和執行上面的程式，會產生以下結果：ws-num1 : 03.5
ws-name : abcd
ws-id : 00
9型轉x型 cobol cobol基本語法
基本語法 基本語法 一 cobol 基本語法 一 cobol 的書寫格式 每行 前列為序號區 一般不編輯 第列為標示列，僅可以寫如下幾個標示符。a.注釋符 注釋當前行的 b字串連線符 第列 11列為a 區，包括以下內容。a部 節名。b層號 第列 72列為b 區，過程部的程式必須寫在 b區中。第以後部...
9型轉x型 cobol 尋常型銀屑病轉危重的原因
尋常型銀屑病是最為常見的型別，相對於其它型別的銀屑病尋常型症狀表現較輕，的難度也相對較小。但是，在臨床 中發現很多患者都由尋常型銀屑病發展為了較為嚴重的紅皮型或膿疱型。患者是如何從尋常型轉化成危重?了解尋常型銀屑病轉化的原因，可以防止尋常型銀屑病患者病情向危重轉化，尋常型銀屑病患者對此要重視起來。三...
浮點型轉string
方法1 sprintf char destination,char double float 是用destination來儲存double float值的字元 然後直接string a destination 該方法有乙個缺點，就是儲存的值可能和輸入的double float的值有誤差，即最後字串a...