例題
[C3464.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3464. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 STG TYPEDEF STRONG. 000006 02 A PIC X(40). 000007 02 B PIC N(20). 000008 01 ABC TYPE STG. 000009 01 DEF PIC X(80). 000010 PROCEDURE DIVISION. 000011 IF ABC = DEF THEN 000012 DISPLAY "OK" 000013 END-IF. 000014 END PROGRAM C3464.
C3464.cob 11: JMN3464I-S データ項目のどちらかが強く型付けされた集団項目である場合，もう一方のデータ項目も同じ型で強く型付けされた集団項目でなければなりません．
