Ainda não tem acesso? Estude com a gente! Matricule-se
Ainda não tem acesso? Estude com a gente! Matricule-se

Solucionado (ver solução)

Gerando relatório em tela.

Professor...

olha eu novamente... rs

flowdock / skype / zap seria interessante pra gente conversar ... rs

Eu estou fazendo o relatório em tela conforme o exemplo.. porém para mim na linha do START ele dá uma mensagem de erro..

START not allowed with ACCESS MODE RANDOM...

segue o código onde está a abertura do arquivo e o erro em si...

[INICIO OMITIDO]

FILE-CONTROL.
  SELECT PRODUTOS ASSIGN TO 'C:\RIC\BIN\PROD.DAT'
    ORGANIZATION IS INDEXED
    ACCESS MODE IS RANDOM
    FILE STATIS IS PRODUTOS-STATUS
    RECORD KEY IS PRODUTOS-CHAVE.
DATA DIVISION.
FILE SECTION.
FD PRODUTOS.
01 PRODUTOS-REG.
     05 PRODUTOS-CHAVE.
          10 PRODUTOS-ID   PIC X(13).
     05 PRODUTOS-NOME PIC X(50).
     05 PRODUTOS-PRECO PIC 9(12).

[ OTIMIDO O RESTO DOS CAMPOS]

WORKING-STORAGE SECTION.
    77 PRODUTOS-STATUS PIC 9(02).

[OMITIDO O RESTO DO CÓDIGO]

8050-RELATORIO-TELA.
           MOVE 'MODULO - RELATORIO EM TELA' TO WRK-MODULO.
           DISPLAY TELA.
           MOVE '0000000000001' TO PRODUTOS-ID.

[ NESSA LINHA QUE DÁ O ERRO ]

           START PRODUTOS KEY EQUAL PRODUTOS-ID.
           READ PRODUTOS
               INVALID KEY
                   MOVE 'NENHUM REGISTRO ENCONTRADO' TO WRK-MSG-ERRO.
               NOT INVALID KEY
                   DISPLAY 'RELATORIO DE PRODUTOS'
                   DISPLAY '---------------------'
                   PERFORM UNTIL PRODUTOS-STATUS = 10
                       DISPLAY PRODUTOS-ID ' '
                               PRODUTOS-REFER ' '
                               PRODUTOS-PREC-VEN1
                   END-PERFORM
           END-READ.
           ACCEPT MOSTRA-ERRO.
1 resposta
solução

Ricardo, boa noite

Troque o access mode para dynamic.

  • e altere o FILE STATIS para FILE STATUS..

Ivan