The following example uses the %EffDtCheck meta-SQL statement, which expands into an
effective date sub-query suitable for a WHERE clause. &DATE has the value of 01/02/1998. The &REC object has an EFFDT key field. The following code sample
SQLExec("SELECT FNUM FROM PS_REC A where %EffDtCheck(:1, A, :2)", &REC, &DATE);
resolves into the following:
"Select FNUM from PS_REC A where EFFDT = (select MAX(EFFDT)
where PS_REC.FNUM = A.FNUM
and PS_REC.EFFDT <= %DateIn('1998-01-02') )"
Post a Comment