COBOL 真实环境中的编译和调试

Question

我喜欢接触 COBOL 语言的编译和调试。对于一个尽可能接近现实生活的工作环境，有哪些组件和独立性？

在Win32环境下可能吗？还是现代英特尔架构？如果有，有吗 需要特定的启动、操作系统或硬件，还有什么/任何？

我研究了 IBM z/OS，它看起来不像是面向未来全面商业环境的“孩子”的东西。它似乎也适用于 z/ 架构处理器，没有什么可以像 SCALA、Ruby、Haskell 等那样“带回家并开始使用”。

我在 Google 的大部分时间都在讨论 OpenCOBOL、MX Cobol 以及一些 更多兄弟姐妹。我还没有尝试过这些，并且不确定它们是否适用于我搜索的内容。

当我阅读这些内容，查看用户评论的问题，阅读环境常见问题解答时，这些软件包看起来像是某种制作 COBOL 的沙箱，但有一点“额外的额外”。甚至还存在用于开发环境的 COBOL 和 GUI 的 VS .NET 实现！这就是为什么我不标记 OpenCobol 和 NetCobol。

我进一步寻找一个简单的 "hello world", "array[0..10]", "obj = new objectY" "y | y == false" （语言介绍当然从语法开始） 。目的是接触具有目的的常见业务任务。即读入/出数据文件、创建和使用针对 MSSQL 的连接、从执行软件或脚本等获取输入。

Answer 1

OpenCOBOL 可能是您作为入门或爱好学习的最佳选择。它是 FOSS 并且得到相当好的支持。获取一本红皮书或在线教程并查看它。

其他一切都会花费你的钱。富士通 COBOL 可能是 x86 处理器上最常用的 COBOL，至少根据我的经验，但它并不便宜。

您说得对，z/OS 实施并不是那么容易。它通常在大型机上运行。然而，COBOL 也最常出现在同一环境中。有 z/OS 的模拟器，但我认为它们不合法。 IBM 对版权非常严格。

Answer 2

嗯，一些简单的示例：

“Hello World”

Display "Hello World"

“array[0..10]”（假设为 int）

01 My-Array-Area.
  02 My-Array occurs 11 pic s9(8) binary.

“obj - new objectY”（假设 obj 被声明为对象引用）

Invoke objectY new returning obj

“x | y == false”（“ y”关系条件的命名必须与变量“y”不同，除非您进行了组限定，所以我将 1 更改为 x）

if (x or (y = false))
  ...do stuff...
else
  ...do other stuff...
end-if

Answer 3

我们公司在 Cobol 发展已超过 25 年。我们每天仍然在编写新代码。我们的系统包含约 400 万行模块化 Cobol 代码，被新西兰和澳大利亚的许多组织使用。

我们开始使用 Ryan-McFarlane (RM) Cobol，但大约 20 年前改用 AcuCorp 的 AcuCobol。几年前，它们被 Micro-Focus 收购，但 AcuCobol 的东西仍然作为“扩展”存在。这是一个真正现代的 Cobol，可以与 Java 互操作，做客户端-服务器，是多线程的，可以提供 Web 服务等等，而且它也非常独立于平台。您可以在任何当前的 Windows 版本、数十种 Unix 版本（包括许多版本的 Linux）以及旧的大型机平台上使用此 Cobol。它也是“一次编译，到处运行”范式的一个很好的例子，因为我们只在一台机器上编译我们的程序，但该软件在许多不同的平台（Linux、Solaris、AIX、HP/UX、等）

我相信您可以下载 Extend 编译器/运行时的 30 天评估版。

顺便说一句，除了作为一个满意的客户之外，我与 Micro-Focus 没有任何联系。