例題
[P2123.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2123. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 GR1 USAGE BINARY. 000007 02 E1 PIC X(4). 000008 PROCEDURE DIVISION. 000009 END PROGRAM P2123.
P2123.cob 7: JMN2123I-S PICTURE句の文字列が上位集団項目に指定したUSAGE句の指定と矛盾しています.PICTURE句の文字列を有効とみなします.
詳細な説明
PICTURE句では基本項目の項類を,USAGE句ではデータ項目の用途を規定します.なおUSAGE句を集団項目に指定したとき,その指定は集団に従属する各項目にも適用されます.したがって,従属する基本項目に明にUSAGE句が書かれていなくても用途が指定されているとみなされます.各項類に対して指定できる用途はそれぞれ決められており,それ以外の組み合わせはできません.