Create one Datastructure from more External files

[Daan.Koster@xxxxxxxxx]

Hi,

We want to concatenate more filestructures in one large parameter field.
See code below.
Is it possible to achieve this with pointers instead of moves and duplicate
 fields?

I would be grateful for any help


Daan Koster

###########

 FMT *  ..... *. 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+.
0000.00       *-----------------------------------------------------------
0000.00       * External datastructures
0000.00       *-----------------------------------------------------------

0000.00      D DsFile01      E DS                  ExtName(File01)
0000.00      D DsFile02      E DS                  ExtName(File02)
0000.00      D DsFile03      E DS                  ExtName(File03)
0000.00      D DsFile04      E DS                  ExtName(File04)
                .... more files

0000.00
*-------------------------------------------------------------------------

0000.00       * Parm datastructure

0000.00
*-------------------------------------------------------------------------


0000.00      D Parm_ALL        DS

0000.00      D Parm_File01                         Like(DsFile01)
0000.00      D Parm_File02                         Like(DsFile02)
0000.00      D Parm_File03                         Like(DsFile03)
0000.00      D Parm_File04                         Like(DsFile04)
                .... more parm likes

0000.00      C     *Entry        PList

0000.00      C                   Parm                    PRCOMC
7
0000.00      C                   Parm                    Parm_ALL


0000.00      C                   Eval      Parm_File01 = DsFile01
0000.00      C                   Eval      Parm_File02 = DsFile02
0000.00      C                   Eval      Parm_File03 = DsFile03
0000.00      C                   Eval      Parm_File04 = DsFile04
                .... more Evals




+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---