Danke Baldur und Birgitta,

Hab beide Varianten versucht.

Lösung:
dcl-ds MYDTA dtaara('MYDTA');
myDtaFld zoned(3:0);
end-ds;

ergibt zumindest keinen Fehler.

@Birgitta:
die GrossKleinSchreibe hab ich nur hier im Forum verwendet.

Interessanterweise funktioniert ein direkter Zugriff auf die DS, wenn Charakter angegeben sind, wie im ET beschrieben, aber mit numerischen Daten = Bauchlandung.