Basic 语法

字符集

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

编码表

COBOL的源程序必须以编译器可接受的格式编写。 COBOL程序是在COBOL编码表上编写的。 编码表的每一行有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>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等。图形常量的所有常数值都在下表中提到。

比喻常数