Externe Dateifelder indexierbar machen in Free

[B.Hauser]

Damit hast Du doch schon alles definiert was Du brauchst:

DCL-DS DSKW;
   KW01;
   KW02;
   KW03;
   ...
   KW53;
  KW Like(KW01) Dim(53) Pos(1);
End-Ds;

Die Feldgruppe KW hat bereits 53 Elemente ... und die Feldgruppe überlagert die ganze Datenstruktur, da sie auf der 1. Stelle (Pos(1)) beginnt, also alle einzelne Einträge (KW01 - KW053).

Da die Feldgruppe mit LIKE(KW01) definiert ist also wie KW01 (und ich gehe davon aus dass alle anderen 52 genauso definiert sind - ansonsten hast Du ein anderes Problem!), sollte alles ordentlich überlagert sein.
Damit ist also in KW(1) das erste Element und KW(53) das 53. Element und in KW(27) das 27.!

Du Kannst direkt KW(1), KW(23) ... oder KW(x) (vorausgesetzt x hat einen Wert zwischen 1 und 53) ansprechen.

[peterspeer]

Danke Birgitta !
Da hatte ich wohl ein (dickes) Brett vorm Kopf.
Es klappt.

Vielen Dank an alle für die schnellen Rückmeldung !