SQLRPGLE的诸多问题

我写了一个SQLRPGLE的小程序，功能是提取一个PF中所有数据，赋给变量，然后用变量更新或者插入数据给另一个PF。但是现在遇到2个问题：
1.运行程序后，如果想要CLRPFM第2个PF，提示：MEMBER正在使用中。必须
  注销重新登陆才行，这是为什么？？
2.代码可能有问题，我执行程序后，他只读取了第一个PF中第1和第3条记录，而且只能插入不能更新，我 晕~ 请大人帮我看看代码。
---声明变量
0001.00 DVXHEMPID         S              3A                                   
0002.00 DVXHNAME          S             15A                                   
0003.00 DVXHJOB           S             10A                                   
0004.00 DISEXIST          S              5S 0                                 

----声明游标
0005.00 C/EXEC SQL                                                            
0006.00 C+ DECLARE C1 CURSOR FOR SELECT XHEMPID,XHNAME,XHJOB FROM XHZQ        
0007.00 C/END-EXEC                                                            

---打开游标
0008.00 C/EXEC SQL                                                            
0009.00 C+ OPEN C1                                                            
0010.00 C/END-EXEC                                                            

---当没有出错的时候把游标里的值赋给变量
0011.00 C                   DOW       SQLCOD = 0                              
0012.00 C/EXEC SQL                                                            
0013.00 C+ FETCH C1 INTO :VXHEMPID,:VXHNAME,:VXHJOB                           
0014.00 C/END-EXEC                                                            

---用变量VXHEMPID作为关键字来查找记录是否存在
0015.00 C/EXEC SQL                                                            
0016.00 C+ SELECT COUNT(*) INTO :ISEXIST FROM XHZQ1 WHERE XHEMPID1 = :VXHEMPID

---如果不存在就插入记录
0017.00 C/END-EXEC                                                            
0018.00 C                   IF        ISEXIST = 0                             
0019.00 C/EXEC SQL                                                            
0020.00 C+ INSERT INTO XHZQ1(XHEMPID1,XHNAME1,XHJOB1)  
0021.00 C+ VALUES(:VXHEMPID,:VXHNAME,:VXHJOB)          
0022.00 C/END-EXEC                                     
0023.00 C                   ENDIF                      

---如果存在就更新记录
0024.00 C                   IF        ISEXIST = 1      
0025.00 C/EXEC SQL                                     
0026.00 C+ UPDATE XHZQ1                                
0027.00 C+ SET XHNAME1 = :VXHNAME,                     
0028.00 C+     XHJOB1 = :VXHJOB                        
0029.00 C/END-EXEC                                     
0030.00 C                   ENDIF                      

---继续读下一个记录
0031.00 C/EXEC SQL                                     
0032.00 C+ FETCH C1 INTO :VXHEMPID,:VXHNAME,:VXHJOB    
0033.00 C/END-EXEC                                     
0034.00 C                   ENDDO                      

---关闭游标
0035.00 C/EXEC SQL                                     
0036.00 C+ CLOSE C1                                    
0037.00 C/END-EXEC                                     

---提交所做的更改
0038.00 C/EXEC SQL                                     
0039.00 C+ COMMIT                                      
0040.00 C/END-EXEC                
---结束
0041.00 C                   RETURN

xuguopeng 回复于：2003-10-28 17:15:05

UPDATE确实是一个问题，我发现了，他把所有记录都改了。。。。。。 ISEXIST这个变量里的值是XHZQ1里面的关键字，肯定是唯一的，所以就用1了，我怎么确认游标是否能更新呢？？

子樵 回复于：2003-10-28 17:07:20

你确认一下,游标是否可以更新,我以前写这样的程序发现游标是不能更新的.没去研究原因,改用CHAIN解决. 你的思路我觉得没有理解.UPDATE一句,SQL的UPDATE 是这个用法吗?没有WHERE?这句是更新所有记录吧! 另外IF ISEXIST = 1一句ISEXIST 最好改成>0,应用会更广,你不能保证记录唯一.

xuguopeng 回复于：2003-10-28 19:54:41

解决了~ UPDATE放在INSERT前面就可以了，怪了，如果先INSERT就不行

xuguopeng 回复于：2003-10-28 19:20:51

果然不出子樵所料。。。。。。。 加上WHERE CURRENT OF C1了也是更新不了，只能插入，而且只能插入1，3，4，5。。。。。。的记录，第2条记录总插不上，郁闷~~

子樵 回复于：2003-10-28 15:09:57

