Hall zusammen,
und vielen Dank für eure Antworten.
Da in der Anwendung bisher auch nicht mit Pointern gearbeitet wird, würde ich die Lösung von Birgitta bevorzugen.
Hierbei stoße ich nur auf ein Problem.
Das funktioniert.
DCL-DS DSKW;
KW01;
KW02;
KW03;
...
KW53;
KW Like(KW01) Dim(53) Pos(1);
End-Ds;

Aber sobald ich es um eine Zeile erweitere also..

DCL-DS DSKW;
KW01;
KW02;
KW03;
...
KW53;
KW Like(KW01) Dim(53) Pos(1);
KW LIKE(KW02) DIM(53) POS(2);
End-Ds;
Sagt mir der Compiler, dass KW bereits definiert ist.
Da habe ich jetzt wohl gerade ein Brett vor dem Kopf...
Wenn sich das noch lösen lässt wäre das klasse.

Vielen Dank