例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. P2851.
000003 ENVIRONMENT DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 FILE-CONTROL.
000006 SELECT SQFILE1 ASSIGN TO SYS001.
000007 DATA DIVISION.
000008 FILE SECTION.
000009 FD SQFILE1.
000010 01 SQF1REC.
000011 02 WPX POINTER.
000012 02 PIC X(72).
000013 WORKING-STORAGE SECTION.
000014 PROCEDURE DIVISION.
000015 END PROGRAM P2851.
P2851.cob (11) : JMN2851I-S ポインタデータ項目は,基底場所節,作業場所節,局所記憶節,定数節または連絡節にのみ定義できます.