FWD » Core Development » Database

define temp-table tt1

    field f1-dte as date

    field f2-int as integer

    field f3-dte as date

    field f4-chr as char

    field f5-dec as decimal.

define temp-table tt2

    field f1-dte as date

    field f2-int as integer

    field f3-int as integer

    field f4-chr as character.

CREATE tt1.

tt1.f1-dte = 02/05/05.

tt1.f2-int = 10.

tt1.f3-dte = 04/04/05.

tt1.f4-chr = 'ABC'.

tt1.f5-dec = 5.2.

CREATE tt2.

tt2.f1-dte = 02/05/05.

tt2.f2-int = 10.

tt2.f4-chr = 'ABC'.

tt2.f3-int = 5.

RELEASE tt1.

RELEASE tt2.

FOR 

   EACH tt1 

      WHERE  tt1.f1-dte = 02/05/05 

        AND  tt1.f2-int = 10 

        AND  tt1.f3-dte = 04/04/05 

        AND  tt1.f4-chr = 'ABC' NO-LOCK, 

   FIRST  tt2 

      WHERE  tt2.f1-dte = 02/05/05 

        AND  tt2.f2-int = 10 

        AND  tt2.f4-chr = 'ABC' 

        AND  (tt1.f5-dec = 0 

           OR tt2.f3-int = INTEGER(tt1.f5-dec)

           OR tt2.f4-chr = STRING(tt1.f5-dec)):

   DISPLAY tt1.

   DISPLAY tt2.

END.