Dachte, ich informier euch noch wie's richtig funktioniert:

dcl-s MYDTAFLD packed(3:0) dtaara('MYDTA');
in MYDTAFLD;