在Micro Focus Cobol Eclipse中运行Cobol程序时出现错误。不知道为什么会这样。请帮帮我,因为我明天必须提交这个作为我重要作业的一部分。另一个问题,如果可能的话,请帮我处理变量,我把它放在本地存储部分。例如,在Java中,我希望将其设置为全局,以使每个方法都能获得访问权限。
控制文件:
Identification Division.
Program-Id. Client.
Environment Division.
Configuration Section.
Repository.
Class Student.
Data Division.
Working-Storage Section.
01 H object reference Student.
Procedure Division.
display "goodbye goodbye".
Invoke Student "new" returning H.
Invoke H "sayHello".
Invoke H "GetAverage" .
Invoke H "Grading".
Exit Program.
End Program Client.下面是类文件:
class-id. Student data is protected
* inherits from base with data
inherits Base.
object section.
class-control.
Student is class "student"
base is class "base"
.
working-storage section.
class-object.
object-storage section.
Method-Id. sayHello.
Procedure Division.
Display "Hello World!".
* Display "I'm hello".
End Method sayHello.
*Method1
method-id. "GetAverage".
local-storage section.
linkage section.
01 English pic 99 value 9.
01 Math pic 99 value 5.
01 AverMark pic 99 value 3.
procedure division using by reference English,
by reference Math.
* returning AverMark.
COMPUTE AverMark = (English+Math)/2
Display "Average mark is ", AverMark.
Accept English.
exit method.
end method "GetAverage".
*Method2
method-id. "Grading"
local-storage section.
linkage section.
01 AverMark pic 9.
01 Grade pic X.
procedure division using by reference AverMark.
* returning Grade.
IF AverMark < 5
MOVE "FAIL" TO Grade
ELSE
MOVE "PASS" TO Grade.
exit method.
end method "Grading".
end class-object.
end class Student. 结果是:
再见再见
执行错误:文件'Client‘错误代码: 243,pc=0,call=1,seg=0 243找不到错误消息文本
发布于 2011-06-15 19:09:45
根据Micro Focus网站上的文档,错误243的解释如下。
“无法加载COBRT243类(致命)
加载对象类的尝试失败,因为该类不包含有效的Class-Control节,或者没有正确定义该类。“
检查是否正确定义了Student。
https://stackoverflow.com/questions/6353804
复制相似问题