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

2.3.515 JMN2889I-S

符号付き外部10進項目のホスト変数にSIGN句を指定する場合，LEADING SEPARATE指定またはTRAILING指定でなければなりません．

例

      000001 IDENTIFICATION DIVISION.
      000002 PROGRAM-ID.    P2889.
      000003 ENVIRONMENT    DIVISION.
      000004 DATA           DIVISION.
      000005 WORKING-STORAGE SECTION.
      000006     EXEC SQL BEGIN DECLARE SECTION END-EXEC.
      000007 01 SQLSTATE    PIC X(5).
      000008 01 HVR1        PIC S9(5) SIGN TRAILING SEPARATE.
      000009     EXEC SQL END   DECLARE SECTION END-EXEC.
      000010 PROCEDURE      DIVISION.
      000011     EXEC SQL
      000012       SELECT COL2 INTO :HVR1
      000013              FROM T1    WHERE COL1 = 0
      000014     END-EXEC
      000015 END PROGRAM    P2889.
    

P2889.cob (8) : JMN2889I-S 符号付き外部10進項目のホスト変数にSIGN句を指定する場合，LEADING SEPARATE指定またはTRAILING指定でなければなりません．