RPGLE 데이터 Strucutre 배열 조회

Question

데이터 구조 배열을 만들었으며 키 조합을 기반으로보고 싶습니다. 즉 아래 DS에서 tblName과 tblElement 및 tblDivision이 일치하고 tblRes 값을 반환하면 조회를 찾아 색인을 가져 오려고합니다.

D TblAryDs  DS     qualified dim(9999)      
    D tblName      3           
    D tblElement     10           
    D tblDivision     5           
    D tblRes      2           

//Not Sure How to do the below lookup 
     idx = %lookup(tblName:TblAryDs(*).tblName) && %lookup(tblElement:TblAryDs(*).tblElement) && %lookup(tblDivision:TblAryDs(*).tblDivision);         
     if idx > *zeros;                     
     return TblAryDs(*).tblRes; 
     endif; 

Answer 1

D TblAryDs  DS     qualified dim(9999)      
D key 
D tblName      3a overlay(key)           
D tblElement     10a overlay(key:*next)           
D tblDivision     5a overlay(key:*next)           
D tblRes      2a   

    /FREE 
    idx = %lookup(tblName + tblElement + tblDivision 
        :TblAryDs(*).key); 
    if idx > *ZEROS; 
     return TblAryDs(idx).tblRes; 
    endif; 
    /END-FREE 

주 : 상기 코딩 된 바와 같이, 모든 %LOOKUP() 9999 개 요소를 검색한다. 여러 값을 반복적으로 검색해야하는 경우 ASCEND 키워드를 배열에 추가하고 SORTA을 사용하여 검색하기 전에 정렬하십시오. 마지막으로 배열에서 실제로 사용되는 요소 수를 추적하십시오.

idx = %lookup(tblName + tblElement + tblDivision 
        : TblAryDs(*).key : nbrElemUsed); 

이 방법 %LOOKUP()%는 활성 요소의 훨씬 빠른 이진 검색을 수행합니다.