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

COBOL - Exemplos simples - MOVE


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

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

DATA DIVISION.
WORKING-STORAGE SECTION.

01  WS-AUXILIARES.
    05  VALOR-1             PIC 9(009)V99    VALUE ZEROES. 
    05  VALOR-2             PIC 9(009)V99    VALUE ZEROES. 
    05  VALOR-3             PIC 9(009)V99    VALUE ZEROES. 
    05  VALOR-4             PIC 9(009)       VALUE ZEROES. 
    05  VALOR-5             PIC 9(009)       VALUE ZEROES. 

    05  ITEM-1.
        10  WS-NOME-1       PIC X(007)       VALUE 'CARLOS'.
        10  WS-NOME-2       PIC X(008)       VALUE 'ALBERTO'.
        10  WS-NOME-3       PIC X(010)       VALUE 'DORNELLES'.
        10  WS-NOME-4       PIC X(009)       VALUE 'CADCOBOL'.

    05  ITEM-2.
        10  WS-NOME-2       PIC X(008).
        10  WS-NOME-1       PIC X(007).
        10  WS-NOME-3       PIC X(010).
        10  WS-NOME-4       PIC X(009).

    05  ITEM-3.
        10  WS-NOME-3       PIC X(010).
        10  WS-NOME-1       PIC X(007).
        10  WS-NOME-2       PIC X(008).
        10  WS-NOME-4       PIC X(009).

    05  ITEM-4.
        10  WS-NOME-4       PIC X(009).
        10  WS-NOME-1       PIC X(007).
        10  WS-NOME-2       PIC X(008).
        10  WS-NOME-3       PIC X(010).

PROCEDURE DIVISION.

001-INICIO.

COBOL - Exemplos simples - MOVE

    MOVE 5892,12 TO VALOR-1
    MOVE 1234,56 TO VALOR-2
    MOVE   88,12 TO VALOR-3
    MOVE    5892 TO VALOR-4
    MOVE VALOR-4 TO VALOR-5

    DISPLAY "VALOR-1 : " VALOR-1 
    DISPLAY "VALOR-2 : " VALOR-2 
    DISPLAY "VALOR-3 : " VALOR-3 
    DISPLAY "VALOR-4 : " VALOR-4 
    DISPLAY "VALOR-5 : " VALOR-5 

* Resultado do teste:

* VALOR-1 : 000005892,12
* VALOR-2 : 000001234,56
* VALOR-3 : 000000088,12
* VALOR-4 : 000005892
* VALOR-5 : 000005892

COBOL - Exemplos simples - MOVE CORRESPONDING (01)

    MOVE CORR          ITEM-1 TO ITEM-2.
    MOVE CORR          ITEM-1 TO ITEM-3.
    MOVE CORRESPONDING ITEM-1 TO ITEM-4.

    DISPLAY "ITEM-1  : " ITEM-1 
    DISPLAY "ITEM-2  : " ITEM-2 
    DISPLAY "ITEM-3  : " ITEM-3 
    DISPLAY "ITEM-4  : " ITEM-4 

* Resultado do teste:

* ITEM-1  : CARLOS ALBERTO DORNELLES CADCOBOL 
* ITEM-2  : ALBERTO CARLOS DORNELLES CADCOBOL 
* ITEM-3  : DORNELLES CARLOS ALBERTO CADCOBOL 
* ITEM-4  : CADCOBOL CARLOS ALBERTO DORNELLES


    STOP RUN.

COBOL - Exemplos simples - MOVE CORRESPONDING (02)

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

DATA DIVISION.
FILE SECTION.

WORKING-STORAGE SECTION.

01          WS-DATAHORA.
    05      WS-DATA.
            10  WS-ANO              PIC X(004).
            10  WS-MES              PIC X(002).
            10  WS-DIA              PIC X(002).
    05      WS-HORA.
            10  WS-HORAS            PIC X(002).
            10  WS-MINUTOS          PIC X(002).
            10  WS-SEGUNDOS         PIC X(002).
    
01          WS-DATAHORA-FORMATADA.
    05      WS-DATA-FORMATADA.
            10  WS-DIA          PIC X(002).
            10                  PIC X(001) VALUE "/".
            10  WS-MES          PIC X(002).
            10                  PIC X(001) VALUE "/".
            10  WS-ANO          PIC X(004).
    05      WS-HORA-FORMATADA.
            10  WS-HORAS        PIC X(002).
            10  FILLER          PIC X(001) VALUE ":".
            10  WS-MINUTOS      PIC X(002).
            10  FILLER          PIC X(001) VALUE ":".
            10  WS-SEGUNDOS     PIC X(002).

PROCEDURE DIVISION.

    MOVE FUNCTION CURRENT-DATE TO WS-DATAHORA
    DISPLAY "WS-DATAHORA - " WS-DATAHORA
	
    MOVE CORRESPONDING WS-DATA TO WS-DATA-FORMATADA 
    MOVE CORRESPONDING WS-HORA TO WS-HORA-FORMATADA 
	
    DISPLAY "WS-DATA-FORMATADA : " WS-DATA-FORMATADA
    DISPLAY "WS-HORA-FORMATADA : " WS-HORA-FORMATADA

    STOP RUN.
Resultado:
WS-DATAHORA - 20220301020008
WS-DATA-FORMATADA : 01/03/2022
WS-HORA-FORMATADA : 02:00:08