埋め込みの説明
@1@ : ファクトリ定義, オブジェクト定義またはスタティック定義
例題
[C5125.cob] 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 FACTORY. 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 FACTORY. 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は無効になります．
詳細な説明
メソッド定義のデータ部に指定できます．
