两个LF的KEY值合并为UNIQUE KEY

i400as

求助解答

有两个LF ，LFA有3个KEYS，LFB有1个KEY，现因业务需要，将两个LF的4个KEYS作为UNIQUE去查找一个记录。程序应该如何定义？非常感谢。

我现程序这样定义

N49      MKEY1     CHAINSMESALLA             52  
N49      MKEY2     CHAINSMESALLB             53  
             *IN52     IFEQ '1'                     
            *IN53     ANDEQ'1'                     
                          SETON                     4249
                         ENDIF                        
                         ENDIF                        

但是实现的只是前面的MKEY1满足要求，MKEY2被忽略。

digitalchina

新建个LFC 如何?

wdz315

原帖由 i400as 于 2009-1-6 13:48 发表
求助解答

有两个LF ，LFA有3个KEYS，LFB有1个KEY，现因业务需要，将两个LF的4个KEYS作为UNIQUE去查找一个记录。程序应该如何定义？非常感谢。

我现程序这样定义

N49      MKEY1     CHAINSMESALLA     ...

新建一个结合逻辑文件比较好！

zhas400

不需要如此复杂。先用LFA查找记录，如果不存在，抱错。如果存在，用MKEY2的值和LFB键字对应的字段进行比较。如果相等，说明符合条件。

N49      MKEY1     CHAINSMESALLA             52  
  52                      SETON                   4249        
N52      MKEY2     IFNE  SMESALLB的KEY对应的字段                              
                          SETON                     4249
                          ENDIF

duoer-ld

SETON                                                    4249
            MKEY1     SETLLSMESALLA            
            DOW        *IN55 = '0'
            MKEY1     READESMESALLA                         *IN55
            IF             *IN55 = '0' AND
                           MKEY2 =  与SMESALLA中对应的字段     
                           SETOFF                   4249
            ENDIF
            ENDDO

个人建议，还是建一个LFA和LFB 的组合LF比较好。