NetCOBOL for .NET V8.0 メッセージ集

2.4.266 JMN3493I-S

@1@関数の全ての引数のENUM型は，同じでなければなりません．

引数の説明

@1@:

関数名

例

      000001 IDENTIFICATION  DIVISION.
      000002  PROGRAM-ID. C3493.
      000003 ENVIRONMENT DIVISION.
      000004 CONFIGURATION SECTION.
      000005   REPOSITORY.
      000006     ENUM  ENUM-A AS "MyENUM.ENUMA"
      000007     ENUM  ENUM-B AS "MyENUM.ENUMB".
      000008 DATA DIVISION.
      000009 WORKING-STORAGE SECTION.
      000010  01  DATA1  PIC S9(4) COMP-5.
      000011  01  OBJA   OBJECT REFERENCE ENUM-A.
      000012 PROCEDURE DIVISION.
      000013     SET  OBJA TO
      000014             FUNCTION ENUM-OR ( OBJA ValueA OF ENUM-B ).
      000015 END PROGRAM C3493.
    

      000001 IDENTIFICATION  DIVISION.
      000002  ENUM-ID. ENUM-A AS "MyENUM.ENUMA" INHERITS INT32.
      000003 ENVIRONMENT DIVISION.
      000004 CONFIGURATION SECTION.
      000005   REPOSITORY.
      000006     CLASS  INT32 AS  "System.Int32".
      000007 DATA DIVISION.
      000008 WORKING-STORAGE SECTION.
      000009 01 BASEBALL       VALUE AUTO.
      000010 01 SOCCER         VALUE AUTO.
      000011 01 BASKETBALL     VALUE AUTO.
      000012 01 ソフトボール   VALUE AUTO.
      000013 END ENUM ENUM-A.
    

      000001 IDENTIFICATION  DIVISION.
      000002  ENUM-ID. ENUM-B AS "MyENUM.ENUMB" INHERITS INT64.
      000003 ENVIRONMENT DIVISION.
      000004 CONFIGURATION SECTION.
      000005   REPOSITORY.
      000006     CLASS  INT64 AS  "System.Int64".
      000007 DATA DIVISION.
      000008 WORKING-STORAGE SECTION.
      000009 01 ValueA         VALUE AUTO.
      000010 01 ValueB         VALUE AUTO.
      000011 01 ValueC         VALUE AUTO.
      000012 01 ValueD         VALUE AUTO.
      000013 END ENUM ENUM-B.
    

C3493.cob (14) : JMN3493I-S FUNCTION ENUM-OR関数の全ての引数のENUM型は，同じでなければなりません．