怎样update有variable length field 的 file

xuguopeng

用MOVEL试试吧

aeiou

1。检查你的F表定义文件的时候是不是UF的。
2。在D表定义数据结构如下：

1. 
   
2. D                 DS                                       
   
3. D VarStr                  1   200                        
   
4. D  sStrLen                       5U 0 OVERLAY(VarStr:1)
   
5. D  sStrDta                    198     OVERLAY(VarStr:3)
   

复制代码

3。在C表用如下方式赋值：

1. 
   
2. C                   EVAL      sStrLen = %SIZE(W0REFF)                    
   
3. C                   EVAL      sStrDta = W0REFF
   

复制代码

然后再用VarStr去更新文件中的变长字段:
key CHAIN FILE 81
*in81 IFEQ *OFF
EVAL ZGVLOC = VarStr
UPDATE FILE
ENDIF
[/quote]