Q5/ws_objects/Cw_interface.pbl.src/f_rst_cmonth_date.srf

$PBExportHeader$f_rst_cmonth_date.srf
global type f_rst_cmonth_date from function_object
end type

forward prototypes
global subroutine f_rst_cmonth_date (long arg_cmonth, ref datetime arg_sdate, ref datetime arg_edate)
end prototypes

global subroutine f_rst_cmonth_date (long arg_cmonth, ref datetime arg_sdate, ref datetime arg_edate);SELECT sdate,edate Into :arg_sdate,:arg_edate From cw_calendar Where cmonth = :arg_cmonth;
	IF sqlca.SQLCode <> 0 THEN
		arg_sdate = DateTime(Date('1901-1-1'),Time(0))
		arg_edate = DateTime(Date('2099-1-1'),Time(0))
	END IF
end subroutine