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

2.5.135 JMN3196I-S

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

埋め込みの説明

@1@ : 編成種別
@2@ : ファイル名

例題

[C3196.cob]
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指定に記述できません.