COBOL - Exemplos simples - INSPECT TALLYING - www.cadcobol.com.br



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

COBOL - Exemplos simples - INSPECT TALLYING
IDENTIFICATION DIVISION.
PROGRAM-ID.  INSPECT.
AUTHOR.      CARLOS ALBERTO DORNELLES.

ENVIRONMENT DIVISION.                                            
CONFIGURATION SECTION.                                           
SPECIAL-NAMES.                                                   
    DECIMAL-POINT IS COMMA. 

DATA DIVISION.
WORKING-STORAGE SECTION.

01  WS-AUXILIARES.
    05  CAMPO-1         PIC X(006)   VALUE '000670'.
    05  CAMPO-2         PIC X(006)   VALUE '123450'.
    05  CAMPO-3         PIC X(006)   VALUE '007800'.
    05  CONTADOR-1      PIC 9(006)   VALUE ZEROES.
    05  CONTADOR-2      PIC 9(006)   VALUE ZEROES.
    05  CONTADOR-3      PIC 9(006)   VALUE ZEROES.

PROCEDURE DIVISION.

001-INICIO.

    INSPECT CAMPO-1 TALLYING CONTADOR-1 FOR ALL ZEROES

    INSPECT CAMPO-2 TALLYING CONTADOR-2 FOR CHARACTERS
            BEFORE INITIAL ZEROES 

    INSPECT CAMPO-3 TALLYING CONTADOR-3 FOR LEADING ZEROES

    DISPLAY 'CONTADOR-1 : ' CONTADOR-1  
    DISPLAY 'CONTADOR-2 : ' CONTADOR-2  
    DISPLAY 'CONTADOR-3 : ' CONTADOR-3  

    STOP RUN.

* Resultado do teste:

* CONTADOR-1 : 000004
* CONTADOR-2 : 000005
* CONTADOR-3 : 000002