例題
[P2329.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2329. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT SQFILE1 ASSIGN TO SYS001. 000007 I-O-CONTROL. 000008 APPLY SAVED-AREA RSVAR ON SQFILE1. 000009 DATA DIVISION. 000010 FILE SECTION. 000011 FD SQFILE1. 000012 01 SQF1REC. 000013 02 PIC X(80). 000014 WORKING-STORAGE SECTION. 000015 01 WSVAR PIC X(80). 000016 01 RSVAR REDEFINES WSVAR 000017 PIC N(80). 000018 PROCEDURE DIVISION. 000019 END PROGRAM P2329.
P2329.cob 8: JMN2772I-I このシステムでは，'APPLY SAVED-AREA'は注釈扱いです．
P2329.cob 16: JMN2329I-S APPLY SAVED-AREA句に指定されたデータ名はREDEFINES句を含んではいけません．REDEFINES句は，無効になります．
