COBOL - Basic 语法
字符集
“字符”在层次结构中最低，不能进一步划分。 COBOL字符集包含78个字符，如下所示 -
| Sr.No. | 字符和描述 |
|---|---|
| 1 | AZ 字母（大写字母） |
| 2 | az 字母（小写字母） |
| 3 | 0-9 数字 |
| 4 |
Space |
| 5 | + 加号 |
| 6 | - 减号或连字符 |
| 7 | * 星号 |
| 8 | / Forward Slash |
| 9 | $ Currency Sign |
| 10 | , 逗号 |
| 11 | ; 分号 |
| 12 | . 小数点或周期 |
| 13 | " 引号 |
| 14 | ( 左括号 |
| 15 | ) 右括号 |
| 16 | > Greater than |
| 17 | < Less than |
| 18 | : Colon |
| 19 | ' Apostrophe |
| 20 | = 等号 |
编码表
COBOL的源程序必须以编译器可接受的格式编写。 COBOL程序是在COBOL编码表上编写的。 编码表的每一行有80个字符位置。
字符位置分为以下五个字段 -
| 位置 | 领域 | 描述 |
|---|---|---|
| 1-6 | Column Numbers | Reserved for line numbers. |
| 7 | Indicator | 它可以有星号（*）表示注释，连字符（ - ）表示延续，斜杠（/）表示换页。 |
| 8-11 | A区 | 所有COBOL部门，部分，段落和一些特殊条目必须从A区开始。 |
| 12-72 | B区 | 所有COBOL语句必须从区域B开始。 |
| 73-80 | 识别区域 | 它可以根据程序员的需要使用。 |
例子 (Example)
以下示例显示了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
字符串
通过组合各个字符来形成字符串。 字符串可以是a
- Comment,
- Literal, or
- COBOL word.
必须使用separators结束所有字符串。 分隔符用于分隔字符串。
经常使用的分隔符 - 空格，逗号，句点，撇号，左/右括号和引号。
Comment
注释是一个不影响程序执行的字符串。 它可以是任何字符组合。
评论有两种类型 -
评论行
注释行可以写在任何列中。 编译器不检查注释行的语法，并将其视为文档。
评论条目
评论条目是标识部分的可选段落中包含的条目。 它们写在B区，程序员用它作为参考。
Bold中突出显示的文本是以下示例中的注释条目 -
000100 IDENTIFICATION DIVISION. 000100
000150 PROGRAM-ID. HELLO. 000101
000200 AUTHOR. <b class="notranslate">IOWIKI</b>. 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
Literal
Literal是一个在程序中直接硬编码的常量。 在以下示例中，“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 Word
COBOL Word是一个字符串，可以是保留字或用户定义的字。 长度最多30个字符。
User-Defined
用户定义的单词用于命名文件，数据，记录，段落名称和节。 在形成用户定义的单词时允许使用字母，数字和连字符。 您不能使用COBOL保留字。
保留字
保留字是COBOL中的预定义字。 我们经常使用的不同类型的保留字如下 -
像ADD，ACCEPT，MOVE等Keywords
Special characters词，如+， - ，*，“，”=等
图形Figurative constants是常数值，如ZERO，SPACES等。图形常量的所有常数值都在下表中提到。
比喻常数
| Sr.No. | 比喻常数和描述 |
|---|---|
| 1 | HIGH-VALUES 一个或多个字符将按降序排列在最高位置。 |
| 2 | LOW-VALUES 一个或多个字符在二进制表示中具有零。 |
| 3 | ZERO/ZEROES 一个或多个零取决于变量的大小。 |
| 4 | SPACES 一个或多个空格。 |
| 5 | QUOTES 单引号或双引号。 |
| 6 | ALL literal 使用Literal填充数据项。 |
