Hello Flavio
I am not expert in COBOL, use more assembler, however seems the both fields are not initialized and they are COMP-3 that means PACKED they need signal
The first MOVE is correct because the system will use ZAP instruction that initialize and add zero and work ok has signal
The second move is trying to MOVE or ADD ZERO to a field not initialized them S0C7 any PACKED decimal field invalid not have correct format for PACKED
Use MOVE ZEROS for the second field after that you can use both fields or I don't remember correct you can initialize both fields with ZEROS in the COMP-3 declaration
And you don't need to use two instruction MOVE in the PROCEDURE
Hope this Help
Giovanni
TPF Software Inc
------------------------------
Giovanni Bozzetti
------------------------------