INFDS für mehrere Dateien als /COPY

[B.Hauser]

Wie Dieter bereits gesagt hat:
Eine Referenz-Datenstrukur in einer Copy-Strecke anlegen und dann mit LikeDS(RefStruktur) definieren. Datenstrukturen, die mit LIKEDS definiert wurden sind automatisch qualifiziert, d.h. die Unterfelder müssen mit DSName.UnterFeld angesprochen werden. Damit kann das gleiche Unterfeld mehrfach verwendet werden.

Eine andere Möglichkeit wäre nur die Unter-Felder in eine Copy-Strecke packen und die Datenstruktur als qualified definieren. (M.E. ist allerdings die 1 Lösung die bessere!):

D InfDSXX       DS                      LikeDS(RefInfDS)
D InfDSYY       DS                      LikeDS(RefInfDS)

D InfDSAA       DS                      Qualified
D/Copy QCPYLESRC,InfDSSubf

D InfDSBB       DS                      Qualified
D/Copy QCPYLESRC,InfDSSubf
 /Free
     Chain (InfDSXX.RRN) MyFileXX;
     Chain (InfDSBB.RRN) MyFileBB;
 /End-Free 

Birgitta