例題
[P2276.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2276. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT SQFILE1 ASSIGN TO SYS001 000007 ORGANIZATION IS SEQUENTIAL. 000008 I-O-CONTROL. 000009 DATA DIVISION. 000010 FILE SECTION. 000011 FD SQFILE1 IS EXTERNAL. 000012 01 . 000013 02 PIC X(80). 000014 PROCEDURE DIVISION. 000015 END PROGRAM P2276.
P2276.cob 12: JMN2276I-S EXTERNAL句を指定したファイルに従属するレベル番号01の項目には，データ名を明に指定しなければなりません．EXTERNAL句を有効とみなします．
詳細な説明
ファイル記述項にEXTERNAL句を書くと，そのファイルに関係付けたレコード領域にも外部属性が与えられます．外部属性を持つ領域は，実行単位中の複数のプログラムで共用することができます．実行単位中で，外部属性を持つ領域は名前で対応付けられるため，領域の先頭に相当するレベル番号01の項目にはデータ名を宣言しなければなりません．
