例題
[P2366.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2366. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 BASED-STORAGE SECTION. 000006 01 WBUF1 PIC X(20) BASED ON WNUM. 000007 01 WBUF2 PIC X(20) BASED ON WPX1. 000008 01 WBUF3 PIC X(20) BASED ON WPX2. 000009 WORKING-STORAGE SECTION. 000010 01 WNUM PIC S9(9). 000011 01 WPX1 POINTER. 000012 01 WPX2 PROCEDURE-POINTER. 000013 PROCEDURE DIVISION. 000014 END PROGRAM P2366.
P2366.cob 6: JMN2366I-S BASED ON句のデータ名は，ポインタデータ項目でなければなりません．ただし，手続きポインタデータ項目であってはなりません．
P2366.cob 8: JMN2366I-S BASED ON句のデータ名は，ポインタデータ項目でなければなりません．ただし，手続きポインタデータ項目であってはなりません．
詳細な説明
BASED ON句は，基底場所節のデータ項目に暗黙のポインタ修飾子を指定する句であり，そのポインタ修飾に使用するポインタデータ項目をBASED ON句のデータ名として指定します．
