COBOL - 基本语法

字符集

'字符'在层次结构中最低,无法进一步划分. COBOL字符集包括78个字符,显示在下面和下面;

Sr.No.Character&说明
1

AZ

字母(大写字母)

2

az

字母(小写)

3

0- 9

数字

4

 

空格

5

+

加号

6

 -  

减号或连字符

7

*

Asterisk

8

/

转发斜杠

9

$

货币符号

1 0

逗号

11

;

分号

12

.

小数点或句号

13

"

引号

14

(

左括号

15

)

右括号

16

>

大于

17

<

小于

18

:

冒号

19

'

Apostrophe

20

=

等号

编码表

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

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

位置Field描述
1-6列号为行号保留.
  7           指标它可以有星号(*)表示注释,连字符( - )表示连续,斜杠(/)表示换页.
  8-11           A区所有COBOL部门,部分,段落和一些特殊条目必须从A区开始.
12-72区域B所有COBOL语句必须从B区开始.
73-80          标识区程序员可以根据需要使用它.

示例

以下示例显示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区,程序员使用它作为参考.

Bold 中突出显示的文本是以下示例中的注释条目 :

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


Literal

Literal是一个在程序中直接硬编码的常量.在下面的示例中,"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 Word

COBOL Word是一个字符串,可以是保留字或用户定义的字.长度最多30个字符.

用户定义

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

保留字

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

  • 关键字如ADD ,接受,移动等

  • 特殊字符字样如+, - ,*,<,< =等

  • 图形常量是常量值,如ZERO,SPACES等.图形常量的所有常量值都在下表中提到.

比喻常数

Sr.No.Figurative Constants & Description
1

HIGH-VALUES

一个或多个字符将按降序排列在最高位置.

2

LOW-VALUES

一个或多个字符的二进制表示为零.

3

ZERO/ZEROES

一个或多个零取决于变量的大小.

4

SPACES

一个或多个空格.

5

QUOTES

单引号或双引号.

6

所有文字

用Literal填充数据项.