先提几个问题 1.看这种很要命的代码让人头疼,注意写代码要加注释,这是要培养的习惯. 2.很多问题提出之前建议最好先自己想清楚为什么,先要画个流程图,或者用伪语言写一些流程.这样想着编程逻辑不出错才怪. LOCK问题用WRKACTJOB或者WRKUSRJOB或者WRKOBJLCK 看一下如何LOCK住的.分析一下是程序问题还是存在了COMMIT?如果你程序是异常退出,多看看JOBLOG 不能更新的问题更要看MSG了,这样看程序是很难猜谜的.说实话我是看的不想看了.

wildfish 回复于：2003-10-28 15:17:39

呵呵，我建议用纯rpg，就不会有这个问题，而且速度来的快一些，特别在数据量特别大的时候。一般来说，sqlrpgle,我们都是应用在统计，有太多关联的时候，不过也不是很建议使用。除非很少用的功能。

xuguopeng 回复于：2003-10-28 16:11:51

2为大哥说的是，只是觉得很简单就没有注释，给大家造成不方便了，不好意思，我已经加上注释了。我知道用RPG比较方便，我只是想测试一下，RPG我已经做成功了。大概的流程就是： 1.用游标把XHZQ里的数据取出来放到VXHEMPID，VXHNAME，VXHJOB   里面 2.然后判断变量里的记录字XHZQ1里面是否存在，如果存在，就更新数据，如果不存在就插入数据。 3.循环读取所有记录并更新XHZQ1。 就这么简单~ 大家帮我看看

ppoint 回复于：2003-10-31 13:36:20

我的经验是少用游标，麻烦！ 你这种情况，2个SQL语句就可以了，也许你只是想研究一下游标用法？ 1、UPDATE FILE1 SET FLDX = VALUEX  WHERE FLDY = VALUEY 2、INSERT INTO FILE2 VALUES (XXX) WHERE NOT EXISTS (SELECT * FROM FILE1 WHERE FLDY = VALUEY) 另外，SELECT COUNT（*）INTO 后面的变量:ISEXIST 后面一定要加一个指示器变量，否则若记录未找到时会出错，我遇到过的。 SQLCODE 变量判断记录是否存在及执行结果是否出错比较好用，你可以试着用一下。 推荐你一本书，很好，《DB2 400 数据库设计与编程》

xuguopeng 回复于：2003-10-31 14:10:05

我明白的，只是想测试一下游标的使用方法。SQLCOD我已经引用了呀，但是我只知道SQLSTATE =‘00000’是正常，=‘00010’是警告，=‘00020’是错误，SQLCOD=0是正常，其他的就没细研究。 ISEXIST后面加指示器？？ 我后面也有写如果ISEXIST=0做什么啊？吸取宝贵经验了~~~

ppoint 回复于：2003-10-31 17:37:45

SELECT COUNT(*) INTO :ISEXIST [b]:IND[/b] :IND 就是指示器变量，作用就象WRITE 语句的出错指示器一样。 SQLCOD =100是最常用的，在SELECT UPDATE DELETE 之后，或FETCH已经检索到最后一个可用行。 在SELECT UPDATE DELETE INSERT 语句后最好加上错误处理： SELECT WHEN  SQLCOD <0 EXSR    SQLERROR WHEN  SQLCOD =100 EXSR    SQLNOROW WHEN  SQLCOD >0 OR SQLWN0<>*BLANKS EXSR    SQLWARNING ENDSL

xuguopeng 回复于：2003-10-31 19:47:59

谢谢指教~~ 你说的：IND指示变量，我还有点不太明白，可以举个例子么？ SQLCOD = 100 就是SQLSTATE = ‘02000’吧，也就是检索到底没有找到数据的意思？ 还有SQLWN0<>*BLANKS 这个是什么意思？？SQLWN0是什么？也是全局变量么？？

xiaofeizhu 回复于：2003-11-01 17:16:36

我理解指示器变量的目的与MONMSG作用类似，出错的话若没有此定义，则会进入异常处理，而定义了则表示你会在程序中做出错的处理，所以有此定义则程序会继续执行下去，否则执行*PSSR或作业MSGW。所以，在ＣＯＵＮＴ之后最好定义，以免意外中断． SQLWNＯ是ＷＡＲＮＩＮＧ　ＮＯ，没用过．我一般用 Ｃ＋　ＷＨＥＮＥＶＥＲ　ＳＱＬＥＲＲＯＲ　ＧＯＴＯ　ＸＸＸＴＡＧ 来监控ＳＱＬ错误，ＸＸＸＴＡＧ是ＳＱＬ错误处理的语句标号，其后是错误的善后处理．

xuguopeng 回复于：2003-11-01 17:21:03

明白了 SQLERROR是全局变量么？可以直接引用？？

原文转自：http://www.ltesting.net