9000-RELATORIOTELA.
MOVE 'MODULO - RELATORIO' TO WRK-MODULO.
DISPLAY TELA.
MOVE 1 TO PETS-FONE.
START PETS KEY EQUAL PETS-FONE.
READ PETS
INVALID KEY
MOVE 'NENHUM REGISTRO ENCONTRADO' TO WRK-MSGERRO
NOT INVALID KEY
MOVE 'REGISTROS' TO WRK-MSGERRO
DISPLAY ' RELATORIO DOS PETS '
DISPLAY '----------------------'
PERFORM UNTIL PETS-STATUS = 10
ADD 1 TO WRK-QTREGISTROS
DISPLAY PETS-FONE ' '
DISPLAY PETS-DONO ' '
READ PETS NEXT
ADD 1 TO WRK-CONTALINHA
IF WRK-CONTALINHA > 5
MOVE 'PRESSIONE ALGUMA TECLA' TO WRK-MSGERRO
ACCEPT MOSTRA-ERRO
MOVE 'MODULO - RELATORIO' TO WRK-MODULO
DISPLAY TELA
MOVE 'MODULO - RELATORIO' TO WRK-MODULO
DISPLAY TELA
MOVE 0 TO WRK-CONTALINHA
END-IF
END-PERFORM
END-READ.
MOVE 'REGISTROS LIDOS' TO WRK-MSGERRO.
MOVE WRK-QTREGISTROS TO WRK-MSGERRO(17:05).
ACCEPT MOSTRA-ERRO.
Meu relatório aparece fora da tela, junto ao nome do sistema, que no meu caso é de um petshop. Caso alguém precise de mais partes do código, eu envio.
