埋め込みの説明
@1@ : エラーの原因となった語.
@2@ : USE ERROR,USE LABELまたはUSE BEFORE REPORTING.
例題
[P2607.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2607. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT SQFILE1 ASSIGN TO SYS001. 000007 SELECT REPFILE ASSIGN TO SYS002. 000008 I-O-CONTROL. 000009 DATA DIVISION. 000010 FILE SECTION. 000011 FD SQFILE1. 000012 01 SQF1REC PIC X(80). 000013 FD REPFILE 000014 REPORT IS REP1. 000015 WORKING-STORAGE SECTION. 000016 01 WFS1 PIC X(2). 000017 REPORT SECTION. 000018 RD REP1 PAGE 66. 000019 01 DE-REC TYPE DE. 000020 02 LINE PLUS 1. 000021 03 COLUMN 1 PIC X(80) SOURCE SQF1REC. 000022 PROCEDURE DIVISION. 000023 DECLARATIVES. 000024 FILE-ERROR-1 SECTION. 000025 USE BEFORE REPORTING DE-REC. 000026 DISPLAY "ERROR PROC-1". 000027 FILE-ERROR-2 SECTION. 000028 USE BEFORE REPORTING DE-REC. 000029 DISPLAY "ERROR PROC-2". 000030 END DECLARATIVES. 000031 END PROGRAM P2607.
P2607.cob 28: JMN2607I-S 同時に実行を要求されるDE-REC指定のUSE BEFORE REPORTING文を,複数指定することはできません.
詳細な説明
USE文では,対象が所定の状態(入出力誤り発生・作成表示の直前など)になったときに実行するUSE手続きを指定します.同じ対象に対して,複数の異なるUSE手続きを同時に実行することはできません.