Saltar navegação

S05 - Programa Exemplo

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.                                                    

Licença: licença proprietária