在Micro Focus Cobol Eclipse中運行Cobol程序時出現錯誤。不知道爲什麼會發生這種情況。請幫助我,因爲我必須將此作爲我明日作業的一部分提交。 另一個問題,如果可能的話,請幫助我的變量,我把它放在本地存儲部分。例如,在Java中,我想將其設置爲全局訪問的每種方法?Cobol錯誤代碼是什麼意思:243?
控制文件:
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.
結果是:
再見再見
執行錯誤:文件 '客戶' 錯誤代碼:243,pc = 0,call = 1,seg = 0 243錯誤消息文本未找到
我終於找到了錯誤。謝謝大家:D – Silentbang 2011-06-16 06:14:13