FWD » Core Development » Base Language

DEFINE TEMP-TABLE tt1 BEFORE-TABLE tt0

   FIELD f11 AS CHAR

   FIELD f12 AS INT

   FIELD f13 AS DATE

   FIELD f14 AS DECIMAL.

DEFINE TEMP-TABLE tt2 BEFORE-TABLE tt5

   FIELD f21 AS CHAR

   FIELD f22 AS INT

   FIELD f23 AS DATE

   FIELD f24 AS DECIMAL.

DEFINE TEMP-TABLE tt1src /* the source for tt1 */ 

   FIELD g11 AS CHAR

   FIELD g12 AS INT

   FIELD g13 AS DATE

   FIELD g14 AS DECIMAL

/*   INDEX gx1 g11 g12 

   INDEX gx2 g12 g13*/

   INDEX gx3 IS UNIQUE g13 g14.

DEFINE TEMP-TABLE tt2src /* the source for tt2 */ 

   FIELD e21 AS CHAR

   FIELD e22 AS INT

   FIELD e23 AS DATE

   FIELD e24 AS DECIMAL.

DEFINE TEMP-TABLE tt3 FIELD f31 AS CHAR.

DEFINE TEMP-TABLE tt4 FIELD f41 AS CHAR.

BUFFER tt5:AVAILABLE.

BUFFER tt0:AVAILABLE.

DEFINE VARIABLE hDataSrc1 AS HANDLE    NO-UNDO.

DEFINE VARIABLE hDataSrc2 AS HANDLE    NO-UNDO.

DEFINE VARIABLE hDataSet  AS HANDLE    NO-UNDO.

DEFINE VARIABLE hDataSet2 AS HANDLE    NO-UNDO.

DEFINE VARIABLE ch-1      AS CHARACTER INIT ?.

DEFINE VARIABLE int-1     AS INT       INIT ?.

DEFINE VARIABLE hbuff     AS HANDLE.

DEFINE VARIABLE hSrcBuff  AS HANDLE.

DEFINE VARIABLE hUnknown  AS HANDLE.

PROCEDURE fillNotification1:

   DEFINE INPUT PARAMETER DATASET-HANDLE ds-hdl.

   MESSAGE "localFILL1:" ds-hdl:NAME.

END PROCEDURE.

hbuff = BUFFER tt2:HANDLE.

hSrcBuff = BUFFER tt2src:HANDLE.

CREATE DATASET hDataSet.

hDataSet:NAME = "DS1".

hDataSet:SET-BUFFERS(BUFFER tt1:HANDLE, hbuff).

hDataSet:ADD-RELATION(BUFFER tt1:HANDLE, hbuff, "f11,f21").

/* hDataSet:ADD-RELATION(hbuff, BUFFER tt1:HANDLE, "f21,f11"). */

CREATE DATASET hDataSet2.

/* hDataSet2:add-BUFFER(BUFFER customer:HANDLE). */

hDataSet2:ADD-BUFFER(BUFFER tt3:HANDLE).

hDataSet2:ADD-BUFFER(BUFFER tt4:HANDLE).

hDataSet2:ADD-RELATION(BUFFER tt3:HANDLE, BUFFER tt4:HANDLE, "f31,f41").

hDataSet:set-callback("before-fill", "fillNotification1").

hDataSet2:set-callback("after-fill", "fillNotification1").

hDataSet:apply-callback("before-fill").               /* localFILL1: DS1*/

hDataSet2:apply-callback("after-fill").               /* localFILL1: */

MESSAGE 1

      hbuff:DETACH-DATA-SOURCE()

      hbuff:ATTACHED-PAIRLIST.

/* 1 yes ? */

CREATE DATA-SOURCE hDataSrc1.

CREATE DATA-SOURCE hDataSrc2.

/* ATTACH-DATA-SOURCE may not be called until source buffers have been assigned to the DATA-SOURCE. (11958) */

MESSAGE 2 

        hbuff:ATTACH-DATA-SOURCE(hDataSrc2)

        hDataSrc2:SAVE-WHERE-STRING.

/* 2 no */

MESSAGE 3

      hDataSrc2:ADD-SOURCE-BUFFER(hSrcBuff, "e21,e22") 

      hDataSrc2:ADD-SOURCE-BUFFER(hSrcBuff, "e21")     /* returns YES but does nothing */

      hDataSrc2:NUM-SOURCE-BUFFERS

      hDataSrc2:KEYS

      hDataSrc2:GET-SOURCE-BUFFER(1)

      hDataSrc2:GET-SOURCE-BUFFER(2)

      hDataSrc2:GET-DATASET-BUFFER.

/* 3 yes yes 1 e21,e23 11387 ? ? */

/* Cannot have both exclude list and include list. (12779) */

