例題
[C3029.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3029. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 REC. 000007 02 REC-DATA PIC X(10). 000008 PROCEDURE DIVISION. 000009 P-START. 000010 CALL "C3029SUB" USING INT-START REC. 000011 INT-START. 000012 STOP RUN. 000013 IDENTIFICATION DIVISION. 000014 PROGRAM-ID. C3029SUB. 000015 ENVIRONMENT DIVISION. 000016 DATA DIVISION. 000017 LINKAGE SECTION. 000018 01 RETURN-P PIC S9(8). 000019 01 REC. 000020 02 REC-DATA PIC X(10). 000021 PROCEDURE DIVISION USING RETURN-P REC. 000022 P-START. 000023 CALL "C3029SUC" USING RETURN-P. 000024 END PROGRAM C3029SUB. 000025 END PROGRAM C3029.
C3029.cob 10: JMN3029I-S このCALL文では，USING指定に手続き名を記述できません．
