Conceitos
O exemplo abaixo apresenta um programa que recebe dados da console e grava estes dados em um arquivo sequencial com registros.
000000 IDENTIFICATION DIVISION.
000000 PROGRAM-ID. IVEE032.
000000*
000000*--- PROGRAMA EXEMPLO - ARQUIVO SEQUENCIAL COM REGISTROS
000000*
000000 ENVIRONMENT DIVISION.
000000 INPUT-OUTPUT SECTION.
000000 FILE-CONTROL.
000000 SELECT ARQUIVO-SAIDA
000000 ASSIGN TO "C:/ARQUIVOSMF/S1-IVEE32.TXT".
000000*
000000 DATA DIVISION.
000000 FILE SECTION.
000000 FD ARQUIVO-SAIDA.
000000 01 REGISTRO-SAIDA.
000000 02 REGISTRO-DETALHE.
000000 03 COD-ITEM PIC X(4).
000000 03 PIC X.
000000 03 NOME-ITEM PIC X(38).
000000 03 PIC X.
000000 03 PRECO-ITEM PIC 9(4).
000000*
000000 PROCEDURE DIVISION.
000000*--- ABRIR O ARQUIVO DE SAIDA
000000 OPEN OUTPUT ARQUIVO-SAIDA.
000000*
000000 CARREGAR-CONTEUDO.
000000 DISPLAY "COD-ITEM = " UPON CONSOLE.
000000 ACCEPT COD-ITEM FROM CONSOLE.
000000*
000000 IF COD-ITEM = "/FIM"
000000 GO TO TERMINA-PROC
000000 END-IF.
000000*
000000 DISPLAY "NOME-ITEM = " UPON CONSOLE.
000000 ACCEPT NOME-ITEM FROM CONSOLE.
000000*
000000 DISPLAY "PRECO-ITEM = " UPON CONSOLE.
000000 ACCEPT PRECO-ITEM FROM CONSOLE.
000000*
000000 WRITE REGISTRO-SAIDA.
000000 GO TO CARREGAR-CONTEUDO.
000000*
000000 TERMINA-PROC.
000000* FECHAR O ARQUIVO DE SAIDA
000000 CLOSE ARQUIVO-SAIDA.
000000 STOP RUN.