例題
[C3029.cob] 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指定に手続き名を記述できません.