ページの先頭行へ戻る
NetCOBOL V11.1 メッセージ集
FUJITSU Software

2.4.61 JMN2105I-W

条件名のVALUE句に指定したブール定数の長さは,8の倍数でなければなりません. 8の倍数になるように右端に0を補います.

例題

[P2105.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2105.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 D1          PIC X(1).
000007 88 CD1         VALUE "1".
000008 88 CD2         VALUE B"1".
000009 PROCEDURE      DIVISION.
000010 END PROGRAM    P2105.

P2105.cob 8: JMN2105I-W 条件名のVALUE句に指定したブール定数の長さは,8の倍数でなければなりません.8の倍数になるように右端に0を補います.

詳細な説明

条件変数が英字,英数字,英数字編集または集団項目のとき,条件名記述項(レベル番号が88)のVALUE句にブール定数が指定されたならば,ブール文字('0'または'1')1個が1ビットの領域を占めるもの(ブール文字8個で1バイト)とみなして条件名の値とするため,ブール文字の個数は8の倍数である必要があります.

8の倍数でない場合,ブール定数の右側にブール文字'0'を補って8の倍数とみなします.