例題
[C3388.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3388. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 A PIC S9(8) BINARY. 000006 01 B PIC S9(4) BINARY. 000007 01 C PIC X(1). 000008 PROCEDURE DIVISION. 000009 CALL "SUBPROG" USING A B C. 000010 EXIT PROGRAM. 000011 IDENTIFICATION DIVISION. 000012 PROGRAM-ID. SUBPROG. 000013 DATA DIVISION. 000014 LINKAGE SECTION. 000015 01 A1 PIC S9(8) BINARY. 000016 01 B1 PIC S9(4) BINARY. 000017 01 C1 PIC X(1). 000018 PROCEDURE DIVISION WITH PASCAL LINKAGE 000019 USING A1 B1 C1. 000020 DISPLAY A1 B1 C1. 000021 END PROGRAM SUBPROG. 000022 END PROGRAM C3388.
C3388.cob 19: JMN3388I-S 内部プログラムの手続き部の見出しまたは内部プログラムを呼ぶCALL文にWITHは指定できません．
