小编Ada*_*ams的帖子

我正在看一个RPG计划.有一些这样的子程序:是否有任何工具可以将其创建为一个过程,可以在单独的过程中使用？

C                   Eval      FinQty# = 0                           
C                   Eval      OdCom# = OhCom#                       
C                   Eval      OdOrd# = OhOrd#                       
C     OdKey         Setll     OeOrd1                                
C     OdKey         Reade     OeOrd1                                
C                   Dow       %eof = *off                           
 *                                                                  
C                   If        OdPrt# = OdAls# and                   
c                             %subst(odprt#:1:3) <> 'FRT'           
C                   Eval      FinQty# += OdQty#                     
C                   Endif                                           
 *                                                                  
C     OdKey         Reade     OeOrd1                                
C                   Enddo                                           
 *                                                      

你能解释一下+=这句话中的意思吗？

Eval      AssGr2Pun += FinQty#        

以下是上下文的其余代码:

 Exsr      FinItmTot                 
 Eval      AssGr2Pun += FinQty#      
 If        OrderAdd = 'N'            
 Eval      Gr2TPass += 1             
 Eval      OrderAdd = 'Y'            
 Endif                               
 Eval      AssGr2Pst += 1            
 When      OhReqd = Today            
 Exsr      FinItmTot                 
 Eval      AssGr2Tun += FinQty#      
 If        OrderAdd = 'N'            
 Eval      Gr2TTday += 1             
 Eval      OrderAdd = 'Y'            
 Endif                               
 Eval      AssGr2Tod += 1            
 When      OhReqd = Tomorrow         
 Exsr      FinItmTot               

我遇到了最后一个选择语句OR的问题.我们想要的是包括TIER = T1但只有COST> 500和skilllevel ='S'的记录.但是这行的最后一行只需要是一个OR.AND将遗漏大部分记录.

 Insert Into @tblMain
    Select  * from (
            SELECT distinct a.ID_KEY,a.STAT, a.TIER, f.FACILITY_ID,  f.FACILITY_NAME Name, a.RX, a.PATIENTNAME, a.MEDICATION , (a.COST) as Cost, (a.COST) as Interchanges,  s.Savings Savings
            FROM[PBM].[T_CHARGES] a 
            --Inner Join  PBM.FACILITY f on a.FACILITYNPI = f.FACILITY_NPI 
            inner Join PBM.PHARMACY_NPI pn on a.PHARMACYNPI = pn.NPI
            Inner join PBM.PHARMACY_FACILITY pp on pn.PHARMACY_ID = pp.PHARMACY_ID
            inner Join PBM.FACILITY f on pp.FACILITY_ID = f.FACILITY_ID AND a.FACILITYNPI = f.FACILITY_NPI
            Left Outer Join @TableSum s on a.ID_KEY = s.ID_KEY 
            where f.FACILITY_NAME …