例題
[P2035.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2035. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 WNUM PIC 9(3)V99 VALUE -12.34. 000006 PROCEDURE DIVISION. 000007 END PROGRAM P2035.
P2035.cob 5: JMN2035I-W 符号付き数字定数は,符号なし数字項目に指定できません.数字定数の符号は,無効になります.
詳細な説明
符号なし数字項目の初期値をVALUE句で指定するときは,符号なしの数字定数を記述しなければなりません.
符号付きの数字定数を指定した場合は符号は無効になり,符号なしの数字定数として数字項目に設定されます.