Hi,
Are you using SQL statements or pure Progress statements. Because with SQL you can have problems.
/* a1.p */
DEFINE NEW SHARED WORK-TABLE temporal
FIELD campo1 AS CHAR
FIELD campo2 AS CHAR
FIELD campo3 AS CHAR.
INSERT temporal WITH 1 COL TITLE "INSERT".
RUN a2.p.
/* a2.p */
DEFINE SHARED WORK-TABLE temporal
FIELD campo1 AS CHAR
FIELD campo2 AS CHAR
FIELD campo3 AS CHAR.
SELECT temporal WITH 1 COL 1 DOWN TITLE "SELECT".
-- The result is an error message.
But, If you use Progress Code for it is working:
/* a1.p */
DEFINE NEW SHARED WORK-TABLE temporal
FIELD campo1 AS CHAR
FIELD campo2 AS CHAR
FIELD campo3 AS CHAR.
CREATE temporal.
UPDATE temporal WITH 1 COL TITLE "INSERT".
RUN a2.p.
/* a2.p */
DEFINE SHARED WORK-TABLE temporal
FIELD campo1 AS CHAR
FIELD campo2 AS CHAR
FIELD campo3 AS CHAR.
FOR EACH temporal:
DISPLAY temporal WITH 1 COL 1 DOWN TITLE "SELECT".
END.
An advice,
For this situation we use ONE include where "NEW" is a parameter. With this solution you can ensure that everywhere the same structure will be used.
/* Def_TT.i */
DEFINE {&New} SHARED WORK-TABLE temporal
FIELD campo1 AS CHAR
FIELD campo2 AS CHAR
FIELD campo3 AS CHAR.
/* a1.p */
{Def_TT.i &New=NEW}
CREATE temporal.
UPDATE temporal WITH 1 COL TITLE "INSERT".
RUN a2.p.
/* a2.p */
{Def_TT.i}
FOR EACH temporal:
DISPLAY temporal WITH 1 COL 1 DOWN TITLE "SELECT".
END.
Regards,
Istvan
