IBM大型主机（Mainframe）技术简介之三——应用开发摘要（一）

1. 代码结构



COBOL的源程序的代码主体部分必须从第8列开始（A区域），通常包括分区Division，分段Section和第一级的数据等。


其第7列为指示字符保留，例如*表示注释行，-表示续行等。前6列为行号。第12列开始为B区域，一般是实体内容（代码实现），


第二级以上的数据等。73列开始之后为卡号，现已不使用，但不能作为程序的一部分，编译器会忽略这部分的代码。

COBOL的源程序有一套比较刻板的代码区域划分系统，一般顺序如下：

IDENTIFICATIONDIVSION

标识区，是程序的说明部分。包含PROGRAM-ID和AUTHOR，通常只起到注释作用。

ENVIRONMENT DIVISION

环境区，一般定义执行环境，例如需要用到的文件。

INPUT-OUTPUT SECTION

输入输出段，作为环境区的一部分定义文件句柄和外部文件的关联（如JCL中的DDNAME）

FILE-CONTROL

文件控制定义，这里具体列举文件句柄和关联。

DATA DIVISION

数据区，定义变量（COBOL只有文件域全局变量），文件句柄和数据的关联

FILE SECTION

文件数据关联区

WORKING-STORAGE SECTION

变量定义区

PROCEDURE DIVISION

程序区，定义主程序和若干被主程序使用的子程序。在最前的为主程序。

2. 数据

数据类型

纯数字（Numeric）

无符号 99V99, 9(3)V9(2)，等；初值/赋值：

有符号，在前面加S，如S99V99；初值/赋值：+12.34，-32.4，加号或可省略。

字符（Alphanumeric）

X(20)，XXX，等

纯字母（Alphabetic）

A（10），AAA，等

数字字符编辑型（Alphanumeric Edited）

B代表空格，/代表斜杠等；赋值 PIC XX/XX VALUE "1230"，将得到值"12/30"。

数字编辑型（Numeric Edited）

赋值也需带双引号。

9代表任意数字，0也显示；Z代表任意有效数字，起始0被压制；

-接受任意有效数字，起始只显示负号；+接受任意有效数字，起始显示正号或负号；$接受任意有效数字，起始显示货币号；

负号-可以位于最后；CR/DB用于表示借/贷，当设置在末尾时候，值出现负数时会显示相应的字符（根据设置，显示CR或DB）

数据分级

01 表示第一级，后续可连续或跳跃递增至49，每一级保持一致。

77 表示不依赖其他的单独一级数据。

88 表示标的（Condition-name），它为它的映射数据提供一个真值指标，当映射数据值与之VALUE相等时，这个标的本身被引用时就为TRUE，否则为FALSE；同样当标的在程序中被设置为TRUE时，对应映射数据也会被拖至该对应值。

数据存储和表示

字符

IBM大型主机上，字符一般使用EBCDIC方式存放，类似于ASCII的作用，只是具体排序内容不同。

数字

Zoned Decimal，一个十进制数字占用一个字节，最后一个字节的前四比特表征符号，C表示正，D表示负。其余E比特的前4字节为E。

Packed Decimal，符号4比特置于最后，数字用4字节压紧排放，前导可能有4比特的0填充。

Binary，即最为经济的二进制数字存储。

配置方法是通过字符后的USAGE IS DISPLAY（默认）/PACKED-DECIMAL/BINARY的指定。

别名：Binary又称Comp或Comp-4；Packed decimal又称COMP-3。

3. 控制流

条件判断:

IF 条件

非句断语句组

ELSE

非句断语句组

END-IF.

所谓非句断语句组 指一丛COBOL语句，每个独立的语句之后不用通常的COBOL语句使用的句点句断。这说明整个条件判断代码片是一个COBOL语句。END-IF可以省略，原则是其上内容只含一个语句并句断。可以没有ELSE。

条件表达式元素：

逻辑：AND，OR，NOT，等

比较：<，>，=，<>，等

循环

PERFORM WITH TEST BEFORE/AFTER

[VARYING 变量 FROM 初始值 BY 变化量]

UNTIL 测试条件

非句断语句组

END-PERFORM.

或者

PERFORM 子程序名

