例題
[P2932.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2932. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 SPECIAL-NAMES. 000006 PRINTING MODE PM1 FOR MOCS 000007 PRINTING MODE PM2 FOR MOCS. 000008 DATA DIVISION. 000009 WORKING-STORAGE SECTION. 000010 01 WGRP GLOBAL 000011 CHARACTER TYPE PM1 PM2 000012 DEPENDING ON WMODE. 000013 02 WDX PIC X(10). 000014 02 WDN PIC N(10). 000015 01 WMODE PIC S9(4). 000016 PROCEDURE DIVISION. 000017 END PROGRAM P2932.
P2932.cob 12: JMN2932I-S DEPENDING ON指定のCHARACTER TYPE句が大域属性を持つレコード中に指定されている場合，DEPENDING ON指定のデータ名も同じデータ部中の大域属性を持つ項目でなければなりません．
詳細な説明
大域属性を持つデータ(GLOBAL句を指定した項目またはそれに従属する項目)は，それを定義したプログラムおよびそのプログラムに直接または間接に含まれるプログラムで参照することができます．
大域属性を持つデータにDEPENDING ON指定付きのCHARACTER TYPE句が指定された場合，このデータに適用される印字モードがDEPENDING ON指定に指定したデータ項目の値によって決定されるので，DEPENDING ON指定のデータ項目も大域属性を持たなければなりません．
