COBOL - Exemplos simples - INITIALIZE

COBOL - Exemplos simples - INITIALIZE


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

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

DATA DIVISION.
WORKING-STORAGE SECTION.

01  WSS-REGISTRO.
    05  CAMPOS-01       PIC X(020).
    05  CAMPOS-02       PIC 9(009)V9(002).
    05  CAMPOS-03       PIC X(001).
    05  CAMPOS-04       PIC 9(005)V9(005).
    05  FILLER          PIC X(009) VALUE 'DORNELLES'.


PROCEDURE DIVISION.

001-INICIO.

COBOL - Exemplos simples - INITIALIZE

    MOVE "CARLOS ALBERTO" TO CAMPOS-01
    MOVE 1234,67          TO CAMPOS-02
    MOVE "Y"              TO CAMPOS-03 
    MOVE 6789,12345       TO CAMPOS-04    

    DISPLAY "Antes        " 
    DISPLAY "WSS-REGISTRO " WSS-REGISTRO 
    DISPLAY "CAMPOS-01    " CAMPOS-01
    DISPLAY "CAMPOS-02    " CAMPOS-02
    DISPLAY "CAMPOS-03    " CAMPOS-03
    DISPLAY "CAMPOS-04    " CAMPOS-04
 
    INITIALIZE WSS-REGISTRO

    DISPLAY "Depois       " 
    DISPLAY "WSS-REGISTRO " WSS-REGISTRO 
    DISPLAY "CAMPOS-01    " CAMPOS-01
    DISPLAY "CAMPOS-02    " CAMPOS-02
    DISPLAY "CAMPOS-03    " CAMPOS-03
    DISPLAY "CAMPOS-04    " CAMPOS-04

* Resultado do teste:

* Antes
* WSS-REGISTRO CARLOS ALBERTO      00000123467Y0678912345DORNELLES
* CAMPOS-01    CARLOS ALBERTO      
* CAMPOS-02    000001234,67
* CAMPOS-03    Y
* CAMPOS-04    06789,12345

* Depois 
* WSS-REGISTRO                     00000000000 0000000000DORNELLES
* CAMPOS-01                        
* CAMPOS-02    000000000,00
* CAMPOS-03     
* CAMPOS-04    00000,00000

Observação:

Os campos definido como FILLER não sofrem nenhuma ação do comando INITIALIZE ou seja:

    05  FILLER          PIC X(009) VALUE 'DORNELLES'. Permanecerá com o conteúdo DORNELLES

COBOL - Exemplos simples - INITIALIZE

    MOVE "CARLOS ALBERTO" TO CAMPOS-01
    MOVE 1234,67          TO CAMPOS-02
    MOVE "Y"              TO CAMPOS-03 
    MOVE 6789,12345       TO CAMPOS-04    

    DISPLAY "Antes        " 
    DISPLAY "WSS-REGISTRO " WSS-REGISTRO 
    DISPLAY "CAMPOS-01    " CAMPOS-01
    DISPLAY "CAMPOS-02    " CAMPOS-02
    DISPLAY "CAMPOS-03    " CAMPOS-03
    DISPLAY "CAMPOS-04    " CAMPOS-04

    INITIALIZE WSS-REGISTRO
               REPLACING ALPHANUMERIC BY SPACES
                              NUMERIC BY ZEROES 

    DISPLAY "Depois       " 
    DISPLAY "WSS-REGISTRO " WSS-REGISTRO 
    DISPLAY "CAMPOS-01    " CAMPOS-01
    DISPLAY "CAMPOS-02    " CAMPOS-02
    DISPLAY "CAMPOS-03    " CAMPOS-03
    DISPLAY "CAMPOS-04    " CAMPOS-04

* Resultado do teste:

* Antes        
* WSS-REGISTRO CARLOS ALBERTO      00000123467Y0678912345DORNELLES
* CAMPOS-01    CARLOS ALBERTO      
* CAMPOS-02    000001234,67
* CAMPOS-03    Y
* CAMPOS-04    06789,12345

* Depois       
* WSS-REGISTRO                     00000000000 0000000000DORNELLES
* CAMPOS-01                        
* CAMPOS-02    000000000,00
* CAMPOS-03     
* CAMPOS-04    00000,00000

Observação:

