NetCOBOL V11.1 メッセージ集

2.4.165 JMN2319I-S

RECORD句のDEPENDING ON指定は，レコード記述項中にCHARACTER TYPE句またはPRINTING POSITION句を持つデータ項目が指定されたファイルに記述できません． DEPENDING ON指定は，無効になります．

例題

[P2319.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2319.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001.
000007 DATA           DIVISION.
000008 FILE            SECTION.
000009 FD SQFILE1
000010       RECORD VARYING IN SIZE
000011         DEPENDING ON LRECL.
000012 01 SQF1REC.
000013   02            PIC X(8).
000014   02            PIC N(10)
000015                 CHARACTER TYPE MODE-1.
000016   02            PIC X(60) .
000017 WORKING-STORAGE SECTION.
000018 01 LRECL       PIC 9(2).
000019 PROCEDURE      DIVISION.
000020 END PROGRAM    P2319.

P2319.cob 9: JMN2319I-S RECORD句のDEPENDING ON指定は，レコード記述項中にCHARACTER TYPE句またはPRINTING POSITION句を持つデータ項目が指定されたファイルに記述できません．DEPENDING ON指定は，無効になります．

詳細な説明

CHARACTER TYPE句またはPRINTING POSITION句で印字のための情報を定義したレコードは，可変長レコードであってはなりません．