PHP与COBOL,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

用文字填充数据项

¥ 我要打赏 纠错/补充 收藏