MESSAGE 4

      hbuff:ATTACH-DATA-SOURCE(hDataSrc2, "f21,f23", "f21", "f22")

      hbuff:ATTACHED-PAIRLIST

      hDataSrc2:GET-DATASET-BUFFER.

/* 4 no ? ? */

/* ATTACH-DATA-SOURCE must have a valid data-source handle as the first argument. (11957) */

MESSAGE 5

      hbuff:ATTACH-DATA-SOURCE(hbuff, "f21,e21,f22,e22,f32,e32,f42,e42", "f24")

      hbuff:ATTACHED-PAIRLIST

      hDataSrc2:GET-DATASET-BUFFER.

/* 5 no ? ? */

/* Pair with <member> failed to have a member in each table. (9034) f32 */

/* DATA-SOURCE-COMPLETE-MAP requires prior ATTACH-DATA-SOURCE method to be run. (12781) */

MESSAGE 6 

      hbuff:ATTACH-DATA-SOURCE(hDataSrc2, "f21,e21,f22,e22,f32,e23,f24,e24", "f24")

      hbuff:ATTACHED-PAIRLIST

      hDataSrc2:GET-DATASET-BUFFER

      hbuff:DATA-SOURCE-COMPLETE-MAP.

/* 6 no ? ? ? */

/* ATTACH-DATA-SOURCE is only valid for buffers that are members of a dataset. (11952) */

/* Attempt to reference dataset buffer of a data-source before ATTACH-DATA-SOURCE for data-source buffer <buffer>. (11892) */

/* DATA-SOURCE-COMPLETE-MAP only legal for dataset tables. (12780) */

MESSAGE 7 

      hSrcBuff:ATTACH-DATA-SOURCE(hDataSrc2, "f21,e21,f22,e22,f32,e32,f42,e42", "f24")

      hSrcBuff:ATTACHED-PAIRLIST

      hDataSrc2:GET-DATASET-BUFFER

      hDataSrc2:FILL-WHERE-STRING

      hDataSrc2:SAVE-WHERE-STRING

      hSrcBuff:DATA-SOURCE-COMPLETE-MAP.

/* 7 no ? ? ? ? */

/* Unable to auto-generate a FILL query predicate for tt2src if field f21 in tt2 is not mapped. (11883) */

/* Unable to generate a save predicate for tt2src if field e21 is not mapped in tt5. (11896) */

/* DATA-SOURCE-COMPLETE-MAP only legal for dataset tables. (12780) */

MESSAGE 8 

      hbuff:ATTACH-DATA-SOURCE(hDataSrc2, "e22,f22,e23,f23,e24,f24", "f24")

      hbuff:ATTACHED-PAIRLIST

      hDataSrc2:GET-DATASET-BUFFER

      hDataSrc2:FILL-WHERE-STRING

      hDataSrc2:SAVE-WHERE-STRING

      hSrcBuff:DATA-SOURCE-COMPLETE-MAP.

/* 8 yes e22,f22,e23,f23,e24,f24 1185 ? ? ? */

/* ATTACH-DATA-SOURCE may not be called until source buffers have been assigned to the DATA-SOURCE. (11958) */

/* Unable to generate a save predicate for <table-name> if field <field-name> is not mapped in <temp-table-name>. (11896) */

MESSAGE 9

      hbuff:ATTACH-DATA-SOURCE(hDataSrc1, "e22,f22,e23,f23", "f24")

      hbuff:ATTACHED-PAIRLIST

      hDataSrc2:GET-DATASET-BUFFER

      hDataSrc2:FILL-WHERE-STRING

      hDataSrc2:SAVE-WHERE-STRING

      hbuff:DATA-SOURCE-COMPLETE-MAP.

/* 9 no e22,f22,e23,f23,e24,f24 1150 ? ? 

     tt2.f22,tt2src.e22,tt2.f23,tt2src.e23,tt2.f24,tt2src.e24 */

/* **Unable to assign UNKNOWN value to attribute <attribute> on <widget id>. (4083)*/

hDataSrc2:FILL-WHERE-STRING = ?.

hDataSrc2:FILL-WHERE-STRING = "abc". 

/* **Unable to assign UNKNOWN value to attribute <attribute> on <widget id>. (4083)*/

hDataSrc2:SAVE-WHERE-STRING = ?.

hDataSrc2:SAVE-WHERE-STRING = "abc".

hDataSrc2:SAVE-WHERE-STRING("-10") = "abc".

hbuff:DETACH-DATA-SOURCE().

MESSAGE 10

      hbuff:ATTACH-DATA-SOURCE(hDataSrc2, "f21,e21,e22,f22,e23,f23", "f24")

      hbuff:ATTACHED-PAIRLIST

      hDataSrc2:GET-DATASET-BUFFER

      hDataSrc2:FILL-WHERE-STRING

      hDataSrc2:SAVE-WHERE-STRING

      hbuff:DATA-SOURCE-COMPLETE-MAP.

