>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)) >>