理解电话x“91”

Question

有人可以通过简单的例子帮助我理解调用x“91”功能11和功能12。我试图搜索并无法理解它。现在我在UNIX环境下在COBOL中使用此代码，此调用是否也适用于Windows环境？

Answer 1

http://opencobol.add1tocobol.com/#what-are-the-xf4-xf5-and-x91-routines

CALL的X“F4”，X“F5”，X“91”来自MF。 您可以在以下的在线MF文档中找到它们 图书馆例程。

F4 / F5用于打包/解压缩/到字节的位。 91是多用途呼叫。已实现的是子功能 获取/设置cobol开关（11,12）并获得呼叫参数（16）。

使用

CALL X"F4" USING
           BYTE-VAR
           ARRAY-VAR
       RETURNING STATUS-VAR

将8字节ARRAY-VAR中每个字节的最后一位打包成1字节BYTE-VAR的相应位。

X“F5”例程取8位字节并将它们移动到数组中相应的位置。

X“91”是一个多功能程序。

CALL X"91" USING
           RESULT-VAR
           FUNCTION-NUM
           PARAMETER-VAR
       RETURNING STATUS-VAR

如Roger所述，OpenCOBOL支持11,12和16的FUNCTION-NUM。

11和12获取并设置在SPECIAL-NAMES段中可定义的8（8）个运行时OpenCOBOL开关的开启状态。 16返回给当前模块的调用参数的数量。

Answer 2

x'91'是一个常规的库例程，有关它们的完整列表，请参见MF documentation。
本文档还指定了function 11和function 12的用途：它们设置/读取COBOL runtime switches 0-7和内部调试模式开关。

除了这些库例程外，您还可以read them one by one从COBOL并通过SET statement设置“某些”开关。