例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. C3029.
000003 ENVIRONMENT DIVISION.
000004 DATA DIVISION.
000005 WORKING-STORAGE SECTION.
000006 PROCEDURE DIVISION.
000007 P-START.
000008 CALL "C3029SUB" USING INT-START.
000009 INT-START.
000010 EXIT PROGRAM.
000011 IDENTIFICATION DIVISION.
000012 PROGRAM-ID. C3029SUB.
000013 ENVIRONMENT DIVISION.
000014 DATA DIVISION.
000015 LINKAGE SECTION.
000016 01 RETURN-P POINTER.
000017 PROCEDURE DIVISION USING RETURN-P.
000018 DISPLAY "C3029SUB".
000019 END PROGRAM C3029SUB.
000020 END PROGRAM C3029.
C3029.cob (8) : JMN3029I-S このCALL文では，USING指定に手続き名を記述できません．