%lookup

[camouflage]

Ich denke, dass du TPKw 16 x 240 Stellen definiert hast.
Vielleicht:
D TPKW 15 DIM(16) OVERLAY TPKW01

Anmerkung:
Wobei ich den ascend auf dem Array schon noch heiss finde. Hab das so noch nie angewendet, funktioniert das überhaupt?

[Fuerchau]

In ILE sieht die Definitionswelt etwas anders aus.
Der Compiler lehnt Redefinitionen ab, die länger sind als der Ursprung.
Also

D ds
d TPKW 15 dim(16)
d TPKW01 1 15
d TPKW02 16 30
d :

Wichtig ist das Weglassen von ASCEND!
Damit erzwingst du, dass die Tabelle aufsteigend sortiert sein muss!
Ansonsten wird nämlich nichts gefunden, da die Runtime nach dem Binärhalbierungsverfahren sucht.

[dibe]

Meiner Meinung nach, sollten sie statt der absoluten Angaben mit *Next arbeiten

D DS
D TPKW 15 DIM(16)
D TPKW01 like(TPKW) overlay(TPKW:1)
D TPKW02 like(TPKW) overlay(TPKW:*next)
...

Dietlinde Beck

[Fuerchau]

Unabhängig davon, die absoluten Angaben können auch aus einer externen DS kommen.
Was auch ganz prima geht:

D MyFile DS extname(MyFile)

D MyTabPtr s * inz(%addr(xxfld01))
D XXFLD s like(yyfld01) dim(nn) based(MyTabPtr)

Das klappt dann sogar mit mehreren Feldern.
Wie oft findet man Strukturen wie:
d FLDA01 ...
d FLDB01 ...
d FLDA02 ...
d FLDB02 ...

Dann nehme ich halt folgende DS

D MyDS ds dim(nn) based(MyTabPtr)
d FLDA like(FLDA01)
d FLDB like(FLDB01)