例題
[P2221.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2221. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT SQFILE1 ASSIGN TO SYS001. 000007 SELECT SQFILE2 ASSIGN TO SYS002. 000008 I-O-CONTROL. 000009 SAME RECORD AREA SQFILE1 SQFILE2. 000010 DATA DIVISION. 000011 FILE SECTION. 000012 FD SQFILE1. 000013 01 SQF1REC. 000014 02 PIC X(80). 000015 FD SQFILE2 IS GLOBAL. 000016 01 SQF2REC. 000017 02 PIC X(80). 000018 WORKING-STORAGE SECTION. 000019 PROCEDURE DIVISION. 000020 END PROGRAM P2221.
P2221.cob 15: JMN2221I-S GLOBAL句は，SAME RECORD AREA句に指定されたファイルおよびそれに従属するレコード記述項に指定できません．
