例題
[P2008.cob] 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句を削除するべきです.