/* 10 yes f21,e21,e22,f22,e23,f23 1185 

   WHERE tt2src.e21=tt1.f11 

   WHERE tt2src.e21=tt5.f21 and tt2src.e22=tt5.f22 

   tt2.f21,tt2src.e21,tt2.f22,tt2src.e22,tt2.f23,tt2src.e23 */

MESSAGE 11

      hDataSrc1:ADD-SOURCE-BUFFER(BUFFER tt1src:HANDLE, ?)

      hDataSrc1:KEYS

      hDataSrc1:GET-SOURCE-BUFFER()

      hDataSrc1:GET-DATASET-BUFFER

      hbuff:DATA-SOURCE-COMPLETE-MAP

      /* hbuff:ATTACH-DATA-SOURCE(hDataSrc1, "") */ .

/* 11 yes rowid 12745 ? */

/* 11 yes g13,g14 12745 ?  (with index gx3) */

/*    tt2.f21,tt2src.e21,tt2.f22,tt2src.e22,tt2.f23,tt2src.e23 */

/* Unable to get SAVE-WHERE-STRING because no KEYS phrase given in DATA-SOURCE definition and no unique index found in <buffer-name>. (11895) */ 

MESSAGE 12

   BUFFER tt1:ATTACH-DATA-SOURCE(hDataSrc1, "g13,f13,tt1.f14,g14")

   BUFFER tt1:ATTACHED-PAIRLIST

   hDataSrc1:GET-DATASET-BUFFER

   hDataSrc1:FILL-WHERE-STRING

   hDataSrc1:SAVE-WHERE-STRING

   hbuff:DATA-SOURCE-COMPLETE-MAP.

/* 12 yes g13,f13,tt1.f14,g14 12736

   ? 

   WHERE tt1src.g13=tt0.f13 and tt1src.g14=tt0.f14 

   tt2.f21,tt2src.e21,tt2.f22,tt2src.e22,tt2.f23,tt2src.e23 */

/*

localFILL1: DS1

localFILL1:

1 yes ?

ATTACH-DATA-SOURCE may not be called until source buffers have been assigned to the DATA-SOURCE. (11958)

2 no ?

3 yes yes 1 e21,e22 1131 ? ?

Cannot have both exclude list and include list. (12779)

4 no ? ?

ATTACH-DATA-SOURCE must have a valid data-source handle as the first argument. (11957)

5 no ? ?

Pair with f32 failed to have a member in each table. (9034)

DATA-SOURCE-COMPLETE-MAP requires prior ATTACH-DATA-SOURCE method to be run. (12781)

6 no ? ? ?

ATTACH-DATA-SOURCE is only valid for buffers that are members of a dataset. (11952)

Attempt to reference dataset buffer of a data-source before ATTACH-DATA-SOURCE for data-source buffer tt2src. (11892)

DATA-SOURCE-COMPLETE-MAP only legal for dataset tables. (12780)

7 no ? ? ? ? ?

Unable to auto-generate a FILL query predicate for tt2src if field f21 in tt2 is not mapped. (11883)

Unable to generate a save predicate for tt2src if field e21 is not mapped in tt5. (11896)

DATA-SOURCE-COMPLETE-MAP only legal for dataset tables. (12780)

8 yes e22,f22,e23,f23,e24,f24 1150 ? ? ?

ATTACH-DATA-SOURCE may not be called until source buffers have been assigned to the DATA-SOURCE. (11958)

Unable to generate a save predicate for tt2src if field e21 is not mapped in tt5. (11896)

9 no e22,f22,e23,f23,e24,f24 1150 ? ? tt2.f22,tt2src.e22,tt2.f23,tt2src.e23,tt2.f24,tt2src.e24

**Unable to assign UNKNOWN value to attribute FILL-WHERE-STRING on DATA-SOURCE widget. (4083)

**Unable to assign UNKNOWN value to attribute SAVE-WHERE-STRING on DATA-SOURCE widget. (4083)

10 yes f21,e21,e22,f22,e23,f23 1150  WHERE tt2src.e21=tt1.f11 WHERE tt2src.e21=tt5.f21 and tt2src.e22=tt5.f22

   tt2.f21,tt2src.e21,tt2.f22,tt2src.e22,tt2.f23,tt2src.e23

11 yes g13,g14 1162 ? tt2.f21,tt2src.e21,tt2.f22,tt2src.e22,tt2.f23,tt2src.e23

12 yes g13,f13,tt1.f14,g14 1153 ? WHERE tt1src.g13=tt0.f13 and tt1src.g14=tt0.f14

   tt2.f21,tt2src.e21,tt2.f22,tt2src.e22,tt2.f23,tt2src.e23

*/