例題
[C3466.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3466. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 DATA DIVISION. 000006 WORKING-STORAGE SECTION. 000007 01 OBJU OBJECT REFERENCE. 000008 01 TYPE-A TYPEDEF STRONG. 000009 02 GP. 000010 03 A1 PIC S9(4) COMP-5. 000011 03 A2 PIC X(50). 000012 01 DATA-A TYPE TYPE-A. 000013 PROCEDURE DIVISION. 000014 INVOKE OBJU "M1" USING GP OF DATA-A. 000015 EXIT PROGRAM. 000016 END PROGRAM C3466.
C3466.cob 14: JMN3466I-S INVOKE文のUSING指定およびRETURNING指定，またはメソッドの行内呼出しの引数として強く型付けされた集団項目を指定する場合，それは01レベル番号のものでなければなりません．
