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

2.4.182 JMN3333I-S

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

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