COBOL - Exemplos simples - INSPECT TALLYING REPLANCING

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.