superwei

PICTURE
??? 定義基本項目的具體長度，格式，數(shù)據(jù)類型。可以簡寫成PIC.
??? 格式字符串最多30個字符，可以包含下列字符：
??? A? 字母A-Z,a-z,空格
??? B? 插入空格
??? P? 標(biāo)量字符，代表字段中不顯示的小數(shù)點位置
??? S? 代數(shù)符號，實際顯示取決于項目的USAGE
??? V? 小數(shù)點位置
??? X? 任何字符
??? Z? 抑制前頭的0并轉(zhuǎn)換成空字符
??? 0? 插入0
??? 9? 數(shù)字0~9
??? /? 插入/
??? ,? 插入,(逗號不能作為字符串的最后一位，最后時逗號是分隔符)
??? 。 插入。
??? *? 抑制前頭的0并轉(zhuǎn)換成*
??? +? 正值插入+，負(fù)值插入-
??? -? 正值插入空格，負(fù)值插入-
??? $? 插入美元號
??? CR 正值插入兩個空格，負(fù)值插入CR
??? DB 正值插入兩個空格，負(fù)值插入DB
例子：
??? 03 VAR PIC AAAAA.??? STATE變量長度為5個字符，不能有數(shù)字，等價于03 STATE PIC A(5)。
???輸入ASDFG ,顯示ASDFG
??? 03 VAR PIC XXXXX.?? FILLER變量長度為5個任意字符。等價于03 FILLER PIC X(5)。
???輸入123AS ， 顯示123AS
??? 03 VAR PIC 99/XXX/9999 長度11，輸入05may2004,顯示05/may/2004
??? 03 VAR PIC 0ABXXX/9999 長度11，輸入05may2004,顯示05 may/2004
??? 03 VAR PIC 9(3) 長度3，0~999之間。
??? 03 VAR PIC 9(4)V99 長度6，0.00~9999.99之間。
??? 03 VAR PIC S9(5)V99 長度7，-99999.99~99999.99之間。
??? 03 VAR PIC 9(6)PPP 長度6，可以是1000，2000，...,999999000。輸入1234，顯示1000。
??? 03 VAR PIC PPP999 長度3，0.000001~0.000999之間。輸入123，顯示0.000123。
??? 03 VAR PIC ZZZ.99，輸入100.50,顯示100.50;輸入-51.50,顯示51.50;
??????????? 輸入0,顯示.00.
??? 03 VAR PIC $ZZZ.ZZ-，輸入100.50,顯示$100.50;輸入-51.50,顯示$51.50-;
??????????? 輸入0,顯示
??? 03 VAR PIC $***,***.99CR，輸入1000,顯示$**1000.00;輸入-1000,顯示$**1000.00CR;
??????????? 輸入0,顯示$***,***.00;輸入51.5,顯示$***,*51.50
??? 03 VAR PIC $$$,$$$.99，輸入100.50,顯示$100.50;輸入-100.50,顯示$100.50;
??????????? 輸入0.777,顯示$.77;輸入0,顯示$.00
??? 03 VAR PIC $.$$$，輸入1.00,顯示$.00;輸入0.65,顯示$.65;
??????????? 輸入0,顯示$.00;
??? 03 VAR PIC $--，輸入17.7,顯示$17;輸入-17.7,顯示$-17;
??????????? 輸入-5,顯示$-5
??? 03 VAR PIC $999.99+，輸入100.50,顯示$100.50+;輸入-100.50,顯示$100.50-;
??? 03 VAR PIC 9(3)B9(3)，輸入55,顯示000 055;輸入1000.78,顯示001 000;

USAGE 表示基本或組數(shù)據(jù)的類型。有BINARY,COMPUTATIONAL(COMP),DISPLAY,INDEX,PACKED-DECIMAL.

JUSTIFIED
??? 03 VAR1 PIC X(5) JUSTIFIED RIGHT.
??? 03 VAR2 PIC X(5).
??? 輸入XYZ，VAR1顯示的是"? XYZ",VAR2顯示的是"XYZ? "。

