To call the Calendar lookup procedure from embedded code, insert the following.

GLOBALREQUEST = SELECTRECORD

PUTINI('CalReturn','CalReturn',%GetDateField,'%BSIniFile')

%GetDateProcedure()

IF(GETINI('CalReturn','CalReturn',,'%BSIniFile') <> 0)

%GetDateField = GETINI('CalReturn','CalReturn',,'%BSIniFile')

END

display()

Substitute the following values.

%GetDateField =  Your Field to receive  the date value

%BSIniFile = Ini file in use for date passing, default is '.\BST.INI'

%GetDateProcedure() = Name of your procedure with the calendar and BCTSelectButton on it.