例
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指定および行内呼出しの引数に指定された一意名は,部分参照できません.