BLANK WHEN ZERO
??? 03 VAR PIC $999,999.99 BLANK WHEN ZERO .
??? 當(dāng)字段值為0，這個項目設(shè)置為全部空格。

VALUE
??? 定義的時候就賦值。
??? 03 VAR PIC X(5) VALUE "ABCDE".
??? 01 VAR VALUE ALL SPACES.
????? 03 VAR1 PIC XXX.
????? 03 VAR2 PIC XX.

算術(shù)語句
??? COBOL中操作符執(zhí)行順序為：取正(+)、取負(fù)(-)最高級，指數(shù)操作(**)其次，乘(*)、除(/)再其次，加(+)、減(-)最后。
ROUNDED?? 舍入操作。
??? 77 A PIC 9V9 VALUE 9.1.
??? 77 B PIC 9.
????? ADD 0.5 TO A GIVING B ON SIZE ERROR GO TO PROC1.
????? ADD 0.5 TO A GIVING B ROUNDED ON SIZE ERROR GO TO PROC2.
????? END-ADD.
ON SIZE ERROR 是當(dāng)語句出現(xiàn)錯誤時執(zhí)行的。本例中第一句話執(zhí)行沒有錯誤，所以O(shè)N SIZE ERROR
不執(zhí)行PROC1.第二句話，當(dāng)0.5加上9.1得到9.6，因為有ROUNDED,所以執(zhí)行舍入操作，得到10。而B只有1位數(shù)字，所以發(fā)生錯誤，執(zhí)行ON SIZE ERROR操作，跳轉(zhuǎn)執(zhí)行PROC2。?
CORRESPONDING(CORR)??? 數(shù)據(jù)項同名時編寫多條語句。ADD和SUBSTRACT有此選項。
??? 01 A .
????? 03 B.
??????? 05 B1 PIC 999V99.
??????? 05 B1 PIC 999V99.
??????? 05 B1 PIC 999V99.
????? 03 C.
??????? 05 B1 PIC 999V99.
??????? 05 B1 PIC 999V99.
??????? 05 B1 PIC 999V99.
則語句ADD CORR B TO C.相當(dāng)于執(zhí)行了下面3條語句。
??? ADD B1 OF B TO B1 OF C.
??? ADD B2 OF B TO B2 OF C.
??? ADD B3 OF B TO B3 OF C.
組項目不一定要格式相同。一個組項目中的內(nèi)容在另一個組項目中可以沒有，數(shù)據(jù)項順序也無關(guān)緊要。只是嚴(yán)格按照數(shù)據(jù)項名稱對應(yīng)。
??? ADD A,B GIVING C. END-ADD.????????????? 將A,B相加放入C。
??? SUBTRACT A,B FROM C。END-SUBTRACT.????? 從C中減去A,B.
??? MULTIPLY A BY B GIVING C. END-MULTIPLY. 將A,B相乘放入C。
??? DIVIDE A INTO B GIVING C. END-DIVIDE.?? 將B除于A的結(jié)果放入C.
??? DIVIDE A BY B GIVING C. END-DIVIDE.???? 將A除于B的結(jié)果放入C.
??? DIVIDE A BY B GIVING C REMAINDER D.???? 將A除于B的商放入C，余數(shù)放入D.
??? D=A-B*C.
??? 77 C PIC S99V9.
??? 77 D PIC S99V9.
??? DIVIDE 3 INTO 7 GIVING C REMAINDER D.
??? C的值為2.3，D為0.1。(D=7-3*2.3)

COMPUTE
??? 除了取余操作要用DIVIDE外，其他操作都可以用此語句。本語句求值一個算術(shù)表達(dá)式，并將結(jié)果存放在一個或幾個變量中。
COMPUTE? A ROUNDED,B? = X*Y/(N+M)+Z. 將X*Y/(N+M)+Z的結(jié)果存放在B中，然后舍入后放入A中。

MOVE
??? MOVE A TO B.
??? 也可以用CORR選項。
??? MOVE CORR A TO B.