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

2.7.68 JMN9333I-W

(@1@)CALL文中のUSING句に指定した作用対象の個数は5個以下でなければなりません.
処理を続行します.

引数の説明

@1@:

STD

      000001 @OPTIONS FLAGSW(STDM)
      000002 IDENTIFICATION  DIVISION.
      000003 PROGRAM-ID.     P9333.
      000004 ENVIRONMENT     DIVISION.
      000005 DATA            DIVISION.
      000006 WORKING-STORAGE SECTION.
      000007 01 REC01.
      000008    02  REC02    PIC 9(4).
      000009    02  REC03    PIC 9(4).
      000010    02  REC04    PIC 9(4).
      000011    02  REC05    PIC 9(4).
      000012    02  REC06    PIC 9(4).
      000013    02  REC07    PIC 9(4).
      000014 PROCEDURE    DIVISION.
      000015 P-START.
      000016     CALL "Z9333" USING REC02
      000017                        REC03
      000018                        REC04
      000019                        REC05
      000020                        REC06
      000021                        REC07.
      000022     STOP RUN.
    
      000001 IDENTIFICATION  DIVISION.
      000002 PROGRAM-ID.     Z9333.
      000003 DATA            DIVISION.
      000004 LINKAGE         SECTION.
      000005 01 LREC01       PIC 9(4).
      000006 01 LREC02       PIC 9(4).
      000007 01 LREC03       PIC 9(4).
      000008 01 LREC04       PIC 9(4).
      000009 01 LREC05       PIC 9(4).
      000010 01 LREC06       PIC 9(4).
      000011 PROCEDURE       DIVISION USING LREC01
      000012                                LREC02
      000013                                LREC03
      000014                                LREC04
      000015                                LREC05
      000016                                LREC06.
      000017     EXIT PROGRAM.
    

P9333.cob (16) : JMN9333I-W (STD)CALL文中のUSING句に指定した作用対象の個数は5個以下でなければなりません.処理を続行します.