COBOL - Exemplos simples - Utilização do Nivel 66 - www.cadcobol.com.br



Desenvolvido por DORNELLES Carlos Alberto - Analista de Sistemas - Brasília DF. - cad_cobol@hotmail.com

COBOL - Exemplos simples - Utilização do Nivel 66

O nível 66 é utilizado para renomear outras variáveis do programa.

IDENTIFICATION DIVISION.
PROGRAM-ID.  NIVEL66.
AUTHOR.      CARLOS ALBERTO DORNELLES.

* Um programa de exemplo que demonstra o uso do nível 66

DATA DIVISION.
WORKING-STORAGE SECTION.

* Desta forma acessando a variável MES-DIA-SISTEMA estaremos enxergando o conteúdo das variáveis MES-SISTEMA e DIA-SISTEMA.

01  DATA-SISTEMA.
    05  ANO-SISTEMA        PIC 9(004) VALUE ZEROES.
    05  MES-SISTEMA        PIC 9(002) VALUE ZEROES.
    05  DIA-SISTEMA        PIC 9(002) VALUE ZEROES.
66  MES-DIA-SISTEMA        RENAMES MES-SISTEMA THRU DIA-SISTEMA.


* Nível 66 - RENAMES (junta campos contíguos)

01  REGISTRO.
    05 RUA                 PIC X(025).
    05 NUM                 PIC 9(005).
    05 APTO                PIC 9(004).
    05 BAIRRO              PIC X(015).
    05 CIDADE              PIC X(025).
    05 ESTADO              PIC X(002).
    05 CEP                 PIC 9(008).
66  ENDERECO               RENAMES RUA      THRU APTO.
66  CIDADE-ESTADO          RENAMES CIDADE   THRU ESTADO.
66  BAIRRO-CIDADE          RENAMES BAIRRO   THRU CIDADE.
66  NUMERO                 RENAMES NUM.
66  IND-COMPLETO           RENAMES RUA      THRU CEP.
66  END-QUASE              RENAMES ENDERECO THRU CIDADE-ESTADO.

* Renames de Renames pode.

PROCEDURE DIVISION.

001-INICIO.

    MOVE 20201025                TO DATA-SISTEMA  
    DISPLAY "DATA-SISTEMA   : "  DATA-SISTEMA 
    DISPLAY "ANO-SISTEMA    : "  ANO-SISTEMA 
    DISPLAY "MES-SISTEMA    : "  MES-SISTEMA 
    DISPLAY "DIA-SISTEMA    : "  DIA-SISTEMA 
    DISPLAY "MES-DIA-SISTEMA: "  MES-DIA-SISTEMA 

* Resultado do teste:

* DATA-SISTEMA   : 20201025
* ANO-SISTEMA    : 2020
* MES-SISTEMA    : 10
* DIA-SISTEMA    : 25
* MES-DIA-SISTEMA: 1025

    MOVE "SCLN 712/713 APTO 101" TO RUA
    MOVE 00037                   TO NUM 
    MOVE 101                     TO APTO
    MOVE "ASA NORTE"             TO BAIRRO
    MOVE "BRASILIA"              TO CIDADE
    MOVE "DF"                    TO ESTADO
    MOVE 70760680                TO CEP

    DISPLAY "ENDERECO       : "  ENDERECO               
    DISPLAY "CIDADE-ESTADO  : "  CIDADE-ESTADO          
    DISPLAY "BAIRRO-CIDADE  : "  BAIRRO-CIDADE          
    DISPLAY "NUMERO         : "  NUMERO                 
    DISPLAY "IND-COMPLETO   : "  IND-COMPLETO           
    DISPLAY "END-QUASE      : "  END-QUASE              

* Resultado do teste:

* ENDERECO       : SCLN 712/713 APTO 101    000370101
* CIDADE-ESTADO  : BRASILIA                 DF
* BAIRRO-CIDADE  : ASA NORTE      BRASILIA                 
* NUMERO         : 00037
* IND-COMPLETO   : SCLN 712/713 APTO 101    000370101ASA NORTE      BRASILIA                 DF70760680
* END-QUASE      : SCLN 712/713 APTO 101    000370101ASA NORTE      BRASILIA                 DF

    STOP RUN.