没有合适的资源?快使用搜索试试~ 我知道了~
cobol语法cobol语法cobol语法cobol语法cobol语法cobol语法cobol语法
资源推荐
资源详情
资源评论
COBOL 程序格式
cobol 源程序的格式如下:
每行开头有 6 个字符的序号区。可以输入 000010,000020 等表示行,也可以不输。
序号区后面是一个字符(第 7 位)的指示符区,如第一行所示。可以用*和/表示注释,_表示续行,D
表示调试。
指示符区后面是 4 个字符(8~11 位)的 A 区。可以放入部,节,段标题,段名,层指示符和层号 01
与 77,关键字 DECLARATIVES 和 END DECLARATIVES,程序结束标题。
A 区后面(12 位以后)是语句体,称为 B 区。过程部的语句必须从 B 区开始。B 区宽度通常为 72 或
80 个字符。
本例是 70 个字符。
空行的每个区都是空格
标识部(2~4 行),PROGRAM-ID 段包含程序名,是每个程序都必须的。AUTHOR 等其他段是可有可
无的。
环境部(5~15 行),提供与程序外部有关的项目,具体地说,就是列出程序所用的文件。如果不需要可
以省略。
环境部有配置节(6~10 行)和输入输出节(11~15 行)。
第 7 行表示编译程序的计算机。如果指定 WITH DEBUGGING MODE 就编译调试行。
第 8 行表示程序运行的计算机。
第 9,10 行包含一组指定输出样式。这里是标准输出,可以自定义。
输入输出节只用于文件。
第 13 到 15 行表示如果程序使用文件,则这个段对每个文件包含一个项目。
文件控制项目的格式取决于文„„件的描述类型。
数据部(16~22 行),提供程序变量的存放位置,对不同的数据类型分成不同的节:文件数据( File
Section)、
静 态 数 据 ( Working-Storage Section ) 、 参 数 ( Linkage Section ) 、 通 信
(Communication Section)、
报表(Report Section)。
文件节(18~21 行),每个文件描述中包含文件所含纪录的定义,文件节中的数据或从文件读取,
或由写文件的程序产生。
第 22 行表示工作存储节,这节包含程序所需的临时结果和初始化静态数据的数据。
参数(Linkage Section)包含调用程序传递的数据(其他语言中称为参数)。
通信(Communication Section),处理 COBOL 程序和通信设备之间的消息。
报表(Report Section),报表节实现 COBOL 报告编写工具系统所需的数据。
第 20,21 行的 PIC 是 PICTURE 的缩写,表示定义数据格式。
X(12)表示 12 个字符的字符串,9(09)表示 9 位的整数。
可以将基本项目组成层次结构,称为组数据项或组。
COBOL 程序中的数据项的定义从层号开始,01 层是最高层,49 层是最低层。
77 层项目用于某个组的数据项,如程序中的临时变量。
66 层是为特殊描述符项目保留的,可以更名现有的数据项或组,或以原定义未允许的方式组合。
88 层是对特殊数据项目条件名保留的
如:
03 STATE PIC XX.
88 NEW-ENGLAND VALUES ARE "1","2","3","4","5".
IF NEW-ENGLAND ... then do something
过程部(23~30 行),包含构成程序的过程性语句。
带 DECLARATIVES 的过程部。有些程序用特殊的 USE 语句表示遇到特殊条件时要执行的过程,
如发生 I/O 错误时。
USE 语 句 组 合 在 一 起 , 放 在 过 程 部 开 头 , 由 关 键 字 DECLARATIVES 和 END
DECLARATIVES 限定。
第 24 行相当于定义了一个名字叫 ACAB030100-PROC()的函数。
第 25,29 行定义了标志,可以用 GO TO 语句跳转到这个地方,执行下面的语句。
第 26 行在屏幕上打印,相当于 printf("ACAB030100-START");
第 27 行是调用 ACAB030100-PROC()函数。
cobol 程序的要求:必须以英文句号.结束部标题、节标题、段名、项目和语句。
句号为小数点时,两边都要有数字。
COBOL 语法和文法(1)
REDEFINES
可以用不同的变量描述同一内存。
01 PART_RECODE USAGE DISPLAY
03 PART-TYPE PICTURE...
03 PART_TYPE_A.
05 PART_NUMBER PICTURE...
05 PART_COST PICTURE...
03 PART_TYPE_B REDEFINES PART_TYPE_A.
05 UPC_CODE PICTURE...
03 PART_TYPE_C REDEFINES PART_TYPE_A.
05 ISBN PICTURE...
根据 PART_TYPE 决定用 PART_TYPE_A 还是 PART_TYPE_B 还是 PART_TYPE_C。
规则:
PART_TYPE_B 和 PART_TYPE_C 长度不能大于 PART_TYPE_A。
数据项不能有 VALUE。
01 层不能用 REDEFINES.
PART_TYPE_B 和 PART_TYPE_C 中不能有 OCCURS.
PICTURE
定义基本项目的具体长度,格式,数据类型。可以简写成 PIC.
格式字符串最多 30 个字符,可以包含下列字符:
A 字母 A-Z,a-z,空格
B 插入空格
P 标量字符,代表字段中不显示的小数点位置
S 代数符号,实际显示取决于项目的 USAGE
V 小数点位置
X 任何字符
Z 抑制前头的 0 并转换成空字符
0 插入 0
9 数字 0~9
/ 插入/
, 插入,(逗号不能作为字符串的最后一位,最后时逗号是分隔符)
。„插入。
* 抑制前头的 0 并转换成*
+ 正值插入+,负值插入-
- 正值插入空格,负值插入-
$ 插入美元号
CR 正值插入两个空格,负值插入 CR
DB 正值插入两个空格,负值插入 DB
例子:
03 VAR PIC AAAAA. STATE 变量长度为 5 个字符,不能有数字,等价于 03 STATE PIC A(5)。
输入 ASDFG ,显示 ASDFG
03 VAR PIC XXXXX. FILLER 变量长度为 5 个任意字符。等价于 03 FILLER PIC X(5)。
输入 123AS ,„显示 123AS
03 VAR PIC 99/XXX/9999 长度 11,输入 05may2004,显示 05/may/2004
剩余12页未读,继续阅读
资源评论
yycchuhuhu200810
- 粉丝: 0
- 资源: 1
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功