데이터베이스를 사랑하는 사람들의 모임 데이터베이스 사랑넷

cache classmethod 리턴 값을 레코드 셋이나 객체 리스트로 받고 싶습니다.

작성자

이국진(rubiaru)

작성일

2009-11-19 15:55

조회수

6,849

하다보니 성공해서 샘플을 올려 놓습니다.

1. cache 클래스들

Class KOREA.ClassMethodTest Extends (%RegisteredObject, %XML.Adaptor)
{
/// 호출하는 클래스 메소드
ClassMethod SearchPatientInfoNoRoutine() As KOREA.PersonInfo [ SqlProc ]
{

&sql(

Declare  cursorPatienInfo  Cursor For

SELECT
PAPMI_RowId as PPAPMIRowId,

INTO
:paramPPAPMIRowId

FROM PA_PatMas

WHERE PAPMI_RowId BETWEEN 1 AND 1000

)

&sql(OPEN cursorPatienInfo)

SET personInfoObjects = ##CLASS(KOREA.PersonInfo).%New()

f  d  q:(SQLCODE=100)
. &SQL(fetch cursorPatienInfo)
. i SQLCODE = 0 d
. . SET tempInfo = ##CLASS(KOREA.Info).%New()
. . SET tempInfo.PPAPMIRowId =paramPPAPMIRowId
. . DO personInfoObjects.Insert(tempInfo)

&sql(CLOSE cursorPatienInfo)

QUIT personInfoObjects
}
}

Class KOREA.PersonInfo Extends (%Library.ListOfObjects, %XML.Adaptor)
{

Parameter ELEMENTTYPE = "KOREA.Info";

}

Class KOREA.Info Extends (%RegisteredObject, %XML.Adaptor)
{

/// PA_PatMas Row ID
Property PPAPMIRowId As %String;

}

2.  닷넷에서 클래스위저드로 맵핑 클래스 만든 후 아래와 같이 사용
KOREA.PersonInfo info = KOREA.ClassMethodTest.SearchPatientInfoNoRoutine(conn);

이국진(rubiaru)님이 2009-11-25 15:57에 작성한 댓글입니다.
이 댓글은 2009-11-25 15:58에 마지막으로 수정되었습니다.

No.

제목

작성자

작성일

조회

1051

CacheODBC 로그 남기기

CacheSQL

2009-12-15

6792

1050