例題
[P2851.cob] 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 ポインタデータ項目は,基底場所節,作業場所節,局所記憶節,定数節または連絡節にのみ定義できます.