首页
学习
活动
专区
圈层
工具
发布
社区首页 >问答首页 >Cobol错误代码: 243是什么意思?

Cobol错误代码: 243是什么意思?
EN

Stack Overflow用户
提问于 2011-06-15 14:17:35
回答 1查看 494关注 0票数 0

在Micro Focus Cobol Eclipse中运行Cobol程序时出现错误。不知道为什么会这样。请帮帮我,因为我明天必须提交这个作为我重要作业的一部分。另一个问题,如果可能的话,请帮我处理变量,我把它放在本地存储部分。例如,在Java中,我希望将其设置为全局,以使每个方法都能获得访问权限。

控制文件:

代码语言:javascript
复制
   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.

下面是类文件:

代码语言:javascript
复制
   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找不到错误消息文本

EN

回答 1

Stack Overflow用户

回答已采纳

发布于 2011-06-15 19:09:45

根据Micro Focus网站上的文档,错误243的解释如下。

“无法加载COBRT243类(致命)

加载对象类的尝试失败,因为该类不包含有效的Class-Control节,或者没有正确定义该类。“

检查是否正确定义了Student。

票数 0
EN
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接:

https://stackoverflow.com/questions/6353804

复制
相关文章

相似问题

领券
问题归档专栏文章快讯文章归档关键词归档开发者手册归档开发者手册 Section 归档