COBOL - 基本语法 - 蝴蝶教程

字符集

“字符”在层次结构中最低，不能进一步划分。COBOL 字符集包括 78 个字符，如下所示 -

序号	人物与描述
1	A-Z 字母（大写）
2	a-z 字母（小写）
3	0-9 数字
4	空间
5	+ 加号
6	- 减号或连字符
7	* 星号
8	/ 正斜杠
9	$ 货币符号
10	, 逗号
11	; 分号
12	. 小数点或句点
13	" 引号
14	( 左括号
15	) 右括号
16	> 比...更棒
17	< 少于
18	: 冒号
19	' 撇号
20	= 等号

编码表

COBOL 的源程序必须以编译器可接受的格式编写。COBOL 程序写在 COBOL 编码表上。编码表的每一行有 80 个字符位置。

字符位置分为以下五个字段 -

职位	场地	描述
1-6	列号	为行号保留。
7	Indicator	它可以有星号 (*) 表示注释，连字符 (-) 表示继续，斜线 (/) 表示换页。
8-11	Area A	所有 COBOL 分区、部分、段落和一些特殊条目必须从区域 A 开始。
12-72	B区	所有 COBOL 语句必须从区域 B 开始。
73-80	Identification Area	程序员可以根据需要使用。

例子

以下示例显示了 COBOL 编码表 -


000100 IDENTIFICATION DIVISION.                                         000100
000200 PROGRAM-ID. HELLO.                                               000101
000250* THIS IS A COMMENT LINE                                          000102
000300 PROCEDURE DIVISION.                                              000103
000350 A000-FIRST-PARA.                                                 000104
000400     DISPLAY “Coding Sheet”.                                      000105
000500 STOP RUN.                                                        000106

JCL执行上述 COBOL 程序 -


//SAMPLE JOB(TESTJCL,XXXXXX),CLASS = A,MSGCLASS = C
//STEP1 EXEC PGM = HELLO

当您编译并执行上述程序时，它会产生以下结果 -


Coding Sheet

字符串

字符串由单个字符组合而成。一个字符串可以是

评论，
字面量，或
COBOL 字。

所有字符串必须以separators. 分隔符用于分隔字符串。

常用分隔符 - 空格、逗号、句号、撇号、左/右括号和引号。


000100 IDENTIFICATION DIVISION.                                         000100
000150 PROGRAM-ID. HELLO.                                               000101 
000200 AUTHOR. TUTORIALSPOINT.                                          000102
000250* THIS IS A COMMENT LINE                                          000103
000300 PROCEDURE DIVISION.                                              000104
000350 A000-FIRST-PARA.                                                 000105  
000360/ First Para Begins - Documentation Purpose                       000106
000400     DISPLAY “Comment line”.                                      000107
000500 STOP RUN.                                                        000108

JCL执行上述 COBOL 程序 -


//SAMPLE JOB(TESTJCL,XXXXXX),CLASS = A,MSGCLASS = C
//STEP1 EXEC PGM = HELLO

当您编译并执行上述程序时，它会产生以下结果 -


Comment Line

字面量

字面量是在程序中直接硬编码的常量。在以下示例中，“Hello World”是一个字面量。


PROCEDURE DIVISION.
DISPLAY 'Hello World'.

有两种类型的字面量，如下所述 -

字母数字字面量

字母数字字面量用引号或撇号括起来。长度最多为 160 个字符。只有成对的撇号或引号才能成为字面量的一部分。字面量的开头和结尾应该相同，可以是撇号或引号。

Example

以下示例显示了有效和无效的字母数字字面量 -


Valid:
   ‘This is valid’
   "This is valid"
   ‘This isn’’t invalid’
Invalid:
   ‘This is invalid”
   ‘This isn’t valid’

数字字面量

数字字面量是从 0 到 9、+、- 或小数点的数字组合。长度最多为 18 个字符。符号不能是最右边的字符。小数点不应出现在末尾。

Example

以下示例显示了有效和无效的数字字面量 -


Valid:
   100
   +10.9
   -1.9
Invalid:
   1,00
   10.
   10.9-

COBOL 字

COBOL Word 是一个字符串，可以是保留字，也可以是用户自定义字。长度最多为 30 个字符。

用户自定义

用户定义的词用于命名文件、数据、记录、段落名称和部分。在形成用户定义的单词时，允许使用字母、数字和连字符。不能使用 COBOL 保留字。

保留字

保留字是 COBOL 中的预定义字。我们经常使用的不同类型的保留字如下 -

Keywords如添加、接受、移动等。
Special characters+、-、*、<、<= 等词
Figurative constants是常数值，如零、空格等。比喻常数的所有常数值都在下表中提到。

比喻常数

序号	Figurative Constants & Description
1	HIGH-VALUES 一个或多个按降序排列在最高位置的字符。
2	LOW-VALUES 一个或多个字符在二进制表示中具有零。
3	ZERO/ZEROES 一个或多个零取决于变量的大小。
4	SPACES 一个或多个空格。
5	QUOTES 单引号或双引号。
6	ALL literal 用字面量填充数据项。

COBOL - 基本语法

字符集

编码表

例子

字符串

评论

评论行

评论条目

字面量