例題
[P2104.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2104. 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"10101010". 000009 PROCEDURE DIVISION. 000010 END PROGRAM P2104.
P2104.cob 8: JMN2104I-W 条件変数が英字,英数字,英数字編集または集団項目である条件名のVALUE句に,ブール定数は指定できません.1ブール文字を1ビットとみなして,左づめで格納します.
詳細な説明
条件変数が英字,英数字,英数字編集または集団項目のとき,条件名記述項(レベル番号が88)のVALUE句でブール定数が指定されたならば,ブール文字("0"または"1")1個が1ビットの領域を占めるもの(ブール文字8個で1バイト)とみなして,条件名の値とします.このとき,条件変数の項目長に合わせて値は左詰めされ,残りの領域には空白文字が設定されます.