COBOL - Ler Exemplo de Declaração
Vamos ver um exemplo que irá ler o arquivo existente usando uma organização sequencial. Isso exibirá todos os registros escritos no arquivo. O arquivo de entrada é o arquivo EMP-FILE.
Entrada: EMP-FILE contém o seguinte conteúdo
101 Nikita Kesharwani
102 Deep Ghosh
103 Naina Kukreja
104 Akash Singh |
Codificação COBOL:
IDENTIFICATION DIVISION.
PROGRAM-ID. COBLREAD.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT Employee ASSIGN TO EMP-FILE
ORGANIZATION IS LINE SEQUENTIAL.
DATA DIVISION.
FILE SECTION.
FD Employee.
01 Employee-FILE.
05 Employee-ID PIC 9(5).
05 NAME PIC A(25).
WORKING-STORAGE SECTION.
01 WS-Employee.
05 WS-Employee-ID PIC 9(5).
05 WS-NAME PIC A(25).
01 WS-EOF PIC A(1).
PROCEDURE DIVISION.
OPEN INPUT Employee.
PERFORM UNTIL WS-EOF='Y'
READ Employee INTO WS-Employee
AT END MOVE 'Y' TO WS-EOF
NOT AT END DISPLAY WS-Employee
END-READ
END-PERFORM.
CLOSE Employee.
STOP RUN. |
Quando você compila e executa o programa acima, ele produz o seguinte resultado -
Resultado:
101 Nikita Kesharwani
102 Deep Ghosh
103 Naina Kukreja
104 Akash Singh |