Bug na movimentação de campos com pic Z:
----------------------------------------

VAR1 PIC ZZZ.ZZZ.ZZZ,ZZ
VAR2 PIC ZZZ.ZZZ.ZZZ,ZZ

MOVE 1234,56 TO VAR1
MOVE VAR1 TO VAR2
DISPLAY VAR2

mostra 1234,00 quando deveria ser 1.234,56