cobol - 在运行时显示 loadlib

Question

目前在我的商店中，我们有一个标准的 SYSOUT header ，其中显示了一堆有用的信息，例如:

节目名称

环境

开始时间

程序编译时

对我们来说非常有用的一件事是显示当前程序正在从哪个加载库运行。我能够使用 IBM 内在函数 WHEN-COMPILED 获得编译日期时间，但我找不到任何可以让我获得 loadlib 的东西。

解决这个问题的正确方法是什么？

Answer 1

从我在 ibm-main listserv 上看到的情况来看，对于这个问题没有通用的解决方案适用于所有情况。话虽如此，您的具体案例可能有 Peter Relson 在 https://groups.google.com/d/msg/bit.listserv.ibm-main/-kkUfvDpprk/L5PHW_HOyxMJ 建议的解决方案。 :

模仿系统搜索顺序并对相关成员的每个数据集执行 BLDL。当您找到该成员时，您可能知道它是从哪个库加载的。我说“可能”是因为可能该成员已加载，然后有人将其从库中删除。然后可能会将其添加到不同的库中。

如果您关注讨论线程，您将看到一位成员成功创建了一个汇编程序模块来完成我认为您所问的事情。也许他们愿意分享他们的代码，或者已经在 CBTTAPE 网站上。