例題
[P2288.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2288. 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 APPLY SAVED-AREA WSVAR ON SQFILE1. 000011 DATA DIVISION. 000012 FILE SECTION. 000013 FD SQFILE1. 000014 01 SQF1REC. 000015 02 PIC X(80). 000016 FD SQFILE2. 000017 01 SQF2REC. 000018 02 PIC X(80). 000019 WORKING-STORAGE SECTION. 000020 01 WSVAR PIC X(80). 000021 PROCEDURE DIVISION. 000022 END PROGRAM P2288.
P2288.cob 10: JMN2772I-I このシステムでは，'APPLY SAVED-AREA'は注釈扱いです．
P2288.cob 13: JMN2288I-S SAME RECORD AREA句に指定されたファイル名をAPPLY SAVED-AREA句またはAPPLY MULTICONVERSATION-MODE句に指定できません．書かれたとおり受け入れます．
詳細な説明
記憶領域の共用と，データ項目の値の保証を同時に指定することはできません．
指定されたとおりに解釈して翻訳を続行しますが，このときオブジェクトファイルや実行形式は生成されません．
