%lookup

[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)