Chinaunix首页 | 论坛 | 博客
  • 博客访问: 1011347
  • 博文数量: 125
  • 博客积分: 10490
  • 博客等级: 上将
  • 技术积分: 2385
  • 用 户 组: 普通用户
  • 注册时间: 2006-05-03 18:26
文章分类

全部博文(125)

文章存档

2011年(1)

2010年(9)

2009年(17)

2008年(98)

分类:

2009-08-24 11:01:38

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
..........
 
阅读(1416) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~