理解呼叫x "91"

Question

谁能帮我理解一下调用x "91 "函数11和函数12的简单例子。我已经尝试搜索，但无法理解它。现在我在UNIX环境下的COBOL中使用这段代码，这段代码在windows环境下也能用吗？

Answer 1

CALL的X "F4"，X "F5"，X "91 "来自MF.您可以在MF在线文档的Library Routines下找到它们。

F4F5是用于packingunpacking bits from to bytes.91是一个多用途的调用。实现的子函数有getset cobol开关(11, 12)和get number of call params (16)。

使用

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

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

X "F5 "例程将8个字节中的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个OpenCOBOL运行时开关的开启和关闭状态。16返回给当前模块的调用参数数。

Answer 2

x'91' 是一个通用的库例程，完整的列表请参见 MF文件. 该文件还规定了其职能11 和功能12 做法：他们设读 COBOL运行时开关 0-7 和内部调试模式开关。

除了这些库例程外，您还可以点读从COBOL中设置 "一些 "开关，并通过 SET 声明.