例題
[P2658.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2658. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT SQFILE1 ASSIGN TO SYS001. 000007 I-O-CONTROL. 000008 DATA DIVISION. 000009 FILE SECTION. 000010 FD SQFILE1 LABEL RECORD LREC. 000011 01 SQF1REC. 000012 02 PIC X(80). 000013 01 LREC PIC X(80). 000014 WORKING-STORAGE SECTION. 000015 PROCEDURE DIVISION. 000016 DECLARATIVES. 000017 ER1 SECTION. 000018 USE BEFORE STANDARD ENDING FILE 000019 LABEL PROCEDURE ON SQFILE1. 000020 END DECLARATIVES. 000021 END PROGRAM P2658.
P2658.cob 10: JMN1478I-W このシステムでは，'LABEL RECORD'は注釈として扱います．
P2658.cob 18: JMN2658I-S BEFORE指定のUSE LABEL文は，サポートされていません．
詳細な説明
USE LABEL文は，OSIV系システムの固有機能です．
