PRIVATE pdCurrDate pdCurrDate = some_date && must be a date datatype TEXT TO lcSQL TEXTMERGE NOSHOW PRETEXT 1 BEGIN PackageName.ProcName(pdCurrDate=>?pdCurrDate); END; ENDTEXT lnSuccess = SQLEXEC(GetHandle(), lcSQL)>Hi Mark,
>SELECT RTRIM(PERS.LAST_NAME) || ', ' || RTRIM(PERS.FIRST_NAME) AS EMP_NAME, > PERS.PERS_NO >FROM EMP, > PERS >WHERE EMP.PERS_NO = PERS.PERS_NO > AND (EMP.OUT_DT IS NOT NULL AND EMP.OUT_DT < pdCurrDate) > AND EMP.HRS_BASE = 0 >ORDER BY 1; >>