例
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句のデータ名として指定します．