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

Escrito por alexander gokhfeld | Traduzido por randhal wendel
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.

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.

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