ページの先頭行へ戻る
NetCOBOL for .NET V8.0 メッセージ集
FUJITSU Software

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として扱われます.