NetCOBOL for .NET V7.0 メッセージ集

2.3.68 JMN2113I-S

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

例

      000001 IDENTIFICATION DIVISION.
      000002 PROGRAM-ID.    P2113.
      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 VARYING FROM 81 TO 160.
      000012 01 SQF1REC.
      000013   02           PIC X(80).
      000014 WORKING-STORAGE SECTION.
      000015 01 WFS1        PIC X(2).
      000016 PROCEDURE      DIVISION.
      000017 END PROGRAM    P2113.
    

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

詳細な説明

RECORD句はレコードの大きさを規定するための句です．RECORD句でレコードの文字位置の個数の最小値を定めているとき，そのRECORD句を指定したファイルに関連するレコード記述項は，同句で規定した大きさを下回るものであってはなりません．