[WITH TEST BEFORE/AFTER

[VARYING 变量 FROM 初始值 BY 变化量]

UNTIL 测试条件].

赋值和计算

COBOL使用一些特殊的关键字引导赋值和计算

值传递

MOVE 源 TO 目标

赋值过程需要注意类型兼容性和赋值后果。

计算

COMPUTE 目标 [ROUNDED] = 算式

[ON SIZE ERROR 非句断语句组]

[NOT ON SIZE ERROR 非句断语句组]

[END-COMPUTE].

运算符： +-*/和**（指数）等，注意COBOL中运算符两侧空格不仅是一种良好习惯，而且有时候是一个必须，因为要区分减号和划号。

两个后续语句组分别用于处理目标尺寸错误（通常为过小）或正常的情形。 同样END-COMPUTE遵从语句汇集规则。

加法

格式1：

ADD 若干个加数 TO 若干个被加数（结果） [ROUNDED] 计算后续处理

格式2：

ADD 若干个加数 TO 被加数 GIVING 若干个结果数 [ROUNDED] 计算后续处理

计算后续处理指类似COMPUTE后续的处理，以END-ADD结尾。

注意：多个加数求和后加到被加数；多个结果指运算独立输出到多个结果。

减法，类似加法只是用SUBTRACT FROM（英语语法）；乘法用MULTIPLY BY，且两侧只能各有一个操作数。

除法

DIVIDE 除数 INTO 若干个被除数 [ROUNDED]

DIVIDE （被）除数 BY/INTO （被）除数 GIVING商数 [ROUNDED]

DIVIDE （被）除数 BY/INTO （被）除数 GIVING 商数 [ROUNDED] REMAINDER 余数

4. 字符串处理

5. 数组和表

6. 文件处理

一般文件使用

1. 在FILE-CONTROL中定义文件句柄

2. 在FILE-SECTION中定义关联数据变量

3. 在程序中打开和关闭文件

4. 在程序中读取或写入文件

定义句柄：

SELECT 句柄名 ASSIGN TO 外部名（DDNAME） [附加参数]

打开文件：

OPEN INPUT/OUTPUT/I-O/EXTEND 文件句柄 .

关闭文件：

CLOSE 文件句柄.

读文件用READ语句，作用在句柄上，数据会自动读入到关联数据中，该数据的长度和文件的记录长度一致。

写文件用WRITE语句，作用在关联数据上，如下形式：

WRITE 关联数据变量名 AFTER ADVANCING [行数 LINES/PAGE].

索引文件 （Indexed File）

对应于VSAM的KSDS。

【顺序访问】

定义句柄的附加参数：

ORGANIZATION IS INDEXED

ACCESS IS SEQUENTIAL

RECORD KEY IS 键变量.

其中键变量是一个跟踪当前记录主键值的变量。

【随机访问】

定义句柄的附加参数：

ORGANIZATION IS INDEXED

ACCESS IS RANDOM

RECORD KEY IS 键变量.

可以用START和定义键变量值来寻找第一个符合要求的记录。

【动态访问】

定义句柄的附加参数：

ORGANIZATION IS DYNAMIC

ACCESS IS RANDOM

RECORD KEY IS 键变量.

相对文件 （Relative File）

对应于VSAM的RSDS。

【顺序访问】

定义句柄的附加参数为：

ORGANIZATION IS RELATIVE

ACCESS IS SEQUENTIAL.

读取：

READ 文件句柄名 [NEXT] RECORD [INTO 数据变量名]

[AT END 未句断语句组]

[NOT AT END 未句断语句组]

[END-READ]

【随机访问】

定义句柄的附加参数为：

ORIGANIZATION IS RELATIVE

ACCESS IS RANDOM

RELATIVE KEY IS 键变量.

“键变量”是一个数据变量，定义在WORKING-STORAGE 中，它必须能覆盖所有的相对记录。

读取：

READ 文件句柄名 RECORD [INTO 数据变量名]

[INVALID KEY 未句断语句组]

[NOT INVALID KEY 未句断语句组]

[END-READ]

7. 内部函数

调用方式

FUNCTION 函数名 [(参数组)]

重要函数

NUMVAL(字符变量)，尝试将字符变量转换为数字

NUMVAL-C(货币变量)，尝试将货币变量转换为数字

8. 外部子程序