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

2.4.264 JMN3491I-W

このシステムでは，プログラムの手続き部の見出しまたはCALL文にWITHは指定できません．

例

      000001 PROGRAM-ID. C3491-2
      000002 DATA DIVISION.
      000003 LINKAGE         SECTION.
      000004 01 A1    PIC S9(8) BINARY.
      000005 01 B1    PIC X(1).
      000006 PROCEDURE  DIVISION
      000007     WITH C LINKAGE USING A1 B1.
      000008     DISPLAY A1 B1
      000009 END PROGRAM C3491-2.
    

      000001 PROGRAM-ID.  C3491.
      000002 DATA DIVISION.
      000003 WORKING-STORAGE SECTION.
      000004 01 A     PIC S9(8) BINARY.
      000005 01 B     PIC X(1).
      000006 PROCEDURE  DIVISION.
      000007     CALL "C3491-2" WITH C LINKAGE USING A B
      000008 END PROGRAM C3491.
    

C3491-2.cob (7) : JMN3491I-W このシステムでは，プログラムの手続き部の見出しまたはCALL文にWITHは指定できません．
C3491.cob (7) : JMN3491I-W このシステムでは，プログラムの手続き部の見出しまたはCALL文にWITHは指定できません．