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

2.3.148 JMN2249I-S

RECORDS指定のBLOCK CONTAINS句を指定したファイルまたはBLOCK CONTAINS句を省略したファイルのブロック長は，32760バイト以下でなければなりません．
ブロック長を32760バイトとみなします．

例

      000001 IDENTIFICATION DIVISION.
      000002 PROGRAM-ID.    P2249.
      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       BLOCK CONTAINS 410 RECORDS.
      000012 01 SQF1REC.
      000013   02           PIC X(80).
      000014 WORKING-STORAGE SECTION.
      000015 PROCEDURE      DIVISION.
      000016 END PROGRAM    P2249.
    

P2249.cob (10) : JMN2249I-S RECORDS指定のBLOCK CONTAINS句を指定したファイルまたはBLOCK CONTAINS句を省略したファイルのブロック長は，32760バイト以下でなければなりません．ブロック長を32760バイトとみなします．