现在的位置: 首页 > 综合 > 正文

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

2013年12月02日 ⁄ 综合 ⁄ 共 3477字 ⁄ 字号 评论关闭
1. 代码结构



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


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


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

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

 

IDENTIFICATION DIVSION  

标识区,是程序的说明部分。包含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. 外部子程序

 

 

 

 

 

 

抱歉!评论已关闭.