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

Escrito por alexander gokhfeld | Traduzido por randhal wendel
  • Compartilhar
  • Tweetar
  • Compartilhar
  • Pin
  • E-mail
Como ler um arquivo de extensão variável no COBOL
Os programas em COBOL podem processar registros de comprimento variável armazenados em arquivos de banco de dados (Jupiterimages/Photos.com/Getty Images)

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.

Nível de dificuldade:
Fácil

Outras pessoas estão lendo

Instruções

  1. 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. 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. 3

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

Não perca

Filtro:
  • Geral
  • Artigos
  • Slides
  • Vídeos
Mostrar:
  • Mais relevantes
  • Mais lidos
  • Mais recentes

Nenhum artigo disponível

Nenhum slide disponível

Nenhum vídeo disponível