2.5.17 JMN5118I-S

@1@句はREDEFINES句を持つ項目に従属する項目に指定できません．
書かれた通りに受け入れます．

引数の説明

@1@:

USAGE OBJECT REFERENCE

例

      000001 IDENTIFICATION DIVISION.
      000002 PROGRAM-ID.    P5118.
      000003 ENVIRONMENT    DIVISION.
      000004 CONFIGURATION   SECTION.
      000005 REPOSITORY.
      000006     CLASS SYSOBJ AS "System.Object".
      000007 DATA           DIVISION.
      000008 WORKING-STORAGE SECTION.
      000009 01 AA          PIC X(08).
      000010 01 RR REDEFINES AA.
      000011   02 OBJA      USAGE OBJECT REFERENCE SYSOBJ.
      000012 PROCEDURE      DIVISION.
      000013 END PROGRAM    P5118.

P5118.cob (11) : JMN5118I-S USAGE OBJECT REFERENCE句はREDEFINES句を持つ項目に従属する項目に指定できません．書かれた通りに受け入れます．