COBOL-基本语法 - 芒果文档

📌 相关文章

📜 COBOL-基本语法

📅 最后修改于: 2020-11-22 16:43:29 🧑 作者: Mango

字符集

“字符”在层次结构中是最低的，因此无法进一步划分。 COBOL字符集包括78个字符，如下所示-

Sr.No.	Character & Description
1	A-Z Alphabets(Upper Case)
2	a-z Alphabets (Lower Case)
3	0-9 Numeric
4	Space
5	+ Plus Sign
6	– Minus Sign or Hyphen
7	* Asterisk
8	/ Forward Slash
9	$ Currency Sign
10	, Comma
11	; Semicolon
12	. Decimal Point or Period
13	“ Quotation Marks
14	( Left Parenthesis
15	) Right Parenthesis
16	> Greater than
17	< Less than
18	: Colon
19	‘ Apostrophe
20	= Equal Sign

编码表

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

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

Positions	Field	Description
1-6	Column Numbers	Reserved for line numbers.
7	Indicator	It can have Asterisk (*) indicating comments, Hyphen (-) indicating continuation and Slash ( / ) indicating form feed.
8-11	Area A	All COBOL divisions, sections, paragraphs and some special entries must begin in Area A.
12-72	Area B	All COBOL statements must begin in area B.
73-80	Identification Area	It can be used as needed by the programmer.

例

以下示例显示了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字。

所有的必须用分隔符结束。隔板用于分隔。

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

注释是一个，它不影响程序的执行。它可以是字符的任何组合。

有两种类型的评论-

评论专线

注释行可以写在任何列中。编译器不会检查注释行的语法，而会将其视为文档。

评论条目

注释条目是标识部门的可选段落中包含的注释条目。它们是用B区编写的，程序员可以将其用作参考。

在以下示例中，以粗体突出显示的文本是带注释的条目-

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个字符。仅当成对时，单引号或引号才可以是字面量的一部分。字面量的开头和结尾应相同，即撇号或引号。

例

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

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

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

数字字面量

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

例

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

Valid:
   100
   +10.9
   -1.9

Invalid:
   1,00
   10.
   10.9-

COBOL字

COBOL字是一个，它可以是一个保留字或用户定义的词。长度最多30个字符。

用户自定义

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

保留字

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

关键字，例如ADD，ACCEPT，MOVE等。
特殊字符单词，例如+，-，*，<，<=等
象征常量像ZERO，空格等所有象征常量的常数值如下表中提到的常数值。

图形常数

Sr.No.	Figurative Constants & Description
1	HIGH-VALUES One or more characters which will be at the highest position in descending order.
2	LOW-VALUES One or more characters have zeros in binary representation.
3	ZERO/ZEROES One or more zero depending on the size of the variable.
4	SPACES One or more spaces.
5	QUOTES Single or double quotes.
6	ALL literal Fills the data-item with Literal.