Chinaunix首页 | 论坛 | 博客
  • 博客访问: 77599
  • 博文数量: 10
  • 博客积分: 246
  • 博客等级: 二等列兵
  • 技术积分: 121
  • 用 户 组: 普通用户
  • 注册时间: 2011-12-17 08:48
个人简介

rpgle已经是一门夕阳红语言吗

文章分类
文章存档

2012年(6)

2011年(4)

我的朋友

分类: 系统运维

2012-02-29 23:30:24

物理文件的建立

1 建立源文件

STRSEU SRCFILE(CBS004/SRCPF) SRCMBR(TEST004) TYPE(PF)

2编辑源文件 例:

..... .. .A..........T.Name++++++RLen++TDpB......Functions++++++++++++++++++

*************** Beginning of data *************************************

A                                                                   UNIQUE

A                   R RZZCY30

A                      RIDNO                                    21A  TEXT(' 证件号码 ')

A                      RNAME                                    62A  TEXT(' 客户名称 )

A                      RTELNO                                   20     TEXT(' 电话 ')

A                  K RIDNO

3 建立目标文件

CRTPF FILE(CBS004/TEST004) SRCFILE(CBS004/SRCPF) SRCMBR(TEST004)

Pf原文件的字段类型

Entry Meaning

A Character

P Packed decimal

S Zoned decimal

B Binary

F Binary floating point

H Hexadecimal

L Date

T Time

Z Timestamp

PF原文件的键子项

类似于函数

1. ABSVAL(绝对值)

2. ALIAS(替换名)

3. ALL(全部)——仅用于逻辑文件

4. ALTSEQ(交替分配顺序)

5. ALWNULL(允许空值)——仅用于物理文件

6. CCSIP(编码字符集标识)——仅用于物理文件

7. CHECK(检查)

8. CHKMSGID(检查信息标识)

9. CMP(比较)

10. COLHDG(栏目标题)

11. COMP(比较)

12. CONCAT(连接)

13. DATFMT(日期格式)

14. DATSEP(日期分隔符)

15. DESCEND(降序)

16. DFT(缺省值)——仅用于物理文件

17. DIGIT(数字)

18. DYNSLT(动态选择)——仅用于逻辑文件

19. EDTCDE(编辑码)和EDTWRD(编辑字)

20. FCFO(先修改先出)

21. FIFO(先进先出)

22. FLTPCN(浮点精度)

23. FORMAT(格式)

24. JDFTVAL(连接的缺省值)——仅用于连接逻辑文件

25. JOUPSEQ(连结的重复顺序)——仅用于连接逻辑文件

26. JFILE(被连接的文件)——仅用于连接逻辑文件

27. JFLD(被连接的字段)——仅用于连接逻辑文件

28. JOIN(连接)——仅用于连接逻辑文件

29. JREF(连接引用)——仅用于连接逻辑文件

30. LIFO(后进先出)

31. NOALTSEQ(无交替顺序)

32. PFILE(物理文件)——仅用于逻辑文件

33. RANGE(范围)

34. REF(引用)——仅用于物理文件

35. REFACCPTH(引用访问路径)——仅用于逻辑文件

36. REFFLD(被引用字段)——仅用于物理文件

37. REFSHIFT(引用换档)

38. RENAME(重命名)——仅用于逻辑文件

39. SIGNED(符号)

40. SST(子串)——仅用于逻辑文件

41. TEXT(正文)

42. TIMFMT(时间格式)

43. TIMSEP(时间分隔符)

44. TRNTBL(转换表)——仅用于逻辑文件

45. UNIQUE(唯一)

46. UNSIGNED(无符号)

47. VALUES(值)

48. VARLEN(变长字段)

ZONE(零)

阅读(2878) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~