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