例
000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3333. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 A PIC X(10). 000006 PROCEDURE DIVISION. 000007 CALL "SUB" USING A. 000008 STOP RUN. 000009 IDENTIFICATION DIVISION. 000010 PROGRAM-ID. SUB. 000011 DATA DIVISION. 000012 LINKAGE SECTION. 000013 01 B PIC X(10). 000014 01 C PIC X(10). 000015 PROCEDURE DIVISION 000016 USING B C. 000017 EXIT PROGRAM. 000018 END PROGRAM SUB. 000019 END PROGRAM C3333.
C3333.cob (7) : JMN3333I-S CALL文のUSING指定に記述したパラメタの個数は,PROCEDURE DIVISIONのUSING指定に記述したパラメタの個数と一致していなければなりません.