NetCOBOL V11.0 メッセージ集

2.5.301 JMN3465I-S

@1@文においてINTO指定の@2@が強く型付けられた集団項目である場合，@3@のレコード記述は一つでなければなりません．

埋め込みの説明

@1@ : READ/RETURN
@2@ : 一意名
@3@ : ファイル名

例題

[C3465.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3465.
000003 ENVIRONMENT DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 FILE-CONTROL.
000006     SELECT A-FILE ASSIGN TO SYS001.
000007 DATA DIVISION.
000008 FILE SECTION.
000009 FD A-FILE.
000010  01 RECA1   PIC X(80).
000011  01 RECA2   PIC X(100).
000012 WORKING-STORAGE SECTION.
000013 01 STG    TYPEDEF STRONG.
000014    02   A     PIC X(40).
000015    02   B     PIC N(20).
000016 01 INTOA TYPE STG.
000017 PROCEDURE  DIVISION.
000018     OPEN INPUT A-FILE.
000019     READ A-FILE INTO INTOA.
000020 END PROGRAM  C3465.

C3465.cob 19: JMN3465I-S READ文においてINTO指定の'INTOA'が強く型付けられた集団項目である場合，'A-FILE'のレコード記述は一つでなければなりません．