2.5.21 JMN5125I-S

DEPENDING ON指定を含むCHARACTER TYPE句は，@1@のデータ部に記述できません．
CHARACTER TYPEは無効になります．

引数の説明

@1@:

ファクトリ定義, オブジェクト定義またはスタティック定義

例

      000001 IDENTIFICATION  DIVISION.
      000002 CLASS-ID.       C5125.
      000003 ENVIRONMENT     DIVISION.
      000004 CONFIGURATION   SECTION.
      000005  SPECIAL-NAMES.
      000006       PRINTING MODE PM1 FOR ALL IN SIZE 5 POINT
      000007       PRINTING MODE PM2 FOR ALL FONT GOTHIC
      000008       PRINTING MODE PM3 FOR ALL IN SIZE 20 POINT AT ANGLE 90.
      000009 STATIC.
      000010 DATA            DIVISION.
      000011 WORKING-STORAGE SECTION.
      000012  01 WK1         PIC N(10) CHARACTER TYPE PM1 PM2 PM3
      000013                           DEPENDING ON PM-DEP1.
      000014  01 PM-DEP1     PIC S9(4) BINARY.
      000015 END STATIC.
      000016 OBJECT.
      000017 DATA            DIVISION.
      000018 WORKING-STORAGE SECTION.
      000019  01 PM-DEP2     PIC S9(4) BINARY.
      000020 CONSTANT        SECTION.
      000021  01 CS1         PIC N(10) CHARACTER TYPE PM3 PM2 PM1
      000022                           DEPENDING ON PM-DEP2
      000023                           VALUE NC"定数節".
      000024 END OBJECT.
      000025 END CLASS       C5125.

C5125.cob (12) : JMN5125I-S DEPENDING ON指定を含むCHARACTER TYPE句は，スタティック定義のデータ部に記述できません．CHARACTER TYPEは無効になります．
C5125.cob (21) : JMN5125I-S DEPENDING ON指定を含むCHARACTER TYPE句は，オブジェクト定義のデータ部に記述できません．CHARACTER TYPEは無効になります．

詳細な説明

メソッド定義のデータ部に指定できます．