pds


ProDataSet mimimal case read example

This is a minimal case example of using a ProDataset to marshal data from one TT to another TT. This code was written to demonstrate how a data-source, dataset, and a set of temp-tables are structurally assembled to read data from one table into another table.

   /* Procedure Temp-Tables         */

DEFINE TEMP-TABLE tt-src   NO-UNDO
   FIELD i1    AS INTEGER

   INDEX i-i1     i1
   .

DEFINE TEMP-TABLE tt-tgt   NO-UNDO
   LIKE tt-src
   .

   /* Procedure Variables           */

DEFINE VARIABLE cur-cnt    AS INTEGER     NO-UNDO.
Syndicate content