引数の説明
RENAMES,VALUE,BASED ON,LENGTH,RECORDまたはCHARACTER TYPE. |
エラーの原因となったデータ名. |
例
000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2213. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 GR1. 000007 02 E1 PIC X(5). 000008 02 E1 PIC N(5). 000009 66 R1 RENAMES E1 THRU E1. 000010 PROCEDURE DIVISION. 000011 END PROGRAM P2213.
P2213.cob (9) : JMN2213I-S RENAMES句のデータ名'E1'が多重定義です.RENAMES句は無効になります.