D* Define a procedure pointer
D
D ProcPtr S * PROCPTR INZ(%PADDR('Create_Space'))
D Extern S 10
D
CL0N01Factor1+++++++Opcode(E)+Factor2+++++++Result++++++++Len++D+HiLoEq....
C* 下面的调用是静态调用.
C CALLB 'BOUNDPGM'
C* 下面的调用是动态调用.
C CALL Extern
C* 下面的调用是静态调用, 使用一个过程指针.
C CALLB ProcPtr
majorz 回复于:2005-06-09 15:43:56
收益不小哦!
樓主辛苦了!
感謝!
USING_AS400 回复于:2005-06-09 16:28:45
的确不错!!!!!
majorz 回复于:2005-06-10 12:46:37
這麼好的帖,強烈的 頂 !
kempzhang 回复于:2005-06-10 13:53:28
一定要感謝樓住!
jlwrp 回复于:2005-06-10 16:35:06
CHAIN(从文件中随机检索)
操作码 因子1 因子2 结果字段 指示器
CHAIN 检索自变量 文件名或 数据 NR ER -
(N) 格式名 结构
CHAIN操作是从一个全过程文件(文件描述规范表18列上是F)取一个记录。置一个记录标识指示器为ON(如果在输入规范表上说明),并将该记录的数据放入输入字段中。
因子1是检索自变量,必须含有键字或相对记录号用来取记录。如果通过键字访问,因子1可是一个字段名,一个命名常量,一个象征常数或是一个文字。另外,对外部描述文件在因子1上可以用KLIST来说明。如果用相对记录号访问,因子1必须是一个整型文字或一个带零位小数点的数字型字段。
因子2,规定要读的文件或记录格式名。使用外部描述文件时才用记录格式名。如果因子2是一个文件名并用键字访问,CHAIN操作取出与检索自变量匹配的第一个记录。
如果因子2是一个记录格式名并用键字访问,CHAIN操作取出与检索自变量匹配的所有记录中第一条记录。如果没有找到,则出现记录没找到的情况。
上一页 1 2 3 4 5 6 7 8 910 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 下一页
| 论坛热门帖子: | [lch203] 写得蛮好的linux学习笔记(10-21) [黑马制造] 学习java的30个目标(10-19) [笑傲股林] 做测试半年了,有点迷茫,应该再学些什么提高自己的测试水平和测试能力呢?(10-19) [udp8589] 大家用google的来吱一声? 用百度的~~也来报道下?(10-18) [沂偌掳兆] 本人总结的一些认为C++比较经典的书籍,希望对大家有用(10-18) |
| TAG标签: | 笔记 字母 顺序 学习 操作 常用 因子 文件 记录 一个 |
注册
个人空间
