例
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 (18) : JMN2658I-S BEFORE指定のUSE LABEL文は，サポートされていません．
詳細な説明
USE LABEL文は，OSIV系システムの固有機能です．