z/OS批处理环境下，如何在COBOL模块X中识别调用程序Y的名称？

在z/OS批处理环境下的Enterprise COBOL里，确实能绕过Linkage Section传参的方式，直接通过LE（Language Environment）的特性来拿到调用程序的名称，不用依赖开发人员手动传递字面量。下面分享两种经过验证的可行方法：

方法1：用LE的CEEFRMTD服务提取调用栈 #

CEEFRMTD是LE提供的格式化转储服务，我们可以利用它生成精简的调用栈信息，再从中解析出上一级调用程序的名称。这种方法兼容性好，不用深入LE内部结构：

首先，在你的COBOL模块X里添加调用CEEFRMTD的代码，示例片段如下：

IDENTIFICATION DIVISION.
       PROGRAM-ID. MODULE-X.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  DUMP-OUTPUT       PIC X(8000).  *> 足够容纳调用栈信息的缓冲区
       01  BUF-LEN           PIC S9(9) BINARY VALUE 8000.
       01  RC                PIC S9(9) BINARY.
       01  RS                PIC S9(9) BINARY.
       PROCEDURE DIVISION.
           CALL 'CEEFRMTD' USING DUMP-OUTPUT, BUF-LEN, RC, RS.
           IF RC = 0
               THEN
                   *> 解析DUMP-OUTPUT，找到调用栈部分
                   *> 调用栈通常以"CALL STACK"为标识，下一行就是直接调用者的信息
                   PERFORM PARSE-CALLER-NAME
           END-IF.
           GOBACK.
       PARSE-CALLER-NAME.
           *> 这里写具体的解析逻辑：比如先定位到"CALL STACK"行，
           *> 然后读取下一行，提取其中的程序名称字段
           *> 测试时可以先把DUMP-OUTPUT打印出来，确认格式后再写解析

方法2：直接访问LE的CEECAA控制块 #

如果你追求更高的效率，可以直接读取LE的核心控制块CEECAA（Common Execution Environment Communications Area），里面存储了当前执行环境的调用链信息。不过这种方式需要对LE的内部结构有一定了解，不同LE版本可能有细微差异：

• 先通过调用CEECAA服务获取该控制块的地址；
• CEECAA中的CEECAA_CALL_CHAIN字段指向调用链的链表节点，每个节点包含了调用程序的名称、地址等信息；
• 遍历链表找到直接调用当前模块的那个节点，提取程序名称。

这种方式不用生成转储，性能更优，但需要注意兼容性，建议在目标z/OS环境的LE版本下做测试验证。

一些额外提示 #

• 确保你的COBOL程序是在LE环境下编译运行的（Enterprise COBOL默认就是用LE，一般不用额外配置）；
• 用CEEFRMTD的时候，注意缓冲区大小要足够，避免截断调用栈信息；
• 如果是多层嵌套调用，要注意区分直接调用者和上层调用者，别拿错了程序名称。

内容的提问来源于stack exchange，提问作者pmax