NetCOBOL V11.0 メッセージ集

2.6.21 JMN5115I-S

@1@句は，OCCURS DEPENDING ON句に従属するデータ項目に指定してはなりません． 書かれた通りに受け入れます．

埋め込みの説明

@1@ : USAGE OBJECT REFERENCE

例題

[P5115.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P5115.
000003 DATA           DIVISION.
000004 WORKING-STORAGE SECTION.
000005 01 AA .
000006   02 BB        OCCURS 1 TO 10 TIMES
000007                    DEPENDING ON DD.
000008     03         OBJA USAGE OBJECT REFERENCE.
000009 01 DD          PIC S9(04).
000010 PROCEDURE      DIVISION.
000011 END PROGRAM    P5115.

P5115.cob 8: JMN5115I-S USAGE OBJECT REFERENCE句は，OCCURS DEPENDING ON句に従属するデータ項目に指定してはなりません．書かれた通りに受け入れます．