COBOL-了解我自己

COBOL-了解我自己,cobol,gnucobol,cobol85,Cobol,Gnucobol,Cobol85,在COBOL程序中,我有以下语句: SET MYSELF (STATUS) TO -1. 这句话是什么意思?我不明白我自己和地位的话。看起来它给状态参数赋值为-1,对吗?“我自己”是什么意思?我自己是一个保留字,允许编译器提供的任务项引用自己进程的属性。因此,您正在将自己流程中的状态设置为-1 (PDF链接) 保留字本身是编译器提供的任务项 使程序能够访问自己的任务属性。因此,任何 给定任务的属性可以在该任务中引用为 我自己的名字 例如,将我自己的属性DECLAREDPRIORITY更改为9

在COBOL程序中,我有以下语句:

SET MYSELF (STATUS) TO -1. 

这句话是什么意思?我不明白我自己和地位的话。看起来它给状态参数赋值为-1,对吗?“我自己”是什么意思?

我自己是一个保留字,允许编译器提供的任务项引用自己进程的属性。因此,您正在将自己流程中的状态设置为-1

(PDF链接)

保留字本身是编译器提供的任务项 使程序能够访问自己的任务属性。因此,任何 给定任务的属性可以在该任务中引用为 我自己的名字

例如,将我自己的属性DECLAREDPRIORITY更改为90。 将我自己的属性伙伴的属性DECLAREDPRIORITY更改为65

第二个示例演示了另一个正在运行的任务和您正在运行的任务。 PARTNER属性引用另一个任务,示例更改了 声明其他任务的优先级

在“普通”COBOL程序中,此语句无效<代码>我自己将是
发生
(一个“表格单元格”)下方的一个条目,
状态
将是要使用的索引(=一个数字变量)

但是由于
SET
语句只能(“标准COBOL”)调整
指针类型的变量
索引类型的变量
,并且不能将两者都设置为负值,因此该语句通常无效


有些实现可以使用
SET
来调整任何数值变量(如果目标是有符号变量,-1将有效),但正如@JerryTheGreek指出的,它看起来是没有COBOL而是“任务属性标识符(扩展到ANSI X3.23-1974 COBOL)”.

谢谢你提供的额外背景资料。需要知道的一件事是,这不是COBOL,而是一个Unisys扩展,如aboce所述。只需注意:这不是COBOL74的“通用”扩展,例如“VAX-11 COBOL-74语言参考手册”没有引用类似的内容。