2.6.22 JMN5116I-S

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

埋め込みの説明

@1@ : USAGE OBJECT REFERENCE

例題

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

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

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