我现在正在大型机上工作,在一些模块中进行测试
不为空或空
我们看到:
NOT = SPACE OR LOW-VALUE
酋长说我们应该这样做:
NOT = SPACE AND LOW-VALUE
哪一个 ?
谢谢!
10 ERROR-FLAG PIC X VALUE 'N'.
88 ERROR-FOUND VALUE 'Y'.
88 ERROR-NOT-FOUND VALUE 'N'.
Run Code Online (Sandbox Code Playgroud)
如果我做:
SET ERROR-NOT-FOUND TO TRUE
Run Code Online (Sandbox Code Playgroud)
然后我做:
SET ERROR-FOUND TO TRUE
Run Code Online (Sandbox Code Playgroud)
现在,ERROR-FLAG,ERROR-FOUND和ERROR-NOT-FOUND的值是什么?
01 g1.
05 h1 PIC X VALUE 'N'.
88 s1 VALUE 'Y'.
88 s2 VALUE 'N'.
Run Code Online (Sandbox Code Playgroud)
在上面的代码中,s1和s2的值是多少?它是否保持组变量(05)中给出的值,或者它将具有自己的值?
这是非常基本的问题.
我必须为COBOL程序写出数据术语表.此数据词汇表包含有关每个变量的以下详细信息:
我有几个变量,包括88级开关.我的问题是:这些88级交换机是否被视为变量,我应该将它们包含在数据术语表中吗?或者,根据我必须使用的数据词汇表结构判断,在这种情况下是否应该忽略它们?
虽然我在这里,另一个简单的问题.填充程序是否应包含在数据词汇表中?该程序特别包含大量填充变量,大多数是简单的"PIC X"变量.
我正在查看一段包含以下行的COBOL代码:
SET NO-FURTHER-PROCESSING-REQD TO TRUE
Run Code Online (Sandbox Code Playgroud)
它还包含以下行:
IF FURTHER-PROCESSING-REQD
...
END-IF.
Run Code Online (Sandbox Code Playgroud)
是否有一些神奇的事情,没有"NO-"前缀的变量会自动设置为带有前缀的变量的反面?或者这更可能是程序员的疏忽?