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

2.4.132 JMN3196I-S

@1@@2@は,CALL文のUSING指定に記述できません.

引数の説明

@1@:

編成種別

@2@:

ファイル名

      000001 IDENTIFICATION DIVISION.
      000002 PROGRAM-ID.  C3196.
      000003 ENVIRONMENT  DIVISION.
      000004 INPUT-OUTPUT SECTION.
      000005 FILE-CONTROL.
      000006     SELECT FILE001 ASSIGN SYS010-DA-OUTFILE
      000007                    ORGANIZATION IS RELATIVE
      000008                    ACCESS MODE IS SEQUENTIAL.
      000009 DATA         DIVISION.
      000010 FILE         SECTION.
      000011 FD  FILE001  LABEL RECORD STANDARD.
      000012 01  LINE-REC       PIC  X(77).
      000013 01  CTL-REC        PIC  X(61).
      000014 PROCEDURE DIVISION.
      000015     OPEN OUTPUT FILE001.
      000016     CALL "EXTPROG" USING BY CONTENT FILE001.
      000017     CLOSE FILE001.
      000018 END PROGRAM  C3196.
    

C3196.cob (16) : JMN3196I-S 相対ファイル'FILE001'は,CALL文のUSING指定に記述できません.