例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. P2097.
000003 ENVIRONMENT DIVISION.
000004 DATA DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WVAR PIC 9(2).
000007 88 ZOK VALUE 10.
000008 88 ZNG VALUE -10.
000009 PROCEDURE DIVISION.
000010 END PROGRAM P2097.
P2097.cob (8) : JMN2097I-W 条件変数が符号なし数字項目である条件名のVALUE句に，符号付き数字定数は指定できません．数字定数の符号を無効にし，符号なし数字定数として扱います．
詳細な説明
条件変数が符号なし数字項目であるときは，条件名記述項(レベル番号が88)のVALUE句の値として符号なしの数字定数を記述しなければなりません．
符号付きの数字定数を指定した場合は符号は無効になり，符号なしの数字定数が条件変数の値になります．