记录或字段重命名

dds描述 name: pf1
A   R RN
A     FLD1     4A
A     FLD2     5A  
A     FLD3     4A
A     FLD4     4A

 

PROGRAM

FPF1   IF E   DISK RENAME(RN:RN1)  
 *rename是记录重新命名
D
D
D
D
D
 *以下是字段的重新命名;I表可以用于重新命名也可以用于定义程序描述性文件
 *被重新命名后只能使用新字段的名字，同时每次读记录时，系统将读到的值赋给新字段名，旧字段没有值。

IRN1  
I         FLD1            @FLD1
I         FLD2            @FLD2
..........