如何从从 Assembly 返回到 COBOL 的指针寻址数据缓冲区

Question

我有一个调用程序集模块的 COBOL 程序。此模块 returns 指向在此模块内获得的某些数据（我将其称为 'buffer'）的指针。如何将工作存储中的变量寻址到此指针并使用数据？

在我的 COBOL 调用程序中，我有类似的东西：

工作存储：

01 WK-MOD-AREA.
   03 WK-MOD-PTR          PIC 9(09) COMP VALUE 0.

01 WK-BUFFER-PTR          USAGE POINTER.
01 FILLER                 REDEFINES WK-BUFFER-PTR.
   03 WK-BUFFER-PTR-COMP  PIC 9(09) COMP.
01 WK-BUFFER-DATA         PIC X(5656) VALUE SPACES.

程序部：

CALL 'MYMOD' USING WK-MOD-AREA.

MYMOD returns WK-MOD-PTR中的一个地址。

我刚刚尝试使用以下方式处理数据：

MOVE WK-MOD-PTR TO WK-BUFFER-PTR-COMP.

SET ADDRESS OF WK-BUFFER-PTR TO WK-BUFFER.

但它给了我编译器错误：

==000657==> IGYPS2161-S "ADDRESS OF" operand "WRK-BUFFER" 
was found as the receiving operand of a "SET" statement, 
but was not a level-01 or level-77 "LINKAGE SECTION" item.  
The statement was discarded.

提前致谢。

Answer 1

你可以做你想做的，但你不能改变WORKING-STORAGE SECTION中的项目的地址，这些项目有一个固定的地址，并在程序第一次激活时分配。正如您的编译器已经告诉您的那样，您可以对 LINKAGE SECTION 中的项目执行此操作，因为它们没有固定地址且未分配。

并且根据您的实际使用情况，您可以将 POINTER 直接传递给程序而不是中间变量：

Working-Storage SECTION.

01 WK-BUFFER-PTR          USAGE POINTER.

LINKAGE SECTION.
01 WK-BUFFER-DATA         PIC X(5656) VALUE SPACES.

Procedure Division.

CALL 'MYMOD' USING WK-BUFFER-PTR.
SET ADDRESS OF WK-BUFFER-DATA TO WK-BUFFER-PTR.

备注：

您仍然需要确保数据在使用后在某处被释放（可能通过调用带有释放参数的分配程序）。
您必须确保您访问的字段不会超过实际分配的长度，如果它不总是 5656 字节的话。为确保这一点，您可以使用引用修改 WK-BUFFER-DATA (1:actual-length) 或具有可变大小 DEPENDING ON 的 table（对 OCCURS UNBOUNDED 尤其有用）。

如何从从 Assembly 返回到 COBOL 的指针寻址数据缓冲区

How to address a databuffer from a pointer returned from Assembly to COBOL

assembly

cobol

mainframe