COBOL 中定义变量

COBOL 中定义变量

PICTURE

定义基本项目的具体长度，格式，数据类型。可以简写成PIC.
格式字符串最多30个字符，可以包含下列字符：
A  字母A-Z,a-z,空格
B  插入空格
P  标量字符，代表字段中不显示的小数点位置
S  代数符号，实际显示取决于项目的USAGE
V  小数点位置
X  任何字符
Z  抑制前头的0并转换成空字符
0  插入0
9  数字0~9
/  插入/
,  插入,(逗号不能作为字符串的最后一位，最后时逗号是分隔符)
.  插入.
*  抑制前头的0并转换成*
+  正值插入+，负值插入-
-  正值插入空格，负值插入-
$  插入美元号
CR 正值插入两个空格，负值插入CR
DB 正值插入两个空格，负值插入DB

例子：
03 VAR PIC AAAAA. VAR变量长度为5个字符，不能有数字，等价于03 STATE PIC A(5)。
输入ASDFG ,显示ASDFG
03 VAR PIC XXXXX. VAR变量长度为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 $\ast \ast \ast ,\ast \ast \ast .99CR，输入1000,显示$1000.00;输入-1000,显示$\ast \ast 1000.00CR;输入0,显示$,**.00;输入51.5,显示$\ast \ast \ast ,\ast 51.5003VARPIC$.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;