基于IBM大型机的COBOL语言的数据类型

作者简介：喻旸（1981－），男，重庆人，硕士，重庆正大软件集团华日软件有限公司对日事业部副部长 ，研究方向为对日软件 外包 行业 发 展 、软 件工 程。
第8卷%第7期 2009年 7月
软件导刊 Software Guide
Vol.8 No.7 Jul. 2009
旅行商问题求解算法综述
高 珩，鲍 鹏
还有， 若是作为 db2 的 hv， 就必须类型与 DB2 的类型匹 配，如果一个 9 型的来接受，也会造成错误。 COMP 型的变量常 用于表示半个字或者整个字（主机一个字是 4 个字节），比如半 个字也就是 16BIT，对于有符合的数来说就是－32767-＋32767， 所以可以用 S9（5）COMP 来表示，当然也可以用 S9（4）COMP 来 表示（因为 S9（4）表 示 的 范围 是－9999 到＋9999，一 个 字 节存 不 下，也需要 2 个自己存储），对于一个字就是 S9（8）或者 S9（9）。 详细可以自己计算。
作者简介：高珩（1987－），男，山东莱阳人，中国矿业大学计算机科学与技术学院本科生，研究方向为软件工程 ；鲍鹏（1987－），男，江苏徐州人，中国 矿业大学计算机科学与技术学院本科生，研究方向为软件工程。
packed decmial 也是 COMP－3 型。9（4）V99COMP－3 或者 s9
（4）v99comp－3 型。 存储长度计算为［x ／ 2］＋1，［x ／ 2］＋1 表示 9 的
总个数＋1 ／ 2 的取整，原因是做了压缩存储，这个示范就是 4。 如
果这个值是 123456，在内存存储分别是‘0123456F’和‘012345
参考文献：
［1］ CAROL BAROUDI.COBOL 从 入 门 到 精 通 ［M］.邱 仲 潘 ，译.北 京 ： 电 子 工 业 出 版 社 ，2000.
［2］ 郭彩 虹，李 伟.程 序 设 计 类 课 程 教 学 改 革 之 我 见 ［J］.浙 江 树 人 大 学 学 报 ，2005（5）. （责任编辑：杜能钢）
者对主机平台的陌生感，接受 COBOL 语言的编程风格和体会 COBOL 在商业应用开发方面的优势。 分析了基于主机
的 COBOL 语言的数据类型分析，并给出了相应的实验大纲以供参考。
关 键 词 ：COBOL；数 据 类 型
中 图 分 类 号 ：TP312
文 献 标 识 码 ：A
文 章 编 号 ：1672-7800 （2009）11－0066－01
1 COBOL语言的数据类型
COBOL 中使用 PICTURE 子句来定义数据类型。 主要的数 据类型有以下几类，下面将具体分类讲述它们的使用和注意的 地方。
类型
示例
说明
字母形 A（2） 只能使用 26 个字符和空格。
字符形 X（2） 可以使用字符集定义的字符和数字
数字形 S9V99 数字形有三个类型，binary，packed d
关键词：旅行商问题；NP 难题；算法综述；改进方向
中 图 分 类 号 ：TP301.6
文 献 标 识 码 ：A
文 章 编 号 ：1672-7800 （2009）11－0067－02
0 引言
旅行 商 问 题 （TSP）又 称 为 旅 行 推 销 员 问 题 、货 郎 担 问 题 ， 简称为 TSP 问题。 Gaery 已经证明 TSP 问题是 NP 难题， 它是 VRP 的特例，是最基本的路线问题，该问题可以归结为单一旅 行者由起点出发，通过所有给定的需求点之后，最后再回到原 点的最小路径成本求解问题，可以这样来描述旅行商问题：有 N 个城市由公路相互连通，从任一城市到另外城市都要支付 相应的费用，一个销售商从其中一城市出发，访问其他 N－1 个
城市且仅一次，如何规划一条路径，使该旅行商的花费最少。 TSP 还是一个典型的组合优化问题，是诸多领域内出现的多种 复杂问题的集中概括和简化形式， 并且已成为各种启发式的 搜索、优化算法的间接比较标准。 因此，快速、有效地解决 TSP 有着重要的理论价值和极高的实际应用价值。
1 求解TSP的算法介绍
（中国矿业大学 计算机科学与技术学院，江苏 徐州 221116）
摘 要：旅行商问题作为 NP 难题的典型代表，从诞生以来一直都是计算机算法理论研究的热点话题 ，各种针对该问
题的算法层出不穷。 对相关的代表性算法进行了介绍与总结，在分析各种算法的特点之后，提出了各类算法的改进
方向，对旅行商问题的研究进行了展望。
ecimal，zoned decimal.
数字编辑 －zz9.99 用于格式化数值输出
其他如 DBCS 类型，浮点形在 COBOL 使用很少。
对于字符，字母形都比较好理解，所占字符数，就是其定义
的个数。对于数字编辑形，仅仅用于格式化数值，不能进行数值
运算和布尔比较。 计算字符数需要计算。 比方说：－zz99.99 所占
123.45
－ZZ99.99
－123.456
－123.45
我们再详细说一下数值形，按照带不带符合，可以区分符
合 形 ， 非 符 合 形 。 安 装 存 储 类 型 分 为 binary，packed decimal，
zoned decimal。
zone decimal 一般 称 9 型.eg9（4）V99 或 者 s9（4）V99，每 个
字 符 数 就 是 计 算 所 有 定 义 字 符 数 ，1（－）＋2（zz）＋2（99）＋1（.）＋2
（99）＝8。 其中－号表示负数显示－号，正数不显示＋号。 zz 表示前
导 0，就是不显示前面的 0。
举例来说：
PICTURE
Value of Data
Edited Result
－ZZ99.99
＋123.45
2 结束语
本文源于多年的基于主机的 COBOL 教学积累， 实际开发 中编程者要多注 意 COBOL 特 有的 数 据 类 型 ，在 IT 业，没 有 哪
一款产品能够像 IBM 的大型主机那样拥有 40 年的历史 ，同时 又在今天竞争激烈的市场中仍然获得用户的青睐。 目前，全世 界绝大部分重要数据仍然存储于 IBM 大型主机之上 ， 全世界 大部分关键程序仍然在 IBM 大型主机上运行 。 虽然传统程序 设计语言的讲授经常会受到诟病， 但 COBOL 语言中比较独特 之处如固定格式、各种繁多的编辑型数据类型以及独特的表处 理方法等，必须进行具体的钻研，同时也应该意识到 COBOL 是 一门既古老又充满活力的语言 ， 它必将伴随 IBM 主机的辉煌 而继续辉煌。 如何根据市场经济发展的需要，从推动我国软件 业建设的角度出发，在软件开发及外包产业上走出一条自主创 新之路，为社会培养出一批能与世界接轨、具有竞争力的高素 质软件人才，还需要不断地探索。
0 引言
进入 21 世纪， 信息技术将整个世界经济的发展带入了一 个前所未有的高速增长时期，与此同时，由于各地区软件开发 效率及劳动力成本的不同，软件服务外包行业快速成长，已成 为我国不少城市的支柱产业。
笔者从事多年金融证券业软件外包工作，深刻感受到研究 外国已广泛应用但国内研究相对较薄弱的在 IBM 大型机上的 COBOL 开发是很有意义的一件事情。 几年来，笔者对公司新进 员工培训了基于 LINUX 上的各种语言开发培训， 多年的培训 经历让我体会到 ，由于 COBOL 自身具有向自然语言靠近的 特 点，因此 COBOL 语法教学并不难，比较难的环节是如何让初学 者学以致用。 原因有三：其一，大型主机是一个全新的系统环 境 ，初 学 者 平 时并 没 有 机 会 接 触 ；其 二 ，COBOL 源 程 序 的 编 写 格式、程序布局特别是其特有的数据类型有它历史遗留的独特 性， 与初学者平时接触的 C 等语言有较大的区别； 其三， COBOL 是面向商业的开发语言， 离开了具体的应用就失去了 价值。 因此基于主机的 COBOL 实验首先应该消除初学者对编 程语言数据类型的陌生感， 其次要抓住 COBOL 语言的语法特 点，最后，开发练习不能以普通的计算为主设计，而应该尽量模 拟一些商业案例。
9 占一位，符号和 V 不占位。 示例就分别是 6。 如果这个值是
1234.56，在 内 存 存 储 分 别 是 ‘F1F2F3F4F5F6 ’，‘F1F2F3F4F5C-
6’。 对于无符号，就是 123456 的 EBCDIC 码，对于带符号，对于
正数，最后的 F 为 C 表示正，负数为 D 表示负。 示例就是‘C6’。
第8卷%第11期 2009年 11月
软件导刊 So源自文库tware Guide
Vol.8 No.11 Nov. 2009
基于 IBM 大型机的 COBOL 语言的数据类型
喻旸
（重庆正大软件集团 华日软件公司，重庆 401121）
摘 要：在 IBM 大型机上学习 COBOL 语言就是为了应用开发 ，COBOL 语法教学本身不难 ，难点在于如何消除初学
1.1 穷举法 TSP 的描述虽然简 单 ，解决 起 来 却 很 困 难 ，最 简 单 思 路 是
6C’，对于 无 符 号 ，最 后 补 个 F 表 示 无 符 合 ，对 于 带 符 合 ，如 果 是正数就是 C，负数就是 D。 所有总长度就是［x ／ 2］＋1。
使用的时候，数值型之间都可以直接进行各类操作。 但需 要注意的是 ，如果对于未赋值的 COMP－3 型，在赋值前做任何 计算操作，将会导致数据例外 ，但对于 zoned decimal 就会才有 缺省值，不会有数据例外。