2.5.14 JMN5115I-S

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

引数の説明

@1@:

USAGE OBJECT REFERENCE

例

      000001 IDENTIFICATION DIVISION.
      000002 PROGRAM-ID.    P5115.
      000003 ENVIRONMENT    DIVISION.
      000004 CONFIGURATION   SECTION.
      000005 REPOSITORY.
      000006     CLASS SYSOBJ AS "System.Object".
      000007 DATA           DIVISION.
      000008 WORKING-STORAGE SECTION.
      000009 01 AA .
      000010   02 BB        OCCURS 1 TO 10 TIMES
      000011                    DEPENDING ON DD.
      000012     03         OBJA USAGE OBJECT REFERENCE SYSOBJ.
      000013 01 DD          PIC S9(04).
      000014 PROCEDURE      DIVISION.
      000015 END PROGRAM    P5115.

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