例題
[C3333.cob] 000001 @OPTIONS CHECK(PRM) 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. C3333. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC X(10). 000007 PROCEDURE DIVISION. 000008 CALL "SUB" USING A. 000009 STOP RUN. 000010 IDENTIFICATION DIVISION. 000011 PROGRAM-ID. SUB. 000012 DATA DIVISION. 000013 LINKAGE SECTION. 000014 01 B PIC X(10). 000015 01 C PIC X(10). 000016 PROCEDURE DIVISION 000017 USING B C. 000018 EXIT PROGRAM. 000019 END PROGRAM SUB. 000020 END PROGRAM C3333.
C3333.cob 8: JMN3333I-S CALL文のUSING指定に記述したパラメタの個数は,PROCEDURE DIVISIONのUSING指定に記述したパラメタの個数と一致していなければなりません.
詳細な説明
パラメタの個数が同じになるようにプログラムを修正してください.