FWD » Core Development » Database

DEFINE TEMP-TABLE tt NO-UNDO

  FIELD cE  AS CHARACTER

  FIELD cM  AS CHARACTER

  FIELD val AS CHARACTER

  INDEX idxE AS UNIQUE cE.

DEFINE DATASET ds FOR tt

  DATA-RELATION r1 FOR tt, tt

    RELATION-FIELDS (cE, cM) RECURSIVE.

OUTPUT TO 'ds-test.txt'. 

CREATE tt. tt.cE = 'm0'. tt.val = '-m0'. 

CREATE tt. tt.cE = 'm1'. tt.cM = 'm0'. tt.val = 'm0-m1'. 

CREATE tt. tt.cE = 'm2'. tt.cM = 'm0'. tt.val = 'm0-m2'. 

CREATE tt. tt.cE = 'e1'. tt.cM = 'm1'. tt.val = 'm1-e1'. 

CREATE tt. tt.cE = 'e2'. tt.cM = 'm2'. tt.val = 'm2-22'.

DEFINE QUERY qtt1 FOR tt.

DEFINE DATA-SOURCE srctt1 FOR QUERY qtt1 tt KEYS(cE).

BUFFER tt:ATTACH-DATA-SOURCE(DATA-SOURCE srctt1:HANDLE).

QUERY qtt1:QUERY-PREPARE("FOR EACH tt").

DATASET ds:FILL() NO-ERROR.

RUN show-error("after ds:FILL()").

BUFFER tt:DETACH-DATA-SOURCE(). 

OUTPUT CLOSE.

PROCEDURE show-error:

    DEF INPUT PARAM action AS CHAR.

    DEF VAR nmsg AS INTEGER NO-UNDO.

    MESSAGE "After" action ": error =" ERROR-STATUS:ERROR 

            "num-messages =" ERROR-STATUS:NUM-MESSAGES 

            "type =" ERROR-STATUS:TYPE 

            .

    IF ERROR-STATUS:NUM-MESSAGES > 0 THEN DO:

        DO nmsg = 1 TO ERROR-STATUS:NUM-MESSAGES:

          MESSAGE "***" ERROR-STATUS:GET-NUMBER(nmsg) ':' ERROR-STATUS:GET-MESSAGE(nmsg).

        END.

    END.                      

END.