例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. P2008.
000003 DATA DIVISION.
000004 WORKING-STORAGE SECTION.
000005 01 G1 SIGN LEADING.
000006 02 E1 PIC X(10).
000007 02 E2 PIC 9(10).
000008 PROCEDURE DIVISION.
000009 END PROGRAM P2008.
P2008.cob (5) : JMN2008I-W 集団項目にSIGN句が指定された場合,従属する基本項目に一つ以上の符号付き外部10進項目が指定されなければなりません.SIGN句は無効になります.
詳細な説明
SIGN句は,数字項目の符号の形式と位置を指定するものですが,以下の場合には有効になりません.
符号なしの数字項目
明または暗にDISPLAY以外のUSAGE句が指定されている.
この診断メッセージが出力される場合,SIGN句は意味を持ちません.SIGN句を削除するべきです.