COBOL - Exemplos simples - INITIALIZE

COBOL - Exemplos simples - INITIALIZE - www.cadcobol.com.br

Mais uns TESTES realizados com o comando INITIALIZE

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

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

DATA DIVISION.
WORKING-STORAGE SECTION.

01  WSS-REGISTRO.
    05  VALOR-1         PIC 9(009). 
    05  VALOR-2         PIC X(009).
    05  VALOR-3         PIC 9(009)V99.

PROCEDURE DIVISION.

COBOL - Exemplos simples - INITIALIZE - TESTE 01

    INITIALIZE WSS-REGISTRO
               REPLACING ALPHANUMERIC BY SPACES
                              NUMERIC BY ZEROES 
    DISPLAY "VALOR-1    " VALOR-1
    DISPLAY "VALOR-2    " VALOR-2
    DISPLAY "VALOR-3    " VALOR-3

Resultado do teste:

VALOR-1    000000000
VALOR-2             
VALOR-3    000000000,00

COBOL - Exemplos simples - INITIALIZE - TESTE 02

    MOVE 123456789  TO VALOR-1
    MOVE "TESTE 01" TO VALOR-2
    MOVE 9999,99    TO VALOR-3
    INITIALIZE WSS-REGISTRO
               REPLACING ALPHANUMERIC BY SPACES
    DISPLAY "VALOR-1    " VALOR-1
    DISPLAY "VALOR-2    " VALOR-2
    DISPLAY "VALOR-3    " VALOR-3

Resultado do teste:

VALOR-1    123456789
VALOR-2             
VALOR-3    000009999,99

COBOL - Exemplos simples - INITIALIZE - TESTE 03

    MOVE 123456789  TO VALOR-1
    MOVE "TESTE 03" TO VALOR-2
    INITIALIZE WSS-REGISTRO
               REPLACING NUMERIC BY ZEROES
    DISPLAY "VALOR-1    " VALOR-1
    DISPLAY "VALOR-2    " VALOR-2
    DISPLAY "VALOR-3    " VALOR-3

Resultado do teste:

VALOR-1    000000000
VALOR-2    TESTE 03 
VALOR-3    000000000,00

COBOL - Exemplos simples - INITIALIZE - TESTE 04

    MOVE 123456789  TO VALOR-1
    MOVE 9999       TO VALOR-3
    INITIALIZE WSS-REGISTRO
               REPLACING NUMERIC BY ZEROES
    DISPLAY "VALOR-1    " VALOR-1
    DISPLAY "VALOR-2    " VALOR-2
    DISPLAY "VALOR-3    " VALOR-3

Resultado do teste:

VALOR-1    000000000
VALOR-2    TESTE 03 
VALOR-3    000000000,00

COBOL - Exemplos simples - INITIALIZE - TESTE 05

    MOVE 123456789  TO VALOR-1
    MOVE "TESTE 04" TO VALOR-2
    MOVE 9999       TO VALOR-3
    INITIALIZE WSS-REGISTRO
               REPLACING ALPHANUMERIC BY SPACES
    DISPLAY "VALOR-1    " VALOR-1
    DISPLAY "VALOR-2    " VALOR-2
    DISPLAY "VALOR-3    " VALOR-3

Resultado do teste:

VALOR-1    123456789
VALOR-2             
VALOR-3    000009999,00

COBOL - Exemplos simples - INITIALIZE - TESTE 06

    MOVE 123456789  TO VALOR-1
    MOVE "TESTE 04" TO VALOR-2
    MOVE 9999       TO VALOR-3
    INITIALIZE WSS-REGISTRO
               REPLACING ALPHANUMERIC BY ALL "X"
                              NUMERIC BY ALL "9"
    DISPLAY "VALOR-1    " VALOR-1
    DISPLAY "VALOR-2    " VALOR-2
    DISPLAY "VALOR-3    " VALOR-3

Resultado do teste:

VALOR-1    999999999
VALOR-2    XXXXXXXXX
VALOR-3    999999999,00

COBOL - Exemplos simples - INITIALIZE - TESTE 07

    MOVE 123456789  TO VALOR-1
    MOVE "TESTE 04" TO VALOR-2
    MOVE 9999       TO VALOR-3
    INITIALIZE WSS-REGISTRO
               REPLACING ALPHANUMERIC BY  "X"
                              NUMERIC BY 9
    DISPLAY "VALOR-1    " VALOR-1
    DISPLAY "VALOR-2    " VALOR-2
    DISPLAY "VALOR-3    " VALOR-3

Resultado do teste:

VALOR-1    000000009
VALOR-2    X        
VALOR-3    000000009,00

COBOL - Exemplos simples - INITIALIZE - TESTE 08

    MOVE 123456789  TO VALOR-1
    MOVE "TESTE 04" TO VALOR-2
    MOVE 9999       TO VALOR-3
    INITIALIZE WSS-REGISTRO
               REPLACING ALPHANUMERIC BY  "X"
                              NUMERIC BY 9,99
    DISPLAY "VALOR-1    " VALOR-1
    DISPLAY "VALOR-2    " VALOR-2
    DISPLAY "VALOR-3    " VALOR-3

Resultado do teste:

VALOR-1    000000009
VALOR-2    X        
VALOR-3    000000009,99

COBOL - Exemplos simples - INITIALIZE - TESTE 09

    MOVE 123456789  TO VALOR-1
    MOVE "TESTE 04" TO VALOR-2
    MOVE 8888       TO VALOR-3
    INITIALIZE VALOR-2 REPLACING ALPHANUMERIC BY "TESTE 09"
    INITIALIZE VALOR-3 REPLACING NUMERIC      BY 0,99
    DISPLAY "VALOR-1    " VALOR-1
    DISPLAY "VALOR-2    " VALOR-2
    DISPLAY "VALOR-3    " VALOR-3

Resultado do teste:

VALOR-1    123456789
VALOR-2    TESTE 09 
VALOR-3    000000000,99

STOP RUN.