Os campos definido como FILLER não sofrem nenhuma ação do comando INITIALIZE ou seja:

    05  FILLER          PIC X(009) VALUE 'DORNELLES'. Permanecerá com o conteúdo DORNELLES

COBOL - Exemplos simples - INITIALIZE

    MOVE "CARLOS ALBERTO" TO CAMPOS-01
    MOVE 1234,67          TO CAMPOS-02
    MOVE "Y"              TO CAMPOS-03 
    MOVE 6789,12345       TO CAMPOS-04    

    DISPLAY "Antes        " 
    DISPLAY "WSS-REGISTRO " WSS-REGISTRO 
    DISPLAY "CAMPOS-01    " CAMPOS-01
    DISPLAY "CAMPOS-02    " CAMPOS-02
    DISPLAY "CAMPOS-03    " CAMPOS-03
    DISPLAY "CAMPOS-04    " CAMPOS-04

    INITIALIZE WSS-REGISTRO
               REPLACING ALPHANUMERIC BY "X" 
                              NUMERIC BY "9" 

    DISPLAY "Depois       " 
    DISPLAY "WSS-REGISTRO " WSS-REGISTRO 
    DISPLAY "CAMPOS-01    " CAMPOS-01
    DISPLAY "CAMPOS-02    " CAMPOS-02
    DISPLAY "CAMPOS-03    " CAMPOS-03
    DISPLAY "CAMPOS-04    " CAMPOS-04

* Resultado do teste:

* Antes        
* WSS-REGISTRO CARLOS ALBERTO      00000123467Y0678912345DORNELLES
* CAMPOS-01    CARLOS ALBERTO      
* CAMPOS-02    000001234,67
* CAMPOS-03    Y
* CAMPOS-04    06789,12345

* Depois       
* WSS-REGISTRO X                   00000000900X0000900000DORNELLES
* CAMPOS-01    X                   
* CAMPOS-02    000000009,00
* CAMPOS-03    X
* CAMPOS-04    00009,00000

Observação:

Os campos definido como FILLER não sofrem nenhuma ação do comando INITIALIZE ou seja:

    05  FILLER          PIC X(009) VALUE 'DORNELLES'. Permanecerá com o conteúdo DORNELLES

COBOL - Exemplos simples - INITIALIZE / ALL

    MOVE "CARLOS ALBERTO" TO CAMPOS-01
    MOVE 1234,67          TO CAMPOS-02
    MOVE "Y"              TO CAMPOS-03 
    MOVE 6789,12345       TO CAMPOS-04    

    DISPLAY "Antes        " 
    DISPLAY "WSS-REGISTRO " WSS-REGISTRO 
    DISPLAY "CAMPOS-01    " CAMPOS-01
    DISPLAY "CAMPOS-02    " CAMPOS-02
    DISPLAY "CAMPOS-03    " CAMPOS-03
    DISPLAY "CAMPOS-04    " CAMPOS-04

    INITIALIZE WSS-REGISTRO
               REPLACING ALPHANUMERIC BY ALL "X" 
                              NUMERIC BY ALL "9" 

    DISPLAY "Depois       " 
    DISPLAY "WSS-REGISTRO " WSS-REGISTRO 
    DISPLAY "CAMPOS-01    " CAMPOS-01
    DISPLAY "CAMPOS-02    " CAMPOS-02
    DISPLAY "CAMPOS-03    " CAMPOS-03
    DISPLAY "CAMPOS-04    " CAMPOS-04

* Resultado do teste:

* Antes        
* WSS-REGISTRO CARLOS ALBERTO      00000123467Y0678912345DORNELLES
* CAMPOS-01    CARLOS ALBERTO      
* CAMPOS-02    000001234,67
* CAMPOS-03    Y
* CAMPOS-04    06789,12345

* Depois       
* WSS-REGISTRO XXXXXXXXXXXXXXXXXXXX99999999900X9999900000DORNELLES
* CAMPOS-01    XXXXXXXXXXXXXXXXXXXX
* CAMPOS-02    999999999,00
* CAMPOS-03    X
* CAMPOS-04    99999,00000

Observação:

Os campos definido como FILLER não sofrem nenhuma ação do comando INITIALIZE ou seja:

    05  FILLER          PIC X(009) VALUE 'DORNELLES'. Permanecerá com o conteúdo DORNELLES

    STOP RUN.