例題
[C3440.cob] 000001 CLASS-ID. C3440. 000002 FACTORY. 000003 PROCEDURE DIVISION. 000004* 000005 METHOD-ID. M3440-M1. 000006 DATA DIVISION. 000007 WORKING-STORAGE SECTION. 000008 LINKAGE SECTION. 000009 01 FPRM PIC X ANY LENGTH. 000010 PROCEDURE DIVISION USING FPRM. 000011 DISPLAY FPRM. 000012 END METHOD M3440-M1. 000013* 000014 METHOD-ID. M3440-M2. 000015 DATA DIVISION. 000016 WORKING-STORAGE SECTION. 000017 01 PRM PIC X(2). 000018 LINKAGE SECTION. 000019 PROCEDURE DIVISION. 000020 INVOKE SELF "M3440-M1" 000021 USING BY CONTENT PRM. 000022 END METHOD M3440-M2. 000023* 000024 END FACTORY. 000025 END CLASS C3440.
C3440.cob 20: JMN3440I-S 仮パラメタがANY LENGTH句付きである場合，それに対応するINVOKE文のUSINGパラメタまたはメソッドの行内呼出しの引数は，BY REFERENCE指定のデータ名，ALL定数以外の文字定数または日本語文字定数でなければなりません．
