
FUNCTION firstdom
PARAMETERS p_date
PRIVATE p_date, r_date

r_date = p_date               &&  isolate variable

IF type('r_date') = 'C'       &&  character param
  r_date = ctod(r_date}       &&  make it a date
ENDIF

IF type('r_date') # 'D' .or. r_date = {}
  ?? chr(7)                   &&  bad parameter
  RETURN({})                  &&  return empty date
ELSE
  RETURN(r_date - day(r_date) + 1)
ENDIF

********

