the output file is something like this
00000000000
00000000000
Jacinto Pinto Akinokudoi 661312684321
Jacinto Pinto Akinokudoi 661312684321
Jacinto Pinto Akinokudoi 661312684321
Jacinto Pinto Akinokudoi 661312684321
Jacinto Pinto Akinokudoi 661312684321
00000000000
Jacinto Pinto Akinokudoi 661312684321
Jacinto Pinto Akinokudoi 661312684321
Jacinto Pinto Akinokudoi 661312684321
Jacinto Pinto Akinokudoi 661312684321
Jacinto Pinto Akinokudoi 661312684321
WHEN 'G'
MOVE NR-PROP-SDV-ENT TO NR-PROP-WS
MOVE NR-PROP-SDV-ENT TO LPARM01
PERFORM R-0666-00-CALL
MOVE LPARM01-D1 TO DV-WS
MOVE NR-PROP-DV TO CONVERSI-NP-WS-2
MOVE CONVERSI-NP-WS-2 TO CONVERSI-NP-WS-3
MOVE CONVERSI-NP-WS-3 TO CONVERSI-NUM-PROPOSTA-SIVPF
DISPLAY CONVERSI-NUM-SICOB
PERFORM R-1000-00-ACESSARTABELAS
MOVE CLIENTES-NOME-RAZAO TO NOME-DET
IF CLIENTES-CGCCPF IS NUMERIC
MOVE CLIENTES-CGCCPF TO CPF-CONV
ELSE
DISPLAY 'CLIENTES-CGCCPF NOT NUMERIC'
MOVE ZEROS TO CLIENTES-CGCCPF
END-IF
MOVE CPF-CONV TO CPF-DET
MOVE NR-PROP-SDV-ENT TO NR-PROP-WS
MOVE NR-PROP-SDV-ENT TO LPARM01
PERFORM R-0666-00-CALL
MOVE LPARM01-D1 TO DV-WS
MOVE NR-PROP-DV TO CONVERSI-NP-WS-2
MOVE CONVERSI-NP-WS-2 TO CONVERSI-NP-WS-3
MOVE CONVERSI-NP-WS-3 TO CONVERSI-NUM-PROPOSTA-SIVPF
DISPLAY CONVERSI-NUM-SICOB
PERFORM R-1000-00-ACESSARTABELAS
MOVE CLIENTES-NOME-RAZAO TO NOME-DET
IF CLIENTES-CGCCPF IS NUMERIC
MOVE CLIENTES-CGCCPF TO CPF-CONV
ELSE
DISPLAY 'CLIENTES-CGCCPF NOT NUMERIC'
MOVE ZEROS TO CLIENTES-CGCCPF
END-IF
MOVE CPF-CONV TO CPF-DET