... versteh ich das irgendwie falsch? Das ist doch elementar, das Einzige, was nicht ganz glatt ist: weder der Alfawert noch eine zoned Variable weiß wieviel Nachkommastellen er/sie hat.
Das ist doch simpel eine Procedure huddel2pack(huddel : scale), die eine packed(30:10) zurückgibt (huddel ist alfa, scale ist int).
Drin eine DS mit Alfa und zoned Feld überlagert. Parameter in alfa rein, durch scale dividieren und an den Returnwert zuweisen.

D*B