Create one Datastructure from more External files

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
+---