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

2.4.12 JMN3011I-S

除数の値がゼロです．ここでいうゼロとは，値ゼロの数字定数，表意定数ZERO，演算の結果で有効けたがすべて消失した場合のいずれかです．
受取り側項目のPICTURE句で指定されたけた数だけの9を転記します．ただし，算術式の途中でこのような除算が実行されると，その結果は30けたの9として扱われます．

例

      000001 IDENTIFICATION DIVISION.
      000002 PROGRAM-ID.  C3011.
      000003 DATA DIVISION.
      000004 WORKING-STORAGE SECTION.
      000005 01  ED01  PIC  S9(9).
      000006 01  ED02  PIC  S9(9).
      000007 PROCEDURE  DIVISION.
      000008     COMPUTE ED01 = ED02 / 0.
      000009 END PROGRAM  C3011.
    

C3011.cob (8) : JMN3011I-S 除数の値がゼロです．ここでいうゼロとは，値ゼロの数字定数，表意定数ZERO，演算の結果で有効けたがすべて消失した場合のいずれかです．受取り側項目のPICTURE句で指定されたけた数だけの9を転記します．ただし，算術式の途中でこのような除算が実行されると，その結果は30けたの9として扱われます．