학습 3: open 및 forEach로 커서 관리

이 학습에서는 forEach 문을 사용하여 결과 세트를 단계적으로 이동하여 데이터베이스에서 특정 가격 이상의 항목을 검색할 것입니다.

1. programs 패키지에 selectItems라는 새 프로그램을 작성하십시오.
2. 프로그램에서 기본 코드를 제거하여 다음과 같이 표시되도록 하십시오.

   package programs;
   
   program selectItems type BasicProgram {}
     
     function main()
     end
     
   end

3. 다음과 같이 데이터베이스에 액세스하는 동안 EGL에 발생할 수 있는 오류를 처리하는 함수를 추가하십시오.

   function handleDBException(exception SQLException)
     SysLib.writeStdout("Error accessing database. "::
       "See Troubleshooting section");
     SysLib.writeStdout(exception.message);
   end

   나중에 이 학습서에서 데이터베이스 액세스 시 발생하는 오류 처리에 대해 자세히 설명할 것입니다.
4. 다음과 같이 최대 비용의 Price 매개변수를 기반으로 데이터베이스에서 행을 검색하는 함수를 추가하십시오.

   function printExpensiveItems(maxPrice Price in)
     
   end

   Price dataItem 파트는 DECIMAL 기본 유형에 따라 다릅니다. 이 유형은 eglderbyr7/ primitivetypes/data 파일에 정의되어 있습니다.
5. 컨텐츠 지원을 사용하여 함수 선언에서 Price 매개변수를 추가하지 않은 경우 다음 import 문을 파일의 맨 위 package 문 바로 아래 추가하십시오.

   import eglderbyr7.primitivetypes.data.*;

   컨텐츠 지원을 사용하면 처음 몇 개의 문자를 입력한 다음 Ctrl+Space를 눌러 키워드 이름 및 유형을 완료할 수 있습니다. 컨텐츠 지원을 사용하여 유형(예: Price dataItem 파트)을 입력하면 컨텐츠 지원이 파일에 적절한 import 문을 추가합니다.

6. 새 함수에서 open 문을 추가하여 결과 세트와 커서를 작성하십시오. 커서가 표시하는 행을 보유할 임시 Item 변수도 필요합니다.

     tempItem Item;
     open expensiveItems for tempItem;

7. 다시 한 번, 컨텐츠 지원을 사용하여 Item 레코드 유형을 삽입하지 않은 경우 import 문을 추가하여 Record 파트를 범위 안에 가져오도록 하십시오.

   import eglderbyr7.data.Item;

8. open 문에 커서를 두고 마우스 오른쪽 단추를 클릭한 다음 SQL 문 > 추가를 클릭하여 SQL 코드가 명시적으로 표시되도록 하십시오. open 문은 다음과 같습니다.

     open expensiveItems for tempItem with
       #sql{
         select
           EGL.ITEM.ITEM_ID, EGL.ITEM.NAME, EGL.ITEM.IMAGE, 
           EGL.ITEM.PRICE, EGL.ITEM.DESCRIPTION
         from EGL.ITEM
         where
           EGL.ITEM.ITEM_ID >= :tempItem.ItemId
         order by
           EGL.ITEM.ITEM_ID asc
       };

9. 명시적 SQL 코드에서 WHERE절을 변경하여 maxPrice 변수 이상인 EGL.ITEM.PRICE 열 값이 함수에 전달된 행만을 선택하십시오.

     open expensiveItems for tempItem with
       #sql{
         select
           EGL.ITEM.ITEM_ID, EGL.ITEM.NAME, EGL.ITEM.IMAGE, 
           EGL.ITEM.PRICE, EGL.ITEM.DESCRIPTION
         from EGL.ITEM
         where
           EGL.ITEM.PRICE >= :maxPrice
         order by
           EGL.ITEM.ITEM_ID asc
       };

   maxPrice 변수 앞에 콜론을 포함하여 해당 변수가 SQL 키워드나 값이 아닌 EGL 변수임을 표시하십시오.
10. 다음과 같이 open 문 다음에 항목에 대한 정보를 콘솔에 인쇄하는 forEach 루프를 추가하십시오.

      forEach (tempItem)
        SysLib.writeStdout(tempItem.Name :: " " ::
          tempItem.Description :: " $" :: tempItem.Price);
      end

    전체 함수는 다음과 같습니다.

    function printExpensiveItems(maxPrice Price in)
      
    tempItem Item;
    open expensiveItems for tempItem with
      #sql{
        select
          EGL.ITEM.ITEM_ID, EGL.ITEM.NAME, EGL.ITEM.IMAGE,
          EGL.ITEM.PRICE, EGL.ITEM.DESCRIPTION
        from EGL.ITEM
        where
          EGL.ITEM.PRICE >= :maxPrice
        order by
          EGL.ITEM.ITEM_ID asc
      };
      
    forEach (tempItem)
      SysLib.writeStdout(tempItem.Name :: " " ::
        tempItem.Description :: " $" :: tempItem.Price);
    end

11. main 함수에서 함수를 호출하여 maxPrice 값을 전달하십시오.

    function main()
      try
        printExpensiveItems(200);
      onException(exception SQLException)
        handleDBException(exception);
      end
    end

12. 프로그램을 생성하고 실행하십시오.

Laptop PC Great little machine.  Take it anywhere with you. $1111.11
Combination Safe Keep your valuables safe and secure.  Put 'em in here. $222.22
Desktop PC Lots'a power, at the right price.  Includes monitor. $888.55

이 학습에서는 open 및 forEach를 사용하여 한 번에 한 행씩 결과 세트에 대해 작업하는 방법에 대해 배웠습니다.