NetCOBOL V11.1 メッセージ集

2.4.177 JMN2343I-W

RECORD句で指定した整数(最大文字位置数)はレコード長と等しいか大きくなければなりません． RECORD句は，無効になります．

例題

[P2343.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2343.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001.
000007 I-O-CONTROL.
000008 DATA           DIVISION.
000009 FILE            SECTION.
000010 FD SQFILE1
000011       RECORD CONTAINS 30 TO 70.
000012 01 SQF1REC.
000013   02           PIC X(80).
000014 PROCEDURE      DIVISION.
000015 END PROGRAM    P2343.

P2343.cob 10: JMN2343I-W RECORD句で指定した整数(最大文字位置数)はレコード長と等しいか大きくなければなりません．RECORD句は，無効になります．

詳細な説明

RECORD句ではレコードの大きさを指定します．実際のレコード長は，同句で指定する値を超えてはなりません．