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



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

COBOL - Exemplos simples - INSPECT TALLYING REPLANCING
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  ITEM-1          PIC X(014)   VALUE 'EFABDBCGABEFGG'.
    05  ITEM-2          PIC X(006)   VALUE 'BABABC'.
    05  ITEM-3          PIC X(004)   VALUE 'BBBC'.
    05  CONTADOR-0      PIC 9(006)   VALUE ZEROES.
    05  CONTADOR-1      PIC 9(006)   VALUE ZEROES.
    05  CONTADOR-2      PIC 9(006)   VALUE ZEROES.
    05  CONTADOR-3      PIC 9(006)   VALUE ZEROES.
    05  CONTADOR-4      PIC 9(006)   VALUE ZEROES.

PROCEDURE DIVISION.

001-INICIO.
COBOL - Exemplos simples - INSPECT TALLYING REPLANCING
    INSPECT ITEM-1 TALLYING
            CONTADOR-0 FOR ALL "AB", ALL "D"
            CONTADOR-1 FOR ALL "BC"
            CONTADOR-2 FOR LEADING "EF" 
            CONTADOR-3 FOR LEADING "B" 
            CONTADOR-4 FOR CHARACTERS

    INSPECT ITEM-1 REPLACING
            ALL "AB" BY "XY", "D" BY "X"
            ALL "BC" BY "VW"
            LEADING "EF" BY "TU" 
            LEADING "B" BY "S" 
            FIRST   "G" BY "R" 
            FIRST   "G" BY "P" 
            CHARACTERS BY "Z"

    DISPLAY 'ITEM-1     : ' ITEM-1
    DISPLAY 'CONTADOR-0 : ' CONTADOR-0  
    DISPLAY 'CONTADOR-1 : ' CONTADOR-1  
    DISPLAY 'CONTADOR-2 : ' CONTADOR-2  
    DISPLAY 'CONTADOR-3 : ' CONTADOR-3  
    DISPLAY 'CONTADOR-4 : ' CONTADOR-4  

* Resultado do teste:

* ITEM-1     : TUXYXVWRXYZZPZ
* CONTADOR-0 : 000003
* CONTADOR-1 : 000001
* CONTADOR-2 : 000001
* CONTADOR-3 : 000000
* CONTADOR-4 : 000005

COBOL - Exemplos simples - INSPECT TALLYING REPLANCING
    MOVE ZEROES TO CONTADOR-0 CONTADOR-1 CONTADOR-2 
                   CONTADOR-3 CONTADOR-4        
  
    INSPECT ITEM-2 TALLYING
            CONTADOR-0 FOR ALL "AB", ALL "D"
            CONTADOR-1 FOR ALL "BC"
            CONTADOR-2 FOR LEADING "EF" 
            CONTADOR-3 FOR LEADING "B" 
            CONTADOR-4 FOR CHARACTERS

    INSPECT ITEM-2 REPLACING
            ALL "AB" BY "XY", "D" BY "X"
            ALL "BC" BY "VW"
            LEADING "EF" BY "TU" 
            LEADING "B" BY "S" 
            FIRST   "G" BY "R" 
            FIRST   "G" BY "P" 
            CHARACTERS BY "Z"

    DISPLAY 'ITEM-2     : ' ITEM-2
    DISPLAY 'CONTADOR-0 : ' CONTADOR-0  
    DISPLAY 'CONTADOR-1 : ' CONTADOR-1  
    DISPLAY 'CONTADOR-2 : ' CONTADOR-2  
    DISPLAY 'CONTADOR-3 : ' CONTADOR-3  
    DISPLAY 'CONTADOR-4 : ' CONTADOR-4  

* Resultado do teste:

* ITEM-2     : SXYXYZ
* CONTADOR-0 : 000002
* CONTADOR-1 : 000000
* CONTADOR-2 : 000000
* CONTADOR-3 : 000001
* CONTADOR-4 : 000001

COBOL - Exemplos simples - INSPECT TALLYING REPLANCING
    MOVE ZEROES TO CONTADOR-0 CONTADOR-1 CONTADOR-2 
                   CONTADOR-3 CONTADOR-4        
  
    INSPECT ITEM-3 TALLYING
            CONTADOR-0 FOR ALL "AB", ALL "D"
            CONTADOR-1 FOR ALL "BC"
            CONTADOR-2 FOR LEADING "EF" 
            CONTADOR-3 FOR LEADING "B" 
            CONTADOR-4 FOR CHARACTERS

    INSPECT ITEM-3 REPLACING
            ALL "AB" BY "XY", "D" BY "X"
            ALL "BC" BY "VW"
            LEADING "EF" BY "TU" 
            LEADING "B" BY "S" 
            FIRST   "G" BY "R" 
            FIRST   "G" BY "P" 
            CHARACTERS BY "Z"

    DISPLAY 'ITEM-3     : ' ITEM-3
    DISPLAY 'CONTADOR-0 : ' CONTADOR-0  
    DISPLAY 'CONTADOR-1 : ' CONTADOR-1  
    DISPLAY 'CONTADOR-2 : ' CONTADOR-2  
    DISPLAY 'CONTADOR-3 : ' CONTADOR-3  
    DISPLAY 'CONTADOR-4 : ' CONTADOR-4  

* Resultado do teste:

* ITEM-3     : SSVW
* CONTADOR-0 : 000000
* CONTADOR-1 : 000001
* CONTADOR-2 : 000000
* CONTADOR-3 : 000002
* CONTADOR-4 : 000000
    STOP RUN.