Entrar Ainda não tem acesso?
2
respostas

DISPLAY DA TELA EM LUGAR ERRADO

Referente ao curso Cobol parte 2: manipulando arquivos de dados, no capítulo Criando Relatórios e atividade Gerando relatório em disco

por Carla Borges
| 79.2k xp | 2 posts
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.

2 respostas
por Thiago Augusto da Silva Rasquino
| 523.9k xp | 102 posts
Programador Java Júnior 
 9000-RELATORIOTELA.
             MOVE 'MODULO - RELATORIO ' TO WRK-MODULO.
             DISPLAY TELA.           
             MOVE 12345 TO CLIENTES-FONE.
             START CLIENTES KEY EQUAL CLIENTES-FONE.
             READ CLIENTES
                 INVALID KEY
                     MOVE 'NENHUM REGISTRO ENCONTRADO' TO WRK-MSGERRO
                  NOT INVALID KEY
                   DISPLAY '   RELATORIO DE CLIENTES '
                   DISPLAY '----------------------'
                   PERFORM UNTIL CLIENTES-STATUS = 10 
                     DISPLAY CLIENTES-FONE ' '
                           CLIENTES-NOME ' '
                           CLIENTES-EMAIL
                     READ CLIENTES NEXT
                   END-PERFORM
             END-READ.
               ACCEPT MOSTRA-ERRO.
por Carla Borges
| 79.2k xp | 2 posts

Não consegui achar a solução ainda.