引数の説明
エラーの原因となったデータ名. |
例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. P2847.
000003 ENVIRONMENT DIVISION.
000004 CONFIGURATION SECTION.
000005 SPECIAL-NAMES.
000006 SYMBOLIC CONSTANT
000007 BLKLEN IS 80.
000008 INPUT-OUTPUT SECTION.
000009 FILE-CONTROL.
000010 SELECT SQFILE1 ASSIGN TO SYS001.
000011 DATA DIVISION.
000012 FILE SECTION.
000013 FD SQFILE1
000014 BLOCK CONTAINS BLKLEN RECORDS.
000015 01 SQF1REC PIC X(80).
000016 WORKING-STORAGE SECTION.
000017 01 BLKLEN PIC S9(2) BINARY.
000018 PROCEDURE DIVISION.
000019 END PROGRAM P2847.
P2847.cob (14) : JMN2847I-S 名標'BLKLEN'は,一意な記号定数でなければなりません.