Erstmal Dank für die Hilfe.
Ich habe nachstehende Lösung gefunden. Dann klappt es auch mit SambaPlus.

Gruss

Stefan Heyden

D DS_Feld DS
D DS_Fld_A 1 8
D DS_Fld_N 1 8P 2

D BinFeld S 8 INZ(X'0000000000000000')

c move ds_fld_A BinFeld