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

2.3.177 JMN2350I-S

ブロック長は，レコード長以上でなければなりません．
BLOCK CONTAINS句は，無効になります．

例

      000001 @OPTIONS FLAGSW(GSS)
      000002 IDENTIFICATION DIVISION.
      000003 PROGRAM-ID.    P2350.
      000004 ENVIRONMENT    DIVISION.
      000005 INPUT-OUTPUT    SECTION.
      000006 FILE-CONTROL.
      000007     SELECT SQFILE1 ASSIGN TO SYS001.
      000008 I-O-CONTROL.
      000009 DATA           DIVISION.
      000010 FILE            SECTION.
      000011 FD SQFILE1
      000012       BLOCK CONTAINS 20.
      000013 01 SQF1REC.
      000014   02           PIC X(80).
      000015 WORKING-STORAGE SECTION.
      000016 PROCEDURE      DIVISION.
      000017 END PROGRAM    P2350.
    

P2350.cob (11) : JMN2350I-S ブロック長は，レコード長以上でなければなりません．BLOCK CONTAINS句は，無効になります．

詳細な説明

このコンパイラでは，BLOCK CONTAINS句は注釈とみなされます．実行時には意味を持ちませんが，句の解析は行われます．