用RPG更新SQL創(chuàng)建的TABLE的NULL VALUE相關(guān)

george251

     如題，有個(gè)表改由SQL創(chuàng)建了，于是就引來了一系列問題：
     NOT NULL WITH DEFAULT 每個(gè)字段定義后面如果不加這一句的話（不加當(dāng)然也有不加的原因），程序運(yùn)行遇到NULL值的記錄就直接報(bào)CPF5035的錯(cuò)誤： “19 -- An unexpected null field was found.”。
     后來在編譯程序的時(shí)候，把ALLOW NULL VALUE這個(gè)參數(shù)的值改為“*USRCTL”，程序再遇到NULL值的記錄就不會(huì)報(bào)錯(cuò)了。
     過了一段時(shí)間，問題又來了，RPG程序中更新該條記錄，如果遇到值是NULL的字段，更新無效！單調(diào)程序的時(shí)候明明字段付上了值，可UPDATE之后數(shù)據(jù)表里該字段還是NULL - -！
     這種情況，大家有人碰到過嗎？

george251

    找到答案了，就在這分享出來吧。
    用一個(gè)build-in-function  %NULLIND()來對字段進(jìn)行賦值或判斷：

1.     /Free
   
2.    Chain (Key) YourFileF;
   
3.    If %NULLInd(MyFld) = *On;    // 說明字段是NULL值
   
4.       %NULLInd(MyFld) = *OFF    // 這樣就可以正常賦值了
   
5.       MyFld = 'Whatever';
   
6.    EndIf;
   
7. 
   
8.    If %NULLInd(MyFld2) = *OFF  // 字段不是NULL值
   
9.       %NULLInd(MyFld2) = *ON   //  賦成NULL值
   
10.    EndIf;
    
11. 
    
12.    Update YourFileF;
    
13. /End-Fre

復(fù)制代碼