2.5.15 JMN5116I-S

@1@句は可変位置にあるデータ項目に指定してはなりません．
書かれた通りに受け入れます．

引数の説明

@1@:

USAGE OBJECT REFERENCE

例

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

P5116.cob (13) : JMN5116I-S USAGE OBJECT REFERENCE句は可変位置にあるデータ項目に指定してはなりません．書かれた通りに受け入れます．

P5116.cob (14) : JMN5116I-S USAGE OBJECT REFERENCE句は可変位置にあるデータ項目に指定してはなりません．書かれた通りに受け入れます．