Mais
×

Como ler um arquivo de extensão variável no COBOL

Atualizado em 17 abril, 2017

O COBOL (Common Business Oriented Language - Linguagem Comum Voltada para Negócios, em português), da IBM, permite aos usuários processar diferentes tipos de dados em aplicativos de software financeiro e de negócios. O COBOL suporta tipos de dados de registros de comprimento variável para uso em arquivos de banco de dados armazenados em discos rígidos; o usuário especifica os comprimentos máximos e mínimos de registros para descrever os arquivos do disco com registros de comprimento variável. Ler arquivos de dados de comprimento variável permite processar informações de banco de dados sem definir o tamanho exato de um registro em seu programa COBOL.

Instruções

Os programas em COBOL podem processar registros de comprimento variável armazenados em arquivos de banco de dados (Jupiterimages/Photos.com/Getty Images)
  1. Digite "Edit" no console de gerenciamento de sistema do quadro principal z/OS360 e pressione a tecla "Enter" para editar seu programa COBOL.

  2. Adicione o seguinte código ao início do seu programa:

    IDENTIFICATION DIVISION. PROGRAM-ID. COBVAR. ENVIRONMENT DIVISION. INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT IFILE ASSIGN TO "IFILE".

    DATA DIVISION. FILE SECTION. FD IFILE RECORD IS VARYING FROM 10 TO 50 DEPENDING ON LEN. 01 IREC. 05 FILLER PIC X OCCURS 10 TO 50 TIMES DEPENDING ON LEN.

    PROCEDURE DIVISION. P1. DISPLAY "EXAMPLE 1 OCCURS DEPENDING ON REC" OPEN INPUT IFILE PERFORM UNTIL LEN = -1 READ IFILE AT END MOVE -1 TO LEN NOT AT END DISPLAY IREC DISPLAY LEN END-READ END-PERFORM CLOSE IFILE DISPLAY SPACE

    DISPLAY "EXAMPLE FIXED REC" OPEN INPUT IFILE MOVE ALL "X" TO IREC READ IFILE AT END MOVE -1 TO LEN DISPLAY IREC DISPLAY SPACE

  3. Digite "Save" no console e pressione a tecla "Enter" para permitir que o programa processe registros de comprimento variável.

Cite this Article A tool to create a citation to reference this article Cite this Article