有倒序排列的KEY值时的SETLL和SETGT

发表于:2007-06-08来源:作者:点击数: 标签:
假设逻辑文件LF1的Key为:kFld1/kFld2/kFld3(D)其中kFld3为倒序排列。 该文件中的数据如下: kFld1KFld2KFld3 A1030(记录1) A1020(记录2) A1010(记录3) B1030(记录4) 在程序中, KLIST为kFld1(=A)/kFld2(=70)/kFld3(=10/30)。 (1)KLISTSETLLLF1 READLF1将

假设逻辑文件LF1的Key为: kFld1/kFld2/kFld3(D)  其中kFld3为倒序排列。
该文件中的数据如下:
kFld1   KFld2    KFld3 
A       10       30    (记录1)
A       10       20     (记录2)
A       10       10     (记录3)
B       10       30     (记录4)
在程序中,
KLIST为 kFld1(=A)/kFld2(=70)/kFld3(=10/30)。
(1) KLIST SETLL  LF1 
READ  LF1 将读出 记录4
READP LF1 将读出 记录3
(2) KLIST SETGT  LF1
READ  LF1 将读出 记录4
READP LF1 将读出 记录3

KLIST为 kFld1(=A)/kFld2(=10)/kFld3(=10)。
(1) KLIST SETLL  LF1 
READ  LF1 将读出 记录4
READP LF1 将读出 记录3
(2) KLIST SETGT  LF1
READ  LF1 将读出 记录3
READP LF1 将读出 记录2

KLIST为 kFld1(=A)/kFld2(=10)/kFld3(=30)。
(1) KLIST SETLL  LF1 
READ  LF1 将读出 记录2
READP LF1 将读出 记录1
(2) KLIST SETGT  LF1
READ  LF1 将读出 记录1
READP LF1 将读到文件头

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