空的屏幕文件里新增第一条记录出错

燕麦玉米粥

初始化屏幕：

1. CSR   #ClrSfl       BEGSR                                            
   
2. C                   SETON                                        80  
   
3. C                   WRITE     @@SFLC                                 
   
4. C                   SETOFF                                       80  
   
5. C                   Z-Add     0             wNum              6 0   
   
6. C                   Z-Add     0             RRN                     
   
7. C                   Z-Add     0             @@SFPG                  
   
8. CSR                 ENDSR                                            

复制代码

在屏幕文件里加一个判断无记录的语句：

1. C                   If        wNum       <= 0         
   
2. C                   Eval      RRN         = 1         
   
3. C                   Write     @@SFL                    
   
4. C                   EndIf                              

复制代码

新增记录用：

1. C                   Add       1             wNum      
   
2. C                   Eval      RRN         = wNum      
   
3. C                   Eval      @@SFPG      = wNum      
   
4. C                   Write     @@SFL                    
   
5. C                   Exfmt     @@WIDSUC                 

复制代码

这样的话，如果屏幕文件开始是空的，则新增第一条记录时会给出出错信息：
Attempt to write a duplicate record to file PGTSTDSP@ (C G D F).

请教各位大牛如何解决，谢谢！！

junlee1986

Attempt to write a duplicate record to file PGTSTDSP@ (C G D F).

看错误啊，重复记录问题

燕麦玉米粥

对啊，问题就在这里，明明是写入第一条记录，却说重复，我想问题出在RRN上，因屏幕文件原来是空的，而给RRN一个初值1，这时写第一条记录时RRN又被赋值为1，所以报这个错。

uxyzp

rrn=1的时候write了两次

燕麦玉米粥

是啊，我也知道RRN=1时，Write了两次，但屏幕无记录，RRN=0会报错，只得用

1. 01.C                   If        wNum       <= 0         
   
2. 
   
3. 02.C                   Eval      RRN         = 1         
   
4. 
   
5. 03.C                   Write     @@SFL                    
   
6. 
   
7. 04.C                   EndIf                              
   

复制代码

写一个空的记录进去，这样造成向屏幕文件写第一条记录时，给出重复写记录的错误，
请问谁有好的方法解决这个问题，谢谢！！

niuhua77

回复 5# 燕麦玉米粥


    这个问题解决办法有好多种。1 写第一条非空记录的时候，先clear subfile，然后再写。
   2，可以定位到第一条记录，然后用update subfile，不用write。
   3，写记录的时候，可以用RRN + 1来赋值，不用 eval  RRN = num。

   反正你已经知道问题的所在，解决起来应该不难吧

燕麦玉米粥

回复 6# niuhua77

谢谢楼上！！
用你说的第一种方法先清屏，再写第一条记录，是可以的。
第二种方法，Update会给出：
Update or delete in file PGTSTDSP@ without prior input operation (C G D F).
第三种方法，我觉得RRN=RRN+1，不妥，因为本来是没有记录嘛，写第一条非空记录做为第一条记录，不想把空记录做为记录算进去。

请路过的大伙指点！谢谢！

xjromance

不用那么麻烦没有 数据的话  直接不用写SFL  在 SFLDSP这个关键的指针关掉就OK  显示不会报错的。

cuilei286

楼上正解，一般都这么处理的

燕麦玉米粥

回复 8# xjromance
谢谢楼上！！可是关掉SFLDSP什么时候打开呢？空屏进去，无法加进新纪录了，给出错误：
Session or device error occurred in file PGTSTDSP@ (C G D F).