ページの先頭行へ戻る
NetCOBOL V11.0 メッセージ集
FUJITSU Software

2.5.192 JMN3333I-S

CALL文のUSING指定に記述したパラメタの個数は,PROCEDURE DIVISIONのUSING指定に記述したパラメタの個数と一致していなければなりません.

例題

[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指定に記述したパラメタの個数と一致していなければなりません.

詳細な説明

パラメタの個数が同じになるようにプログラムを修正してください.