>DECLARE INTEGER GetMoadim IN kdate.dll INTEGER day, INTEGER month, ;
>INTEGER year, INTEGER diaspora, STRING @ moadim
>
>LOCAL lcMoadim, lnRetVal
>&& allocate memory for the structure (2 integers 4 bytes each = 8 bytes)
>lcMoadim = SPACE(8)
>lnRetVal = GetMoadim(1,1,1900,0,@lcMoadim)
>?lnRetVal
>&& extract values from "structure string"
>?"Moed", DwordToNum(SUBSTR(lcMoadim,1,4))
>?"Type", DwordToNum(SUBSTR(lcMoadim,5,4))
>