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

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