COBOL语言知识点
1.DATA ITEM NAMING RULES:
长度为30个字节；字符包括A-Z,a-z,0-9和‘-’；横线不能出现在第一个或最后一个；COBOL 关键字用；至少包含一个字符。
2.DATA STRUCTER LEVEL NUMBER
77定义一个独立的变量
66重命名
88定义条件名
3.DATA TYPE
Alphabetic, Alphanumeric, Alphanumeric-edited, Numeric, Numeric-edited
https://www.wendangku.net/doc/bc11681650.html,P-1,COMP-2,COMP-3,COMP,COMP-5
COMP-1:指定内部浮点项目(双精度),8个字节长
COMP-2:指定内部浮点项目（单精度），4个字节长
COMP-3:压缩十进制（1个字节有两位）
COMP-4(COMP):二进制存储
COMP-3是IBM Mainframe特有，特意将一下：
COMP-3 数据类型同样以二进制的形式保存在文件中，其占位数计算方法如下：占位数 =[ 定义长度 /2+1] [] 表示整
COMP-3 数据在文件中存储形式如下例：
例如：定义形式 -- 9(4) COMP-3, 占位数 =[ 定义长度 /2+1]=3
赋值： 1521 存储结果： 01 52 1F（F表示正数）
赋值： 0 存储结果： 00 00 0F COMP-3 带有符号位时，赋值为正时，最后半个字节为 16 进制 C ；赋值为负时，最后半个字节为 16 进制D
例如：定义形式 -- S9(4) COMP-3, 占位数 =[ 定义长度 /2+1]=3
赋值： -1521 存储结果： 01 52 1D (D 表示负数 )
赋值： 1521 存储结果： 01 52 1C
注意：当 COMP-3 的数据定义无 S ，赋予负值时，最后半个字节仍为 F ，即无法显示负数
5.COBOL中常量
ZERO(ZEROS,ZEROES):数字令或者字符“0”
SPACE(SPACES):空格
HIG-VALUE(HIGH-VALUES):将对应的二进制码全部置为1
LOW-VALUE(LOW-VALUES):将对应的二进制码全部署为0
QUOTO(QUOTOS):引号
ALL:相应字符连接而成的字符串
6.Arithmetic Function
FUNCTION SUM(17,21,4.5,-6):计算总和
FUNCTION SQRT(11):开平方
FUNCTION INTEGER(4.5):取整
FUNCTION INTEGER-PART(4.5):四舍五入
7.Alphabetic Function
FUNCTION CHAR(65)：ACISS码转换
FUNCTION LENGTH('KKKKK'):判断字符长度
FUNCTION NUMVAL('+109'):字符转换成数字
FUNCTION REVERSE('ABCD'):逆序排列
FUNCTION ORD('A'):ACISS码转换
8.Range Functions
FUNCTION MAX(-21,15,2.4):选取最大值
FUNCTION MIN(-21,15,2.4):选最小值
FUNCTION ORD-MAX:最大值的位置
FUNCTION ORD-MIN:最小值的位置
FUNCTION RANGE
1、COBOL简介
COBOL是Common Business-Oriented Language(公用面向商业的语言)的缩写。
COBOL针对商业世界使用，是真正商用应用程序开发的首选语言(过去如此，未来......呵呵)。它自60年代初就开始广泛应用于计算机应用领域(商业和其他领域)。COBOL程序服务于政府、银行、运输系统、制造业及批发系统的日常工作中。
COBOL有许多版本，针对不同机器和操作系统，如大型机上的IBM COBOL和PC机上的Fujitsu 与Micro Focus COBOL。
COBOL语法中借用了段、句、词的概念。它比现代编程语言显得更冗长。
COBOL采用了上世纪50年代由Sperry-Rand开发并修订的FLOW-MATIC(被美国空军及一些大公司使用，采用了英语式语法，如ADD、MOVE等，数据名可比较长且带含义，如
STAT-TAXES、TOTAL-PAY等)的词法及其三个部分(过程、数据描述、环境)［现已成为COBOL 的四个部］，还借用IBM COMMERCIAL TRANSLATOR，特别是其PICTURE从句和组项目(组成01、02等表示的层)。
CODASYL委员会将该语言命名为COBOL，表示公用面向商业语言。1959年12月，第一个COBOL规范的最后草案完成。1960年，美国国防部宣布，所有购买的计算机都要包括COBOL 编译器。COBOL的硬件无关特性在该语言规范的演变中起了巨大推动作用。
1968年美国标准协会(USASI，后更名为ANSI)批准了X3.4.4(后更名为X3J4)开发的标准，发表号为：X3.23-1968。这个文档定义了COBOL包括内核和八个功能模块：
1. Table Handling
2. Sequential Access
3. Random Access
4. Random Processing
5. Sort
6. Report Writer
7. Segmentation
8. Library
每个模块最多分成三层：高层提供更多功能，低层提供高层的子集。COBOL的基本版本包括内核、表格处理和顺序访问模块的低层功能。完全版本的COBOL应包括所有模块的高层功能。这个ANSI标准即著名的COBOL-68。
1974年对标准进行了修订，8个功能模块扩充至11个：
1. Table Handling
2. Sequential I/O
3. Relative I/O
4. Indexed I/O
5. Sort-Merge
6. Report Writer
7. Segmentation
8. Library
9. Debug
10. Inter-Program Communication
11. Communication
每个模块包括两层或三层。9个模块中，最低层为空集。每个低层都是高层的子集。对于COBOL-68，基本版本应包括内核、表格处理和顺序I/O模块的最低层。
ANSI COBOL于1985年发布COBOL-85标准。后X3J4更名为J4，负责处理COBOL语言的发展标准化。
2002年，发布COBOL 2002标准。该标准新特性包括:
· User Defined Functions
· Object Orientation
· National Characters - Unicode
· Multiple Currency Symbols
· Conditional Compilation
· Cultural Adaptability (Locales)
· Dynamic Memory Allocation
· Data Validation Using New VALIDATE Verb
· Binary and Floating Point Data Types
· User Definition of Data Types
由上面可以看到，这是一个非常可喜的变化(质的飞跃)：支持面向对象、用户自定义数据类型等。
据估计，目前存在2000亿行COBOL代码，而全世界70 %的业务数据是由COBOL应用程序处理的，并且每天要处理300亿个基于COBOL的交易。
IBM成功地在全世界一百多个国家销售其大型计算机。可以说，有IBM的地方，就有COBOL。Micro Focus公司已为微软公司新的.Net Server操作系统设计Cobol版编辑器。Cobol作为可控编码在微软公司Visual Studio .Net环境下的CLR上运行。这就使得Cobol编码可以在与C++和其它Visual Studio CLR语言相同的环境下进行调试。