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

2.3.192 JMN1314I-S

TRACK-LIMIT句は,直接編成ファイル以外に指定できません.

例題

[C1314.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID.     C1314.
000003 ENVIRONMENT     DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT IN-F ASSIGN SYS000
000007     ACCESS MODE IS SEQUENTIAL
000008     TRACK-LIMIT IS 1
000009     .
000010 DATA            DIVISION.
000011 FILE            SECTION.
000012 FD  IN-F.
000013 01  IN-R  PIC X(80).
000014 END PROGRAM     C1314.

C1314.cob 8: JMN1314I-S TRACK-LIMIT句は,直接編成ファイル以外に指定できません.