例題
[C3432.cob] 000001 CLASS-ID. C3432. 000002 ENVIRONMENT DIVISION. 000003 CONFIGURATION SECTION. 000004 REPOSITORY. 000005 OBJECT. 000006 DATA DIVISION. 000007 WORKING-STORAGE SECTION. 000008 PROCEDURE DIVISION. 000009 METHOD-ID. C3432-M. 000010 DATA DIVISION. 000011 WORKING-STORAGE SECTION. 000012 01 WK1 PIC X(20). 000013 LINKAGE SECTION. 000014 01 RTN PIC X(20). 000015 PROCEDURE DIVISION USING RTN. 000016 INVOKE SELF "C3432-M" USING WK1(1:18). 000017 END METHOD C3432-M. 000018 END OBJECT. 000019 END CLASS C3432.
C3432.cob 16: JMN3432I-S INVOKE文のBY REFERENCE指定，RETURNING指定および行内呼出しの引数に指定された一意名は，部分参照できません．
