例題
[P2277.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2277. 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 GLOBAL. 000012 01 . 000013 02 PIC X(80). 000014 PROCEDURE DIVISION. 000015 END PROGRAM P2277.
P2277.cob 12: JMN2277I-S GLOBAL句を指定したファイルに従属するレベル番号01の項目は,データ名を明に指定しなければなりません.GLOBAL句を有効とみなします.
詳細な説明
ファイル記述項にGLOBAL句を書くと,ファイル記述項に関係付けたレコード記述項の中のデータ名も大域属性を持ちます.大域属性を持つ名前(大域名)は,その名前を定義したプログラムに直接または間接に含まれるプログラムの中で参照できます.大域属性を持つ領域の先頭に相当するレベル番号01の項目には,データ名を宣言しなければなりません.