COBOL基本语法

字符集

'字符'层次是最低的,并且不能被进一步划分。COBOL字符集有78个字符如下所示:

字符 描述
A-Z Alphabets(Upper Case)
a-z Alphabets (Lower Case)
0-9 Numeric
  Space
+ Plus Sign
- Minus Sign or Hyphen
* Asterisk
/ Forward Slash
$ Currency Sign
, Comma
; Semicolon
. Decimal Point or Period
" Quotation Marks
( Left Parenthesis
) Right Parenthesis
> Greater than
< Less than
: Colon
' Apostrophe
= Equal Sign

代码表

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

字符的位置被分为下列五个字段:

位置 字段 描述
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区和程序员使用它,以供参考。

粗体字母在注释下面的例子中项目:

000100 IDENTIFICATION DIVISION.                                         000100
000150 PROGRAM-ID. HELLO.                                               000101 
000200 AUTHOR. YIIBAI.                                                  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, SPACES等象征常量的所有恒定值被输入的下表中:

形象常量

象征常量 描述
HIGH-VALUES 一个或多个字符,在最高的位置以降序
LOW-VALUES 一个或多个字符在二进制表示的零
ZERO/ZEROES 一个或多个零取决于变量的大小
SPACES 一个或多个空格
QUOTES 单引号或双引号
ALL literal 用文字填充数据项

联系我们

邮箱 626512443@qq.com
电话 18611320371(微信)
QQ群 235681453

Copyright © 2015-2022

备案号:京ICP备15003423号-3