引数の説明
エラーの原因となった語. |
USE ERROR,USE LABELまたはUSE BEFORE REPORTING. |
例
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手続きを同時に実行することはできません.